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