使用vb.net从字符串中查找日期格式

Imports System.Text.RegularExpressions

Module Module1
    Sub Main()
        Dim inputString As String = "Today is 2022-01-01"
        Dim regexPattern As String = "\d{4}-\d{2}-\d{2}"

        Dim regex As New Regex(regexPattern)
        Dim match As Match = regex.Match(inputString)

        If match.Success Then
            Dim dateStr As String = match.Value
            Dim dateValue As DateTime

            If DateTime.TryParse(dateStr, dateValue) Then
                Console.WriteLine("Found date: " & dateValue.ToString("yyyy-MM-dd"))
            Else
                Console.WriteLine("Invalid date format")
            End If
        Else
            Console.WriteLine("No date found")
        End If

        Console.ReadLine()
    End Sub
End Module