確保一個字符串完全有5位數字

Question

我想返回true，如果某些字符串=「XXXXX」

如果每個X是一個數字0到9

我知道必須有一個打如何做到這一點，但我想知道最好的方法。

Answer 1

如果你想最簡單的方法，你可以用這個去：

Function MyFunction(myString As String) As Boolean 
    MyFunction = ((Len(myString) = 5) And (IsNumeric(myString))) 
End Function 

如果您想要更高效的方法，你必須針對不同的方法運行一些測試人們建議。

編輯：以前的解決方案不能很好地工作（請參閱前2條評論），但我讓它在那裏，因爲它已被接受。這裏是我會做什麼：

Function MyFunction(myString As String) As Boolean 
    Dim myDouble As Double 
    Dim myLong As Long 
    myDouble = Val(myString) 
    myLong = Int(myDouble/10000) 
    MyFunction = ((Len(myString) = 5) And (myLong > 0) And (myLong < 10)) 
End Function 

有在功能上沒有錯誤的「保護」，因此，如果你嘗試檢查一個過大的數字，如22222222222222，它不會工作。

Answer 2

yourString Like "#####" 

Answer 3

類似問題以前問：link text

基本上要檢查

(Len(s) = 5) And IsNumeric(s) 

Answer 4

您還可以使用正則表達式來解決此問題。如果在VBA項目中包含Microsoft VBScript Regular Expressions 5.5，則可以使用RegExp和MatchCollection變量，如下面的函數中所示。 （這是在ozgrid.com應對this post的變形例。）

Public Function FiveDigitString(strData As String) As Boolean 

On Error GoTo HandleError 

Dim RE As New RegExp 
Dim REMatches As MatchCollection 

    With RE 
     .MultiLine = False 
     .Global = False 
     .IgnoreCase = True 
     .Pattern = "^[0-9][0-9][0-9][0-9][0-9]$" 
    End With 

    Set REMatches = RE.Execute(strData) 
    If REMatches.Count = 1 Then 
     FiveDigitString = True 
    Else 
     FiveDigitString = False 
    End If 

    Exit Function 
HandleError: 
    Debug.Print "Error in FiveDigitString: " & Err.Description 
    FiveDigitString = False 
End Function