 Buono sconto 4% su Toner e Cartucce agli utenti AZpoint. SU Iomiricarico.it!!
Autore: BYLuciani.com
Ecco una piccola funzione che elimina tutti gli spazi bianchi superflui da una stringa di caratteri.
<%
Function Trimmer(sString)
arrTrim = Split(sString, " ")
Trimmer=""
For i = LBound(arrTrim) To UBound(arrTrim)
If arrTrim(i)<>"" Then Trimmer = Trimmer & arrTrim(i) & " "
Next
Trimmer = Trim(Trimmer)
End Function
sText = " ciao, come stai? io bene e tu? "
Response.Write "Stringa di partenza: " & Replace(sText, " ", " ")
Response.Write "Stringa elaborata: " & Replace(Trimmer(sText), " ", " ")
%>
|
Shopping
