Replace Geral

[william_droops 0]

Se eu tenho um dado como o CNPJ, que tem ( . , - e /) como retiro todos com apenas um replace ??

[hargon 64]

Com um único replace, desconheço.

[william_droops 0]

Então tenho que fazer 3 vezes o replace ???

[Ted k' 126]

POG do Ted

cnpj = replace(replace(replace(cnpj, ".", ""), "-", ""), "/", "")

[xanburzum 169]

Belo POG...

 

mas tb você pode colocar em um array...

 

<%
Function Replacetd(Input)
  TempString = Input
   BadChars=array("." , "- ", "/", ";", "--", "#", "%", "&", "'", "(", ")", ":", ";", "<", ">", "=", "[", "]", "?", "`", "|") 
  For iCounter = 0 to uBound(BadChars)
	TempString = replace(TempString,BadChars(iCounter),"")
  Next
  Replacetd = TempString
End function
%>

[Ted k' 126]

xan, o cara quer em uma linha, imagina ai o que ele pensa, hehe!

[Mário Monteiro 179]

com um unico replace nao da

 

so pode fazer um replace dentro do outro como foi demonstrado

[mr.Guardião 0]

Você pode usar também Expressão Regular (Reg Expression)

 

Veja um exemplo:

 

Function ReplaceAll(pString, pPattern)
  Set regEx = New RegExp
  regEx.Global = true
  regEx.IgnoreCase = True
	regEx.Pattern = "["& pPattern &"]"
	ReplaceAll = regEx.Replace(pString, "")
End Function


Response.write "<br>"& ReplaceAll("123.123.123/0001-01", "./-")
Response.write "<br>"& ReplaceAll("123.123.123/0001-01", "/-")
Response.write "<br>"& ReplaceAll("123.123.123/0001-01", ".-")
Response.write "<br>"& ReplaceAll("123.123.123/0001-01", "./")

Até mais,