sábado, 19 de julho de 2003

Remove espaços desnecessários do texto

<%
'---------------------------------------
' 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:

Marcio Lima (Guardião) disse...

[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