Funktion som ersätter

ASP

3 svar · 196 visningar · startad av Nickemannen 19 feb. 2001

NickemannenMedlem sedan aug. 20003 575 inlägg

Trådstart19 feb. 2001 11:48#1

Kan nån ge mig en funktion som ersätter alla tecken som kan vara krångliga..
till characters istället?

emissionMedlem sedan dec. 19996 721 inlägg

19 feb. 2001 11:57#2

Inte riktigt med nu... Vad menar du med att ersätta till characters? Det blir ju ingen förändring då.

NickemannenMedlem sedan aug. 20003 575 inlägg

19 feb. 2001 12:01#3

Okej, jag kanske var lite otydlig.
Ersätta dom täknerna till t.ex.
om det är ett
' så ändrar den det till Chr(145)
nån som har en färdig sådan funktion.

tohaMedlem sedan dec. 1999707 inlägg

19 feb. 2001 13:43#4


Function ConvSql(ByVal sSql)
	sSql = Replace(sSql, Chr(39), "' & chr(39) & '") ' '
	sSql = Replace(sSql, Chr(34), "' & chr(34) & '") ' "
	sSql = Replace(sSql, Chr(36), "' & chr(36) & '") ' $
	sSql = Replace(sSql, Chr(37), "' & chr(37) & '") ' %
	sSql = Replace(sSql, " & '' & ", " & ")

	ConvSql = sSql
End Function