Separa la stringa

Grazie al seguente script è possibile separare una stringa di testo in base ad un determinato carattere:

<%

function separa(testo,carattere)

dim separati

separati = split(testo, carattere)

response.write "Frase originale -> " & testo

response.write "<br>Carattere separatore -> " & carattere

response.write "<br>Parti di frase ->"

response.write "<ul>"

for i=0 to ubound(separati)

response.write "<li>"&separati(i)

next

response.write "</ul>"

end function

dim strTesto

strTesto = "qua va il testo da separare"

dim chrCarattere

chrCarattere = "a"

call separa(strTesto,chrCarattere)

%>