VB.NET條件與正則表達式匹配

Question

我構造了一個代碼，用於檢查文本框中的內容是字符串還是整數。 我的工作如下：

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click

    Dim value As String = txtBox.Text

    Dim i As Integer
    If (Integer.TryParse(value, i)) = True Then
        If IsValid(value) = True Then
            MsgBox(value & " is a correct entry")
        Else
            MsgBox("Not a correct TVA number !")
        End If
    Else
        MsgBox(value & " is a string")
    End If
End Sub

Function IsValid(ByRef value As String) As Boolean
    Return Regex.IsMatch(value, "^0[1-9]{9}$")
End Function

End Class

現在一切正常，直到我在文本框中輸入11個或更多數字 ，然后代碼突然告訴我，例如012345678912是字符串（！）。

所以要清楚，當我鍵入以下數字時：

• 12345-> msgbox告訴我輸入的內容是“ TVA號碼不正確”
• 123456789-> msgbox告訴我輸入內容為“ TVA號碼不正確”
• 0123456789-> msgbox說還可以
• 01234567891-> msgbox告訴我輸入內容為“ TVA號碼不正確”
• 012345678912-> msgbox告訴我條目突然是一個字符串！
• 一些文本-> msgbox說它是一個字符串，所以沒關系

也許我在這里遺漏了一些明顯的東西，但是我一遍又一遍地看了一下代碼，並在其他應用程序中對正則表達式進行了幾次測試，在這些應用程序中它們正常工作。

請問我在這里俯瞰什么？

關於Wim

Answer 1

對於Integer ，該值太大，因此它將溢出並且Int32.TryParse返回false 。

您可以使用此：

If value.All(AddressOf Char.IsDigit) Then
    If IsValid(value) = True Then
        MsgBox(value & " is a correct entry")
    Else
        MsgBox("Not a correct TVA number !")
    End If
Else
    MsgBox(value & " is a string")
End If

或改用Int64.TryParse允許更大的數字。