PureBasic

Code : Tout sélectionner

"[0-9]{5}"

Code : Tout sélectionner

"[a-zA-Z0-9\-\.]+@[a-zA-Z0-9\-]+\.[a-zA-Z]+"

Code : Tout sélectionner

"0[1-9]([-. ]?[0-9]{2}){4}"

Code : Tout sélectionner

  ; Ar-S / 2010
"ht{2}p:/{2}(www)*(.megaupload.com/\?d=|.gigaup.fr/\?g=|hotfile.com/dl/|depositfiles.com/files/)/*([0-9a-z/]*){17}[a-zA-Z0-9_.\(\)-]{4,}"

Code : Tout sélectionner

Enumeration
  #NumOnly
EndEnumeration


Procedure.s DeformattedString(Buffer.s)
  Protected Dim Result.s (0), NbFound.l, x.i

  If CreateRegularExpression(#NumOnly,"[0-9]")
    NbFound=ExtractRegularExpression(#NumOnly, Buffer, Result())
    
    Buffer=""
    For x=0 To NbFound-1
     Buffer=Buffer+Result(x)
    Next
  
  EndIf
  
  ProcedureReturn Buffer
EndProcedure

;Quelques exemples
Debug DeformattedString("10 235.25 €")
Debug DeformattedString("€ 12 235.00")
Debug DeformattedString("10.125,10 F")
Debug DeformattedString("10/01/11") ; Date

Code : Tout sélectionner

;Extracteur de date v2
;utilisant les expressions régulières
; Par Ar-S / Nov 2011 - P.B 4.60

; Extrait date sous forme jj-mm-aaaa (plus un espace) d'après une date dans sous la forme jj/mm/aaaa ou jj/mm/aaaa dans un string

t$ = "nous sommes le 16/11/2011 et on se caille les miches. Hier c'était pareil, le 15.11.2011 à 11h c'était encore givré" ; le string contenant la date
t$ + "la date suivante ne sera pas prise en compte : 17 11 2012 car le séparateur espace n'est pas indiqué"
Global Dim result$(0) 


Procedure.s ExtractDate(t$,ARS_separateur$)
  ; Ar-S
  ; Extraction de date v2
  
  Final$ = ""
  
  ; v2 permetant de trouver une date utilisant les separateurs "."  "/" et "-"
  expr$ = "([0-9]{2}+[" + ARS_separateur$ + "]){2}[0-9]{4}" 
  
  
  CreateRegularExpression(0,expr$)
  NbrTrouve = ExtractRegularExpression(0, t$ , result$()) ;Extrait les résultat dans result()
  
  If NbrTrouve>0
    
    For k = 0 To NbrTrouve-1
      LaDate$ = result$(k)
      Aremplacer$ = Mid(LaDate$,3,1)
      ; Ensuite la date est convertie ci besoin au format jj-mm-aaaa
      LaDate$ = ReplaceString(LaDate$,Aremplacer$,"-")
      
      If NbrTrouve = 1
        Final$ = LaDate$
      Else
        Final$ + " " + LaDate$
      EndIf
      
    Next 
    
    ; On supprime le 1er espace de gauche s'il y en a
    Final$ = LTrim(Final$)
    
    FreeRegularExpression(0)
    ProcedureReturn Final$
    
   
  Else
    FreeRegularExpression(0)
    ProcedureReturn "Pas de date !"
  EndIf
  
   
EndProcedure

Debug "test 1"
Debug ExtractDate(t$,"/.-") ; ici 3 séparateurs de recherchés

Debug "test 2"
Debug ExtractDate(t$," ") ; ici seulement le séparateur "espace"

End

Code : Tout sélectionner

*RegMatch = CreateRegularExpression(#PB_Any ,"^[-]?\d*[.,]?\d*$")

Debug MatchRegularExpression (*RegMatch, "100.10")
Debug MatchRegularExpression (*RegMatch, "a100.10")
Debug MatchRegularExpression (*RegMatch, "100,10")
Debug MatchRegularExpression (*RegMatch, "-100.10")
Debug MatchRegularExpression (*RegMatch, "-100")

FreeRegularExpression (*RegMatch)

Code : Tout sélectionner

;Vérifier un mot dans une liste
Global *RegMatch = CreateRegularExpression(#PB_Any ,"^(?i)(tomate|courgette|pomme de terre){1}")

Procedure EstUnlegume(Valeur.s)
  ProcedureReturn MatchRegularExpression (*RegMatch, Valeur)
EndProcedure

Debug EstUnlegume("courgette") ;Retournera #True

Debug EstUnlegume("pomme de terre") ;Retournera #True

Debug EstUnlegume("poire") ;Retournera #False

Debug EstUnlegume("Courgette") ;Retournera #True

Debug EstUnlegume("pomme de Terre") ;Retournera #True