Expression régulière VBScript
Résolu
sarraHN
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Kalissi Messages postés 218 Date d'inscription Statut Membre Dernière intervention -
Kalissi Messages postés 218 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Expression régulière VBScript
- Expression écrite cm1 cm2 télécharger gratuit - Télécharger - Éducatifs
- Microsoft expression encoder - Télécharger - Divers Utilitaires
- Avoir du ping expression ✓ - Forum jeux en ligne
- C quoi un ping? ✓ - Forum Réseau
- Expression de recherche - Guide
1 réponse
Bonjour,
Exemple type :
K
Exemple type :
Dim ObjRegExp
Dim Correspondances
Dim ValeurChaineExpReg
Dim Flag
Dim Reponse
' Créer un objet RegExp
Set ObjRegExp = New RegExp
' Casse ignorée
ObjRegExp.IgnoreCase = False
' Recherche sur toute la chaine
ObjRegExp.Global = True
' Définition de l'expression régulière
ObjRegExp.Pattern = "[0-9]*"
' Capturer un chaîne de caractères
ValeurChaineExpReg = InputBox("Entrez votre identifiant : ","Saisie d'un Identifiant","Kalissi")
'
Set Correspondances = ObjRegExp.Execute(ValeurChaineExpReg)
' Interpreter les résultats
For Each Resultat In Correspondances
If Not(Resultat.Value="") Then
Flag = True
Exit For
End IF
Next
If (Flag) Then
Reponse = ("Chaine valide.")
Else
Reponse = ("Chaine invalide.")
End If
MsgBox (Reponse)
K