a better way to do this script - using lots of replace() 1

[tester321]

Hi i was wondering i someone was crafty enough to think of a better way to write this function, thanks:

Function Enc(str)
		If Isnull(str) Then
			Enc=""
		Else
			Enc=Replace(Replace(Replace(Replace(Replace(Replace(str,"\","\\"),"{","\{"),"}","\}"),"'","\'"),"(","\("),")","\)")
		End if
End Function

 

[mbiro]

Function Enc(str)
Dim lLBound
Dim lUBound
Dim lCtr
Dim sAns
dim FindChars(6)
findchars(0)="\"
findchars(1)="{"
findchars(2)="}"
findchars(3)="'"
findchars(4)="("
findchars(5)=")"
lLBound = LBound(FindChars)
lUBound = UBound(FindChars)

sAns = str

For lCtr = lLBound To lUBound
sAns = Replace(sAns, FindChars(lCtr), "\" & FindChars(lCtr))
Next

return sAns
End Function

ReplaceMultiple = sAns

 

[Tarwn]

Looks like a job for a regular expression:

DIm teststring : teststring = "this is a test: slash\ bracket{ bracket} singlequote' lparen( rparen) whee"
Response.Write "teststring Unescaped is: " & teststring & "<br/>"
Response.Write "teststring Escaped is: " & EscapeStuff(teststring)

Function EscapeStuff(str)
	Dim regex
	Set regex = New RegExp
	regex.Pattern = "([\\{}'()])"
	regex.Global = True
	EscapeStuff = regex.Replace(str,"\$1")
	Set regex = Nothing
End Function

No loops involved and easily scaled by adding more characters to the pattern.

-T

Best MS KB Ever:

http://support.microsoft.com/kb/555375

 

[tester321]

Tarwn you rock! Thanks to you to mbiro!