StringRegExp Help

[darkjohn20]

I'm trying to figure out a way to validate usernames. The StringRegExp needs to find any of the following in any order, in any place, and in any quantity. It doesn't need to return them, just check if it exists.

` ~ @ # $ % ^ & * ( ) { } [ ] ; : ' " / \ > < . ,

I have this so far, but it doesn't work for some reason. I'm guessing it's probably because of the quotes inside the quotes.

"[`~@#$%^&\*\(\)\{\}\[\];:'"\/\\><.,]"

I read the page on having double quotes like "here is a ""double-quote"" - ok?" but I don't know if it can help me. I tried that, as well, with no success.

[Ascend4nt]

This seems to work for me. I added \Q..\E since there was so many escapes it was just begging for it. Note where I doubled the "". Hope it helps

$sStr="whatever you want here"
$bRes=StringRegExp($sStr,"[\Q`~@#$%^&*(){}[];:'""/\><.,\E]")
ConsoleWrite("Result:"&$bRes&@CRLF)

[darkjohn20]

Thanks, works great. I've got to remember \Q and \E.

[Mison]

Alternatively, you can use StringSplit to check if the string contains any of the delimiters specified.

;~ $string = "clean string"
$string = '"here is a ""double-quote"" - ok?" '
$delimiter = "`~@#$%^&*(){}[];:'/\><.,"&'"'
StringSplit($string,$delimiter) ; If no delimiters were found @error is set to 1
If @error Then 
    MsgBox(0,"","They don't exist!")
Else
    MsgBox(0,"","They do exist!")
EndIf