Togliere i doppioni nelle stringhe

[willybit]

Ciao pippaccia1971,

potresti splittare la stringa in un array, poi fai un ciclo dell'array e ricostruisci la stringa mettendo solo valori univoci.
esempio

<%
stringa = "122_113_122_127_148_122_127_150_113"
arr = Split(stringa,"_")

Response.Write stringa & "
"

stringa = ""
for i=LBound(arr) to UBound(arr)
	if InStr(stringa,arr(i))=0 then
		stringa = stringa & arr(i) & "_"
	end if
next
if stringa<>"" then
	stringa = Left(stringa,Len(stringa)-1)
end if

Response.Write stringa & "
"
%>