如果一個字符串中有一個數字，就需要捕捉它vb

Question

我想添加一個catch語句來查看targetword是否有輸入的數字。

Console.WriteLine("Enter the word you want to guess: ") 
       targetWord = Console.ReadLine 

Answer 1

如果你想知道，如果給定的字符串中包含的數字，您可以使用Char.IsDigit：

Dim input = Console.ReadLine() ' for example: abc123def 
Dim digits = input.Where(AddressOf Char.IsDigit) 
If digits.Any() Then 
    ' ... 
End If 

所以，如果你想要求用戶提供一個新的字符串，直到他進入一個沒有數字：

While digits.Any() 
    input = Console.ReadLine() 
    digits = input.Where(AddressOf Char.IsDigit) 
End While 

Answer 2

使用正則表達式：

If Regex.IsMatch("tes6t", "\d") Then 
    Console.WriteLine("Yes") 
End If 

Answer 3

試試這個：

''' <summary> 
''' Take a regular expression test pattern, a value to test the pattern against, and return true if it matches; false otherwise. 
''' </summary> 
''' <param name="testPattern">The regular expression against which the <paramref name="testValue"/> will be tested.</param> 
''' <param name="testValue">The value that will be tested against the regular expression <paramref name="testPattern"/>.</param> 
''' <returns>True if <paramref name="testValue" /> matches the regular expression <paramref name="testPattern" />.</returns> 
''' <remarks></remarks> 
Private Function ValueMatchesRegExpression(ByVal testPattern As String, ByVal testValue As String) As Boolean 
    Dim regEx As New System.Text.RegularExpressions.Regex(testPattern) 
    ValueMatchesRegExpression = regEx.IsMatch(testValue) 
End Function 

而且例如使用像這樣：

Debug.Print(ValueMatchesRegExpression("\d", targetWord))