Expression régulière date
Publié : mar. 09/avr./2019 21:31
Bonsoirs à tous
je m'adresse aux virtuose des "Expression régulière";
voilà mon problème, sur un bloc texte je souhaiterais repérer toute les dates
le souci c'est que je ne pige rien à ce langage
j'ai essayé de chopper sur le net quelques exemples de regex mais ils ne sont pas du tout valide((
éclairez moi svp
je m'adresse aux virtuose des "Expression régulière";
voilà mon problème, sur un bloc texte je souhaiterais repérer toute les dates
le souci c'est que je ne pige rien à ce langage
Code : Tout sélectionner
OpenWindow(0,0,0,200,200,"",#PB_Window_ScreenCentered)
EditorGadget(1,0,0,200,180)
;StringGadget(1,0,0,200,180,"")
ButtonGadget(2,0,180,30,20,"cap")
If CreateRegularExpression(10,"(0?[1-9]/[12][0-9]/3[01])") ;(0?[1-9]/[12][0-9]/3[01]) ;(\d{4})-(\d{1,2})-(\d{1,2})
Debug "RegEx ok!"
Else
Debug "RegEx erreur!"
EndIf
Dim Resultat$(0)
Repeat
Event = WaitWindowEvent()
WindowID = EventWindow()
GadgetID = EventGadget()
EventType = EventType()
Select GadgetID
Case 2
txt$=GetGadgetText(1)
If txt$
Nb = ExtractRegularExpression(10, txt$, Resultat$())
For k = 0 To Nb-1
Debug Resultat$(k)
Next
EndIf
EndSelect
ForEver
éclairez moi svp