Expression reguliere

Bonjour mg,
mg a écrit :

Salut, je souhaite utiliser les expression reguliere sous vb6 pour trouver
des numero de telephone dans un fichier texte ( du genre XX XX XX XX XX),
avec XX sont des chiffres et une combinaison de deux fois 5 chiffres.
Merci davance

Ajoutes une référence à Microsoft VBScript Regular Expression
(vbscript.dll). Un petit exemple (sans gestion de fichier) :

Private Sub NumeroTel()
Dim re As RegExp
Dim ma As Match
Dim txt As String

txt = "aaaaa 11 12 13 14 15 aaaaa" & vbCrLf & _
"bbbbb 21 22 23 24 25 bbbbb" & vbCrLf & _
"ccccc 31 32 33 34 35 ccccc" & vbCrLf & _
"ddddd 41 42 43 44 45 ddddd" & vbCrLf & _
"eeeee 51 52 53 54 55 eeeee"

Set re = New RegExp
re.Pattern = "dd dd dd dd dd"
re.Global = True
For Each ma In re.Execute(txt)
MsgBox ma.Value
Next ma
Set re = Nothing
End Sub

Quelques explication ici :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/js56jsgrpRegExpSyntax.asp?frame=true

--
Cordialement,

Jacques.

Desole, mais jarrive pa a trouve le fichier vbscript.dll sur mon poste, tu
me me dire ou je peu le telecharger, mais pa chez microsoft jarrive pas a
lavoir.

merci
"Jacques93" <jacques.le-gocNO@PUBwouanadoo.fr> a écrit dans le message de
news: O7bKvbneFHA.1044@TK2MSFTNGP10.phx.gbl...

Bonjour mg,
mg a écrit :
> Salut, je souhaite utiliser les expression reguliere sous vb6 pour

trouver

> des numero de telephone dans un fichier texte ( du genre XX XX XX XX

XX),

> avec XX sont des chiffres et une combinaison de deux fois 5 chiffres.
> Merci davance
>

Ajoutes une référence à Microsoft VBScript Regular Expression
(vbscript.dll). Un petit exemple (sans gestion de fichier) :

Private Sub NumeroTel()
Dim re As RegExp
Dim ma As Match
Dim txt As String

txt = "aaaaa 11 12 13 14 15 aaaaa" & vbCrLf & _
"bbbbb 21 22 23 24 25 bbbbb" & vbCrLf & _
"ccccc 31 32 33 34 35 ccccc" & vbCrLf & _
"ddddd 41 42 43 44 45 ddddd" & vbCrLf & _
"eeeee 51 52 53 54 55 eeeee"

Set re = New RegExp
re.Pattern = "dd dd dd dd dd"
re.Global = True
For Each ma In re.Execute(txt)
MsgBox ma.Value
Next ma
Set re = Nothing
End Sub

Quelques explication ici :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/ht
ml/js56jsgrpRegExpSyntax.asp?frame=true

--
Cordialement,

Jacques.

Bonjour mg,
mg a écrit :

Desole, mais jarrive pa a trouve le fichier vbscript.dll sur mon poste, tu
me me dire ou je peu le telecharger, mais pa chez microsoft jarrive pas a
lavoir.

Normalement, il est dans %systemroot%System32, tu peux le télécharger ici :

http://www.dlldump.com/dll-files/V_2.html

à 'enregistrer' avec regsvr32.

--
Cordialement,

Jacques.

Il s'agit de la Dll de Scripting de Microsoft :
http://www.microsoft.com/scripting