1

我的代码从各种资源中检索数据。

输出将如下所示

UNY4/4/2010

hds04/5/2010

saths04/22/2013

但我想要这样的输出

2010 年 4 月 4 日

2010 年 4 月 5 日

2013 年 4 月 22 日

有没有办法做到这一点?

4

2 回答 2

2

您需要使用正则表达式来查找所有大写和小写字符并将它们替换为空白,如下所示:

Dim rgx As New Regex("[a-zA-Z]")
str = rgx.Replace(str, String.Empty)
于 2013-09-19T03:50:44.210 回答
1

另一种解决方案是查找第一个数字,然后丢弃之前的所有文本。

Function GetDate(data As String) As Date
    Dim indexFirstNum As Integer = data.IndexOfAny("0123456789".ToCharArray())
    Dim datePortion As String = data.Substring(indexFirstNum)
    Return Date.Parse(datePortion)
End Function
于 2013-09-19T12:21:32.927 回答