Expression régulière VBScript
Résolu/Fermé
sarraHN
Messages postés
1
Date d'inscription
dimanche 9 avril 2017
Statut
Membre
Dernière intervention
9 avril 2017
-
9 avril 2017 à 16:23
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 10 avril 2017 à 15:48
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 10 avril 2017 à 15:48
A voir également:
- Expression régulière VBScript
- Expression de recherche - Guide
- Expression encoder - Télécharger - Divers Utilitaires
- Tu es un amour expression ✓ - Forum Loisirs / Divertissements
- T'as du ping expression ✓ - Forum Réseau
- Modèle fiche expression de besoin excel - Forum Word
1 réponse
Kalissi
Messages postés
218
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
20
10 avril 2017 à 15:48
10 avril 2017 à 15:48
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
