macioman ha scritto:

<%

Function Estrai(strTesto, strInizio, strFine)
strTxt = strTesto
Inizio = Instr(strTxt, strInizio) + len(strInizio)
strTxt = Mid(strTxt, inizio)
strTxt = Mid(strTxt, 1, instr(strTxt, strFine)-1 )
Estrai = strTxt
end function

strIniziale = "<P><B><a href=http://www.aspitalia.com>ASPItalia.com</a></B></P><B>PROVA></B>"
strRisultato = Estrai(strIniziale, "<B>", "</B>")
Response.write (strRisultato)

%>




Come faccio ad estrarre tutti i testi compresi tra le <B>></B>? .... lo script mi estrae solo il primo

considerando la posizione dei caratteri? potrebbe essere una soluzione?

---

Modificato da lorenzo_ il 03 marzo 2010 15.23 -

---

Modificato da lorenzo_ il 03 marzo 2010 15.24 -

sinceramente non l'ho mai usate ... ora mi sto documentando ... ma nn ci capisco ancora molto :D

<%
StringToSearch = "forbidden this is the text that needs to be searched and contains the forbidden word"

Set regularexpressionobject = New RegExp

With regularexpressionobject
.Pattern = "forbidden"
.IgnoreCase = False
.Global = True
End With

Set expressionmatch = regularexpressionobject.Execute(StringToSearch)

If expressionmatch.Count > 0 Then
For Each expressionmatched in expressionmatch
Response.Write "<B>" & expressionmatched.Value & "</B> was matched at position <B>" & expressionmatched.FirstIndex & "</B><BR>"
Next

Else
Response.Write "<B>" & regularexpressionobject.Pattern & "</B> was not found in the string: <B>" & StringToSearch & "</B>."
End If

Set regularexpressionobject = nothing
%>

--------------------------------------------------------------------------------

ho trovato questa RegExp che mi trova in che posizione si trova il tag .... ma non capisco come fare a far comparire il testo che si trova tra i tag :( suggerimenti