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), " ", " ")
%>