Titolo: Estrarre tutti gli URL da un testo
Categoria: Codice |
|
Ultimo Aggiornamento: 28/03/12 |
Col seguente metodo l'array URL_a viene popolato con gli URL che contiene myString:
ARRAY LONGINT(posFound_a;0)
ARRAY LONGINT(lengthFound_a;0)
ARRAY TEXT(URL_a;0)
C_LONGINT($start)
C_TEXT($mySubstring;myString;$1)
C_TEXT(stringNew; pattern)
C_BOOLEAN($found)
myString:=$1
$start:=1
$found:=
Falsepattern:="(http|https|ftp)" ` http o https, o ftp.
pattern:=pattern + "\\://" ` ://
pattern:=pattern + "[a-zA-Z0-9\\-\\.]+" `la prima parte del dominio
pattern:=pattern + "\\.[a-zA-Z]{2,4}" `la seconda parte
pattern:=pattern + "(:[a-zA-Z0-9]*)?/?" `la porta e lo slash
pattern:=pattern + "([a-zA-Z0-9\\-\\._?\\,'/\\+%\\$#\\=~\\:\\&])*" `Caratteri riservati
pattern:=pattern + "[^\\.\\,\\)\\(\\s\\']" `Caratteri da escludere
Repeat $found:=Match regex(pattern;myString;$start;posFound_a;lengthFound_a)
stringNew:=Substring(myString;posFound_a{0};lengthFound_a{0})
If ($found)
APPEND TO ARRAY(URL_a;stringNew)
End if $start:=posFound_a{0}+lengthFound_a{0}
Until (Not($found))
| Inviato da: PierPaolo Sichera |
|
Visite: 11833 |
Se accedi con utente e password, puoi aggiungere dei commenti.
