我的代码从各种资源中检索数据。
输出将如下所示
UNY4/4/2010
hds04/5/2010
saths04/22/2013
但我想要这样的输出
2010 年 4 月 4 日
2010 年 4 月 5 日
2013 年 4 月 22 日
有没有办法做到这一点?
我的代码从各种资源中检索数据。
输出将如下所示
UNY4/4/2010
hds04/5/2010
saths04/22/2013
但我想要这样的输出
2010 年 4 月 4 日
2010 年 4 月 5 日
2013 年 4 月 22 日
有没有办法做到这一点?
您需要使用正则表达式来查找所有大写和小写字符并将它们替换为空白,如下所示:
Dim rgx As New Regex("[a-zA-Z]")
str = rgx.Replace(str, String.Empty)
另一种解决方案是查找第一个数字,然后丢弃之前的所有文本。
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