Super Trim em ASP

pelo fato a função trim, só retirar os espaços que estão antes ou após a string, desenvolvi esta função que retira os espaços no meio da string, sem alterar seu conteúdo.

Neste utilizando uma outra função interessante também que inser um novo Elemento a uma Array já criada.

Bom proveito!
<%
'--------------------------------------------------
' RETIRA ESPAÇOS ADICIONAIS DE UMA STRING
' Autor: Márcio J. Lima (Guardião)
' Email: listas@guardiaodaweb.com.br
' Data de criação: 28-09-2002 - SP / Brasil
'--------------------------------------------------
 reDim a(0)
 sub insere(byref matriz, elemento)
   blnExiste = false
   for i=0 to Ubound(matriz)
    if matriz(i) = elemento then
     blnExiste = true
    End if
   next
   If not blnExiste Then
    redim preserve matriz(Ubound(matriz)+1)
    matriz(ubound(matriz)) = elemento
   End if
 end sub

Function RemoveEspacos(str)
 y = Split(str, " ")
 For x = LBound(y) To UBound(y)
  IF Trim(y(x)) <> " " Then Call insere(a,y(x))
 Next
 m = Join(a)
 RemoveEspacos = Trim(m)
End Function

'strEspacos = " 123   456  78   9  "
strEspacos = " Meu Nome é      Andrei "
response.write RemoveEspacos(strEspacos)
%>

Esta matéria foi postada originalmente no ASP4Developers por Marcio Lima (Guardião) (site), que na época era "Programador ASP e VBA, apaixonado por Design, futurismo e ficção.
". Hoje, vai saber...