Expression régulière en VBScript

Bonjour,

mon expression régulière est comme suit: nom[0-9]* =>le nom par exemple sarra suivi/ou non d'un chiffre entre 0 et 9.

je veux chercher dans une chaine s'il existe cette expression.

Nb: nom est passé en parametre dans une fonction: Function getX(nom)

Salut

Un petit outils pour faire des essais: Manipulation de l'objet RegExp un code HTML/VBScript.
Tu pourras adapter pour ton propre code.

Ici peut être

https://msdn.microsoft.com/fr-fr/lib...(v=vs.84).aspx

Bonjour,

possible aussi de s'entraîner via Notepad++ …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

:salut:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Option Explicit Dim strng1,strng2,strng3,Nom strng1 = "sara Test 10023" strng2 = "sarra12054" strng3 = "SARRA25826mll" Nom = "sarra" MsgBox("Recheche de la chaîne "& DblQuote(Nom) &" dans "& DblQuote(strng1) & vbCrlF &_ RegExpTest(Nom,strng1)) MsgBox("Recheche de la chaîne "& DblQuote(Nom) &" dans "& DblQuote(strng2) & vbCrlF &_ RegExpTest(Nom,strng2)) MsgBox("Recheche de la chaîne "& DblQuote(Nom) &" dans "& DblQuote(strng3) & vbCrlF &_ RegExpTest(Nom,strng3)) '********************************************************************* Function RegExpTest(Nom,strng) Dim regEx, retVal ' Créer une expression régulière. Set regEx = New RegExp regEx.Pattern = Nom &"[0-9]*" regEx.IgnoreCase = True 'Effectuer le test de recherche retVal = regEx.Test(strng) If retVal Then RegExpTest = "Une ou plusieurs correspondances ont été trouvées." Else RegExpTest = "Aucune correspondance n'a été trouvée." End If End Function '********************************************************************* Function DblQuote(Str) DblQuote = Chr(34) & Str & Chr(34) End Function '*********************************************************************

---