Expressions régulières : Des masques tout fait

Chris · **Inscription:** Sam 24/Jan/2004 14:54 **Messages:** 3728

Si vous avez des masques que vous voulez partager, postez les ici.

Inutile de mettre toute la fonction. Mettez uniquement la chaine entre guillemets
avec une description courte de ce qu'elle est censée faire, comme ici.

Extraire un code postal :

Code:

"[0-9]{5}"

Extraire une adresse mail :

Code:

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

Extraire un numéro de téléphone :

Code:

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

Ar-S · **Inscription:** Dim 09/Oct/2005 16:51 **Messages:** 5323

Pour logiquement extraire des liens
- MegaUpload
- Hotfile
- Depositefile
- Gigaup

P.S : pas de commentaires foireux sur le type de fichier à récupérer, là n'est pas le sujet, merci.

Code:

  ; 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,}"

falsam

Deformater un string numérique formater

Exemple :
la chaine "10 235.25 €" deviendra "1023525"

Code:

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

Ar-S · **Inscription:** Dim 09/Oct/2005 16:51 **Messages:** 5323

Code:

;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

falsam

Numérique avec ou sans une seule decimale.

Code:

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

Mesa · **Inscription:** Mer 14/Sep/2011 16:59 **Messages:** 345

Une petite application nommée "reval" a été développée en purebasic pour tester vos expressions régulières.

Bien pratique.
C'est quelque chose qui pourrait même faire partie de l’éditeur de PB àmon avis.

http://bluez.home.xs4all.nl/purebasic/purebasic%2029.htm#4_reval

Téléchargement direct:
http://bluez.home.xs4all.nl/purebasic/reval.zip

Mesa.

Ar-S · **Inscription:** Dim 09/Oct/2005 16:51 **Messages:** 5323

Merci pour le lien Mesa, ça peut être bien pratique.

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 13086

Mesa a écrit:

C'est quelque chose qui pourrait même faire partie de l’éditeur de PB àmon avis.

je sais plus pour l'editeur Officiel , mais pour ce qui concerne , Japbe , ou EPB

on peut avoir acces a un utilitaire
par le menu , donc, utilisable a volonté pendant le codage

falsam

Code:

;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

djes

Luis a fait un bon topic là-dessus, ici : http://www.purebasic.fr/english/viewtop ... 12&t=47361

D'autre part, didelphodon a créé un programme pour tester les expressions régulières, Rexman: http://www.purebasic.fr/english/viewtop ... 27&t=37212

Je pense que ce serait une bonne idée de rendre ce sujet permanent.

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 13086

djes a écrit:

Je pense que ce serait une bonne idée de rendre ce sujet permanent.

indirectement fait , je viens d'ajouter ce Topic dans le sommaire des Tutos
viewtopic.php?f=21&t=6664&p=65087#p65087

section "Divers" Sujet numero 2 ..

PureBasic

Expressions régulières : Des masques tout fait

Qui est en ligne