[Resolvido] trim nao funciona

[desisto 0]

trim("teste   teste")

nao remove o espaço

 

nao era pra remover??? 

 

 

 

 

eu dou um split(" ")e um ubound, e o retorno é 3 - nao esta removendo espaços

[Didiron 0]

o Trim retira os espaços no começo e no fim de uma String exemplo:

 

Trim("  25/07/2006  ") = "25/07/2006"

Abração.

[desisto 0]

po, jurava que tb tirava da meiuca  :huh:

 

 

 

 

vou ter que fazer um funcao pra remover do meio

 

 

 

 

valeu

 

[]s

[xanburzum 169]

existe algumas funções para manipulação de string no lab. de script pode te ajudar

 

<%
Private Function CaracRemove(byVal string, byVal remove)
	Dim i, j, tmp, strOutput
	strOutput = ""
	for j = 1 to len(string)
		tmp = Mid(string, j, 1)
		for i = 1 to len(remove)
			tmp = replace( tmp, Mid(remove, i, 1), "")
			if len(tmp) = 0 then exit for
		next
		strOutput = strOutput & tmp
	next
	RmChr = strOutput
End Function
%>

 

exemplo:

<%
Dim teste, Nãopermitido

 ' String para limpar
teste =	"sjsvnw)68&Y469$T_W$(*T+}D|3567808SDK49SO" & _
		"DJ0570570Gosdnp SNDFG_S(*GH-S570570GN*4 jwt jtj+W$T )"

 'Permitir espaços, sublinhados e qualquer número ou uma letra do alfabeto. 

Nãopermitido = "[]+=)(*&^%$#@!|\/?><,{}:;.-~`'" & chr(34) & vbCrLf & vbTab
Response.Write CaracRemove(teste , Nãopermitido) & "<BR>"

 ' remover letras minúsculas
Nãopermitido = lcase("abcdefghijklmnopqrstuvwxyz")
Response.Write CaracRemove(teste , Nãopermitido) & "<BR>"

 ' remover letras maiúsculas 
Nãopermitido = ucase("abcdefghijklmnopqrstuvwxyz")
Response.Write CaracRemove(teste , Nãopermitido) & "<BR>"

 ' remover números 
Nãopermitido = "0123456789"
Response.Write CaracRemove(teste , Nãopermitido) & "<BR>"

 ' remover espaços, tabs, carriagereturns ...
Nãopermitido = " " & vbTab & vbCrLf
Response.Write CaracRemove(teste , Nãopermitido) & "<BR>"
%>

[Salgado 4]

Uma função recursiva, usando a função nativa REPLACE resolve seu problema Desisto.

[desisto 0]

adaptei uma funcao que tinha ai, em uma duvida que postei sobre limpar multiplas quebras de linha

 

 

 

 

ficou assim

 

campo = trim(campo)
While InStr(1, campo, "  ", vbTextCompare) > 0
	campo = Replace(campo,"  "," ", 1, -1, 1)
Wend

o replace p/ outros caracteres eu faço separado

 

[]s

[xanburzum 169]

beleza....