senti, o un'ultimo problema... dopo aver trovato le occorrenze le ho analizzate togliendo determinate cose con un replace da esse... Ecco il codice:
codice:
Set Risultato = OggettoRegExp.Execute(TestoPrincipale)
Contatore = 0
For Each Codice In Risultato
If Codice <> "" Then
If ArrayDati.Exists(Replace(Replace(Risultato(Contatore), DelimitatoreSinistro, ""), DelimitatoreDestro, "")) Then
TestoPrincipale = Replace(Replace(TestoPrincipale, , DelimitatoreSinistro, ""), DelimitatoreDestro, "")
End If
Contatore = Contatore + 1
End If
Next
ArrayDati è un array definito con l'oggetto Scripting.Dictionary
il replace toglie dei determinati caratteri all'inizio e alla fine delle occorrenze all'interno della variabile TestoPrincipale. Quindi mi rimane solo l'occorrenza del tipo:
infine ho la variabile TestoPrincipale che contiene il codice HTML di una pagina e al cui interno ci sono mischiate queste occorrenze che ho trovato con la regular expression. Come posso fare per stampare a video il codice HTML + le occorrenze sostituite con un'altro valore? ho provato con il classico replace ma purtroppo non funziona se ho due occorrenze vicine del tipo: