)Code : Tout sélectionner
CreateRegularExpression(0,"[0-9]{10}") ; cherche suite de 10 chiffres
Je suis pour !D'ailleurs, ça serait pas mal de faire un topic dans les tutos ou chacun pourrait déposer juste le masque et en disant ce qu'il fait.
Code : Tout sélectionner
CreateRegularExpression(0,"0[1-9]([-. ]?[0-9]{2}){4}")Code : Tout sélectionner
0[1-9]Code : Tout sélectionner
[-. ]?Code : Tout sélectionner
[0-9]{2})Code : Tout sélectionner
{4}
Code : Tout sélectionner
;Extracteur de numéro de tel
;utilisant les expressions régulières
; Par Ar-S / janvier 2010 - P.B 4.51
; Exemple de contenu cible avec numéros de tel à extraire
Global t$="Michau Louison 06.78.58.12.20 6 rue chapelle des monts dussant "+Chr(10)+"Toto Lamangue : 0678581220 bouse les Vilains 32321 route des 1000121457geeks "
Global NbrTrouve
Dim result$(0)
CreateRegularExpression(0,"0[1-9]([-. ]?[0-9]{2}){4}")
;Explication en détail
; ----1er bloc------
;0 : on indique que la suite recherchée commence par 0
;[1-9] : ensuite un nouveau chiffre de 1 à 9 (ceci dans l'idée qu'un numéro de tel ne commence pas par 00)
; ----2eme bloc------
;([-. ]?[0-9]{2}){4}
; on peut voir qu'il y a un contenu entre parenthèse
; ce contenu ([-. ]?[0-9]{2}) va être répété 4 fois à cause de {4}
;Voyons plus en détail le contenu des parenthèses
; [-. ]? : sigifie qu'il peut y avoir un séparateur . - ou espace
; le ? signifie que ce n'est pas obligatoire.
; [0-9]{2} : signifie qu'il y a ensuite 2 fois 1 chiffre de 0 à 9 (donc une suite de 2 chiffres)
;0[1-9]([-. ]?[0-9]{2}){4} trouverait une pseudo francisation équivalante à : 0 puis 1 ou 9 puis un séparateur qui sera présent ou non entre les 4 prochaines suite de 2 chiffres.
NbrTrouve = ExtractRegularExpression(0, t$ , result$()) ;Extrait les résultat dans result()
If NbrTrouve>0
message$= Str(NbrTrouve) +" numéro de trouvé"
If NbrTrouve=1
message$= Str(NbrTrouve) +" numéros de trouvés"
EndIf
Debug message$
For k = 0 To NbrTrouve-1
NumTel$=result$(k)+Chr(10)+Chr(13)
Debug "Numéro "+Str(k+1)+" : "+NumTel$
Next
Else
message$= "Aucun numéro n'a été trouvé :'( "
Debug message$
EndIf
End
Code : Tout sélectionner
"^0[1-68]([-. ]?[0-9]{2}){4}$"Code : Tout sélectionner
;Extracteur de lien rar
;utilisant les expressions régulières
; Par Ar-S / janvier 2010 - P.B 4.51
; Exemple de contenu cible avec numéros et lien rar à extraire
Global t$
t$="Michau Louison 06.78.58.12.20 6 rue chapelle http://test001.monserveur.com/monfichier.rar des monts dussant "+Chr(10)+"Toto Lamangue : 0678581220 bouse les Vilains 32321 route des 1000121457geeks "
t$+Chr(10)+"Morticia http://patate.fr elle aimme le pudding.rar"
Global NbrLien,NbrTel
Dim result$(0)
Dim resultel$(0)
;
expr$="http://[a-z0-9./_-]+.rar{1,}" ; lien menant à un .rar
CreateRegularExpression(0,expr$)
NbrLien = ExtractRegularExpression(0, t$ , result$()) ;Extrait les résultat dans result()
If NbrLien>0
message$= Str(NbrLien) +" Liens de trouvés"
If NbrLien=1
message$= Str(NbrLien) +" Lien de trouvé"
EndIf
Debug message$
For k = 0 To NbrLien-1
NumTel$=result$(k)
Debug "Lien "+Str(k+1)+" : "+NumTel$
Next
Else
message$= "Aucun lien n'a été trouvé :'( "
Debug message$
EndIf
Debug "----------------"
expTel$ = "0[1-9]([-. ]?[0-9]{2}){4}" ; la mienne ; TELEPHONE
CreateRegularExpression(1,expTel$)
NbrTel = ExtractRegularExpression(1, t$ , resultel$()) ;Extrait les résultat dans result()
If NbrLien>0
message2$= Str(NbrTel) +" numéros de trouvés"
If NbrTel=1
message2$= Str(NbrTel) +" numéro de trouvé"
EndIf
Debug message2$
For k = 0 To NbrTel-1
NumTel$=resultel$(k)
Debug "Lien "+Str(k+1)+" : "+NumTel$
Next
Else
message2$= "Aucun lien n'a été trouvé :'( "
Debug message2$
EndIf
End
Ah ben oui!Ar-S a écrit :pas besoin de "^" et "$" (1er et dernier)
Enlève les et cette expression marche.
