在VB中,您可以使用正則表達(dá)式或者內(nèi)置的日期和時間函數(shù)來提取日期。
Imports System.Text.RegularExpressions
Dim input As String = "今天是2022年1月1日"
Dim pattern As String = "(\d{4})年(\d{1,2})月(\d{1,2})日"
Dim match As Match = Regex.Match(input, pattern)
If match.Success Then
Dim year As Integer = Integer.Parse(match.Groups(1).Value)
Dim month As Integer = Integer.Parse(match.Groups(2).Value)
Dim day As Integer = Integer.Parse(match.Groups(3).Value)
Dim dateValue As New DateTime(year, month, day)
Console.WriteLine(dateValue.ToString("yyyy/MM/dd"))
Else
Console.WriteLine("沒有找到日期")
End If
Dim input As String = "2022年1月1日"
Dim formats() As String = {"yyyy年M月d日", "yyyy/M/d"}
Dim dateValue As DateTime
If DateTime.TryParseExact(input, formats, CultureInfo.InvariantCulture, DateTimeStyles.None, dateValue) Then
Console.WriteLine(dateValue.ToString("yyyy/MM/dd"))
Else
Console.WriteLine("無法解析日期")
End If
以上代碼示例中,我們假設(shè)輸入的字符串中包含"2022年1月1日"這樣的日期格式。您可以根據(jù)實際情況調(diào)整正則表達(dá)式或者日期格式。