[Resolvido] Removendo caracteres

[xanburzum 169]

Removendo caracteres de uma string

 

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

%>