Originariamente inviato da Mems
codice:
' nota: togliere lo spazio tra & e il resto della stringa
dim arrayCaratteri(11,1)
arrayCaratteri(0,0) = "à"
arrayCaratteri(0,1) = "& agrave;"
arrayCaratteri(1,0) = "è"
arrayCaratteri(1,1) = "& egrave;"
arrayCaratteri(2,0) = "é"
arrayCaratteri(2,1) = "& eacute;"
arrayCaratteri(3,0) = "ì"
arrayCaratteri(3,1) = "& igrave;"
arrayCaratteri(4,0) = "ò"
arrayCaratteri(4,1) = "& ograve;"
arrayCaratteri(5,0) = "ù"
arrayCaratteri(5,1) = "& ugrave;"
arrayCaratteri(6,0) = " < "
arrayCaratteri(6,1) = " & lt; "
arrayCaratteri(7,0) = " > "
arrayCaratteri(7,1) = " & gt; "
arrayCaratteri(8,0) = "ç"
arrayCaratteri(8,1) = "& ccedil;"
arrayCaratteri(9,0) = "°"
arrayCaratteri(9,1) = "& deg;"
arrayCaratteri(10,0) = "£"
arrayCaratteri(10,1) = "& pound;"
arrayCaratteri(11,0) = "€"
arrayCaratteri(11,1) = "& euro;"
E'questo quello corretto.
Copialo e incollalo. Devi solo levare gli spazi dopo il carattere &, solo quelli.
Nel caso di < e > lascia gli spazi prima e dopo, idem per i corrispondenti encoding.