Discussion :

[safa afas]

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)

[ProgElecT]

Salut

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

[ericlm128]

Ici peut être

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

[Marc-L]

Bonjour,

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

___________________________________________________________________________________________________________

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

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'*********************************************************************