Question

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

输出如下所示

UNY4 /二千〇一十分之四

hds04 /二千〇一十分之五

saths04 /二千〇一十三分之二十二

但我想要像这样的输出

4/4/2010

2010年4月5日

2013年4月22日

有没有办法做到这一点？

Answer 1

您需要使用一个查找所有大写和小写字符的正则表达式，并用空格替换它们，如下所示：

Dim rgx As New Regex("[a-zA-Z]")
str = rgx.Replace(str, String.Empty)

Answer 2

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

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

从字符串中删除单独的字符

2 个答案: