PureBasic

Code : Tout sélectionner

CreateRegularExpression(0,"[0-9]{10}") ; cherche suite de 10 chiffres

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