<%
'---------------------------------------
' Função: Remove Espaços Desnecessários
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Data De Criação: 19/07/2003
'---------------------------------------
Function PreparaTexto(texto)
aTexto = Split(texto, " ")
For i = LBound(aTexto) To UBound(aTexto)
If Len(aTexto(i)) > 0 Then nTexto = nTexto & " " & aTexto(i)
Next
PreparaTexto = Trim(nTexto)
End Function
%>
<%= PreparaTexto("Active Server Pages")%>
Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...
1 comentários:
[Enviado originalmente em 25/jul/2003 14:06:54]:
'// REMOVE ESPAÇOS ADICIONAIS
Function RemoveEspacosy(ByVal Str)
While InStr(Str," ") > 0
Str = Replace(Str," "," ")
Wend
RemoveEspacosy = Trim(Str)
End Function
Postar um comentário