L'utilisation de RegEx en vb6

J'ai besoin de valider une chaîne de caractères, qui peuvent contenir de l'alphanumériques ainsi que le caractère spécial, où comme je l'ai passer celui qui n'a qu'Alpha caractères (pas de chiffres ou autres caractères spéciaux sont autorisés)

Dans une méthode que j'utilise ASCII nombre d'évaluer chaque personnage si son alpha ou pas. Est-il un autre moyen efficace de découvrir la présence de caractères spéciaux ou des chiffres dans la chaîne? Comme nous ne pouvons pas utiliser Comme ou quelque chose à vérifier une fois que d'aller personnage par personnage?

For y = 2 To Len(sString)
    If Not ((Asc(Mid$((sString,y,1))>64 AND Asc(Mid$((sString,y,1))<91) OR _
    (Asc(Mid$((sString,y,1))>96 AND Asc(Mid$((sString,y,1))<123)) Then
        //Display an error msg
        Exit For
    End If
Next y
Aucune raison particulière pour laquelle vous êtes ignorant le premier personnage? Vous commencez le For boucle à y = 2
oui, parce que premier caractère a d'autres limites..
de toute façon .. j'avais pris la solution de ce!

OriginalL'auteur InfantPro'Aravind' | 2011-07-19

  1. 8

    Vous pouvez utiliser des expressions régulières dans VB6. Vous devez ajouter une référence à "Microsoft VBScript Regular Expressions 5.5" bibliothèque de votre projet. Vous pouvez ensuite utiliser les éléments suivants:

    Dim rex As RegExp
Set rex = New RegExp
rex.Pattern = "[^a-zA-Z]"
If rex.Test(s) Then
    ' Display error message
End If

    Quand j'ai d'abord répondu à cette question, il a été marqué comme VB.NET; référence pour l'avenir, mon original .Net-basé réponse est maintenu en dessous

    Comme vous le pensiez, ce qui peut être fait avec des expressions régulières (n'oubliez pas Imports System.Text.RegularExpressions:

    If Regex.IsMatch(s, "[^a-zA-Z]") Then
    ' Display error msg
End If

    Aussi, l'original du code se lit comme VB6 code, pas VB.NET. Ici, il est beaucoup plus lisible pour écrire l'origine de la non-regex code:

    For Each ch As Char In someString
    If Not (ch >= "a"c AndAlso ch <= "z"c OrElse ch >= "A"c AndAlso ch <= "Z"c) Then
        ' Display error msg
        Exit For
    End If
Next
    Chevalier: Non, l'expression régulière correspond à la non-caractères alpha, donc un match signifie le message d'erreur doit être affiché. Le match est vrai si la chaîne contient des caractères non valides.
    oui, monsieur c'est vb6 que j'ai affaire avec.
    programmeur: votre question a été marqué vb.net quand j'ai répondu... j'ai ajouté un VB6 répondre ainsi.
    Sven, oui j'avoue mon erreur. merci 🙂
    programmeur: il suffit d'utiliser quelque chose comme "^[A-Za-z][A-Za-z0-9]*$" (dans ce cas un match indiquer une valeur valide plutôt que d'invalide). Voir l'expression régulière de référence pour plus d': msdn.microsoft.com/en-us/library/6wzad2b2.aspx Aussi, je l'apprécierais si vous voulez accepter la réponse si cela vous a aidé. 🙂

    OriginalL'auteur Sven

  2. 8

    VBA est un natif Like opérateur: sa syntaxe est non standard, par exemple le multi-caractères génériques est * et l'opérateur not est !:

    If sString Like "*[!A-Za-z]*" Then
  ' Display an error msg
End If

    OriginalL'auteur onedaywhen

  3. 3

    Vous devez ajouter une référence à Microsoft VBScript Regular Expressions 5.5

    Code pour vérifier les caractères non alphabétiques:

    'Prepare a regular expression object
Dim myRegExp As RegExp
Dim myMatches As MatchCollection
Dim myMatch As Match
Dim matchesFound As Boolean

Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "[^A-Za-z]+"
Set myMatches = myRegExp.Execute("abc123def#$%")
matchesFound = myMatches.Count > 0

    Découvrez Comment Utiliser les Expressions Régulières dans Microsoft Visual Basic 6.0 au Support Microsoft pour plus d'info.

    merci pour l'aide et le lien 🙂

    OriginalL'auteur C-Pound Guru