Salve a tutti,
sto effettuando un semplice parsing di un testo.. ma nonostante tutto non riesco a capire cosa e dove sbaglio..
voi sapete aiutarmi?
Vi fornisco la funzione con cui estraggo, e il testo su cui agisce:
codice:
Function estrai(elemento)
Dim objRegExp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True

'Estraggo il titolo:
objRegExp.Pattern = "[b]([^<b\/>]+)<b\/>"
elemento = objRegExp.Replace(elemento, "Titolo: $1 
")
'Estraggo indirizzo:
objRegExp.Pattern = "via:(via:[^tel:]+)tel:"
elemento = objRegExp.Replace(elemento, "Indirizzo:
$1
")
'Estraggo tel/fax:
objRegExp.Pattern = "tel:(tel:[^]+)'"
elemento = objRegExp.Replace(elemento, "E-mail:
$1
")
'Estraggo sito:
objRegExp.Pattern = "<a target='_blank' href=(<a target='_blank' href='[^'>]+)'>"
elemento = objRegExp.Replace(elemento, "Sito:
$1
")

set objRegExp = Nothing
estrai = elemento
End Function
Testo su cui agisce la funzione:



<div align='right'>( 1 )</div>


AI - ALZHEIMER ITALIA FEDERAZIONE DELLE ASSOCIAZIONI ALZHEIMER

via: VIA TOMMASO MARINO, 7

MILANO

tel: 02-809767

fax: 02-875781 - altro tel:

alzit@tin.it, info@alzheimer.it

http://www.alzheimer.it