Jeg har følgende Function:
Function FindDisallowedChars( string, pattern)
'Will return the characters in 'string' that are outside the 'pattern'
FindDisallowedChars =""
if trim( string & " ") = "" then exit function
Dim RegEx
SET RegEx = New RegExp
RegEx.Global = true
RegEx.pattern = pattern
RegEx.ignorecase = true
FindDisallowedChars = Trim( RegEx.replace( string, ""))
set RegEx = nothing
end function
Som returnerer de karakterer i "String", som falder udenfor "Pattern".
Jeg kan derfor teste, om "String" er valid eller ej ved at kigge på, om
det returnerede er tomt eller ej.
Men den er lidt for omstændig (tror jeg), idét den bruger replace, som
vel er ret tidskrævende. For at optimere hastigheden lidt, leder jeg
derfor efter en anden metode, som bare returnerer "True", hvis indholdet
i "String" er indenfor "Pattern", og ellers "False".
Nogen, som kan lede mig i den rigtige retning?
NB: Functionen bruges til at teste indholdet af bl.a. querystring:
if FindDisallowedChars( URIQuery, "[_&=a-zA-Z0-9\+\-#.]")<>"" then..
MVH
Rune Jensen
--
Wawa feat. Fabal - Fuego (Original Mix)
http://www.youtube.com/watch?v=7a_Gcl-QHJc
Homepage:
http://runejensen.dk
Gruppemøde:
http://www.webdesigngruppen.dk