Har inte riktigt fattat det där med regexp och .net! Kan man också använda sin pattern till att ta bort otillåtna tecken automatiskt?
Det hela gäller en customvalidator i för vb. Alltså hittar den några otillåtna tecken vill jag ta bort dem.
RegExp.Replace(input, "pattern", output)
mitt problem är att det pattern jag har för att matcha inte vill fungera med replace. Låt oss säga att jag söker en match med
^[a-zA-Z0-9]+$
Hur skulle jag kunna få samma mönster att helt enkelt ta bort otillåtna tecken?
Har lite problem då vi ska söka i databasen efter något ledigt (AutoPostBack) och då måste jag ta bort otillåtna tecken innan jag söker annars går det galet.
Har löst det så länge med följande kod. Tyvärr känns den både klumpig och ful.
Function SQLEncode(ByVal myString As String)
myString = Replace(myString, "'", "")
myString = Replace(myString, "!", "")
myString = Replace(myString, "?", "")
myString = Replace(myString, "*", "")
myString = Replace(myString, "&", "")
myString = Replace(myString, "^", "")
myString = Replace(myString, "%", "")
myString = Replace(myString, "$", "")
myString = Replace(myString, "~", "")
myString = Replace(myString, "`", "")
myString = Replace(myString, ")", "")
myString = Replace(myString, "(", "")
myString = Replace(myString, "=", "")
myString = Replace(myString, "\", "")
myString = Replace(myString, "|", "")
myString = Replace(myString, ";", "")
myString = Replace(myString, ":", "")
myString = Replace(myString, "<", "")
myString = Replace(myString, ">", "")
myString = Replace(myString, " ", "")
myString = Replace(myString, ",", "")
myString = Replace(myString, ".", "")
myString = Replace(myString, "[", "")
myString = Replace(myString, "]", "")
myString = Replace(myString, "{", "")
myString = Replace(myString, "}", "")
myString = Replace(myString, "/", "")
myString = Replace(myString, """", "")
myString = Replace(myString, "#", "")
myString = Replace(myString, "@", "")
myString = Replace(myString, "å", "")
myString = Replace(myString, "¨", "")
myString = Replace(myString, "ä", "")
myString = Replace(myString, "ö", "")
myString = Replace(myString, "¤", "")
myString = Replace(myString, "Å", "")
myString = Replace(myString, "Ä", "")
myString = Replace(myString, "Ö", "")
myString = Replace(myString, "´", "")
myString = Replace(myString, "+", "")
SQLEncode = myString
End Function