Assurez-vous qu'une chaîne est exactement un nombre à 5 chiffres

Question

Je veux retourner vrai si certaines chaînes = « XXXXX »

Où chaque X est un nombre de 0 à 9

Je sais qu'il doit y avoir une douzaine façons de le faire, mais je voudrais savoir le meilleur moyen.

Answer 1

Si vous voulez que la façon la plus simple, vous pouvez aller avec ceci:

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

Si vous vouloir le moyen le plus efficace, vous devrez exécuter des tests pour les différentes méthodes les gens ont suggéré.

Editer: La solution précédente ne fonctionne pas bien (voir les 2 premiers commentaires) mais je la laisse là car c'est ce qui a été accepté. Voici ce que je ferais:

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 

Il n'y a pas d'erreur « protection » dans cette fonction, donc si vous essayez de vérifier un trop grand nombre comme 22222222222222, ça ne marchera pas.

Answer 2

yourString Like "#####" 

Answer 3

question similaire a demandé précédemment: link text

veulent en principe vérifier

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

Answer 4

Vous pouvez également utiliser des expressions régulières pour résoudre ce problème. Si vous incluez Microsoft VBScript Regular Expressions 5.5 dans votre projet VBA, vous pouvez utiliser les variables RegExp et MatchCollection comme dans la fonction ci-dessous. (Ceci est une modification de la réponse à this post à ozgrid.com.)

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