Ciao a tutti,

mi sto scontrando con un problema che ritenevo di facile soluzione ma che si è rivelato piuttosto arduo.
Dovrei leggere un file di testo html, metterlo in una stringa e andare a trovare tutte le url presenti, per sostituirle. In pratica, se ho una stringa tipo:

vuoi iscriverti? <a href="xxxxxxxx" >clicca qui</a>

Mi serve una funzione che trovi xxxxxxxx (che ovviamente non conosco), me lo resituisca e sostituisca xxxxxxxx con yyyyyyy che gli passo.

Cercando un po' in giro credo che la soluzione sia l'utilizzo delle espressioni regolari, ma trovo difficoltà nell'usarle.
L'espressione che fa al caso mio dovrebbe essere
^(http|https|ftp)\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}(:[a-zA-Z0-9]*)?/?([a-zA-Z0-9\-\._\?\,\'/\\\+&amp;%\$#\=~])*[^\.\,\)\(\s]$

Prendendo spunto in giro ho impostato la seguente funzione (incompleta):

Public function trovaurl(stringa)
Dim ObjRegexp
Dim risultato
Set ObjRegexp = New RegExp
ObjRegexp.Global = True
ObjRegexp.IgnoreCase = True
ObjRegexp.Pattern = "^(http|https|ftp)\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}(:[a-zA-Z0-9]*)?/?([a-zA-Z0-9\-\._\?\,\'/\\\+&amp;%\$#\=~])*[^\.\,\)\(\s]$"

come uso ora l'oggetto ObjRegexp per ricercare tutte le url presenti in stringa ???


Set ObjRegexp = Nothing
end function


Qualcuno mi può aiutare a completarla?


grazie!