Bref, aux amateurs de Regex, HELP. (Marc56 si tu me lis
)
Oui, je lis, les vieux ça se lève tôt
et une RegEx au p'tit déj' ça réveille les neurones
Sachant qu'une URL ne contient pas d'espace, c'est simple, on écrit de gauche à droit
1. http
http
2. éventuellement un s
s?
3. quelques caractères fixes (facultatif, mais peut limiter un éventuel texte parasite)
://
4. tout sauf un espace
[^ ]+
(On peut serrer un peu plus en limitant 4. aux caractères autorisés [a-z0-1_.-&#]+ (et j'en oublie))
De plus, puisque l'expression se suffit à elle-même tu peux utiliser RegularExpressionMatchString(0)
Code : Tout sélectionner
; copiez le texte dans le presse papier
t$ = GetClipboardText()
If CreateRegularExpression(0,"https?://[^ ]+", #PB_RegularExpression_DotAll)
If ExamineRegularExpression(0, T$)
While NextRegularExpressionMatch(0)
Debug RegularExpressionMatchString(0)
Wend
EndIf
FreeRegularExpression(0)
Else
Debug "Regex non init"
EndIf
Code : Tout sélectionner
https://trucfix/randomjekjen
https://pasbonlien/qsdqsd
http://trucfix/raSD4zje/4646.ccn
https://trucfix/raSD4zje/4646.ccn
https://trucfix/raSD4zje/4644z55z5z-454.dqq.c0n
Pas de soucis pour les sauts de ligne puisque #PB_RegularExpression_DotAll les prends aussi.
PS.
Pour les allergiques aux RegEx, une version FindString
Code : Tout sélectionner
t$ = "1 https://trucfix/randomjekjen *MARKEUR*" +
"2 https://pasbonlien/qsdqsd *MARKEUR*" +
"3 http://trucfix/raSD4zje/4646.ccn *MARKEUR*" +
"4 https://trucfix/raSD4zje/4646.ccn *MARKEUR*" +
"5 prout https://trucfix/raSD4zje/4644z55z5z-454.dqq.c0n *MARKEUR*"
Debug "--- HTTPS"
Repeat
STX = FindString(t$, "https://", ETX)
If STX = 0 : Break : EndIf
ETX = FindString(t$, " ", STX)
Debug Mid(t$, STX, ETX-STX)
ForEver
Debug "--- HTTP"
ETX = 0
Repeat
STX = FindString(t$, "http://", ETX)
If STX = 0 : Break : EndIf
ETX = FindString(t$, " ", STX)
Debug Mid(t$, STX, ETX-STX)
ForEver
Code : Tout sélectionner
--- HTTPS
https://trucfix/randomjekjen
https://pasbonlien/qsdqsd
https://trucfix/raSD4zje/4646.ccn
https://trucfix/raSD4zje/4644z55z5z-454.dqq.c0n
--- HTTP
http://trucfix/raSD4zje/4646.ccn