AutoHotkey Community

ValidVarName( x )
{ ; by Infogulch - http://www.autohotkey.com/forum/viewtopic.php?p=219669#219669
   Loop, Parse, x
   {
      chr:=Asc(A_LoopField)
      If (48 <= chr && chr <= 57)
            || (65 <= chr && chr <= 90)
            || (97 <= chr && chr <= 122)
         Continue
      Else If chr in 35,36,63,64,91,93,94
         Continue
      Else, Return 0
   }
   Return 1
}

/*
Asc values for various characters:

   0-9: 48-57
   A-Z: 65-90
   a-z: 97-122
   # : 35
   $ : 36
   ? : 63
   @ : 64
   [ : 91
   ] : 93
   _ : 94
*/

PassGlobal(varname, newvalue="PG_[VxE]_SAYS_NO_NEW_VALUE")
{
   local tempval
   Loop, Parse, varname ; check validity of varname
   If !InStr("1234567890qwertyuiopasdfghjklzxcvbnm#_@$?[]", A_LoopField)
   return "" ; boo hoo... not valid T_T
   tempval := %varname%
   If (newvalue != "PG_[VxE]_SAYS_NO_NEW_VALUE")
      %varname% := newvalue
   return tempval
}

SetBatchLines, -1
start := A_TickCount
Loop % 10**6
   bubble := PassGlobal("bubble")
msgbox % "It took " A_TickCount - start "ms to do a million of those."
; tested at 20609 on my machine

start := A_TickCount
Loop % 10**6
   bubble := ValidVarName( "bubble" )
msgbox % "It took " A_TickCount - start "ms to do a million of those."
; tested at 40578 on my machine

ValidVarName( x )
{ ; by Infogulch - http://www.autohotkey.com/forum/viewtopic.php?p=219669#219669
   Loop, Parse, x
   {
      chr:=Asc(A_LoopField)
      If (48 <= chr && chr <= 57)
            || (65 <= chr && chr <= 90)
            || (97 <= chr && chr <= 122)
         Continue
      Else If chr in 35,36,63,64,91,93,94
         Continue
      Else, Return 0
   }
   Return 1
}

/*
Asc values for various characters:

   0-9: 48-57
   A-Z: 65-90
   a-z: 97-122
   # : 35
   $ : 36
   ? : 63
   @ : 64
   [ : 91
   ] : 93
   _ : 94
*/

PassGlobal(varname, newvalue="PG_[VxE]_SAYS_NO_NEW_VALUE")
{
   local tempval
   Loop, Parse, varname ; check validity of varname
   If !InStr("1234567890qwertyuiopasdfghjklzxcvbnm#_@$?[]", A_LoopField)
   return "" ; boo hoo... not valid T_T
   tempval := %varname%
   If (newvalue != "PG_[VxE]_SAYS_NO_NEW_VALUE")
      %varname% := newvalue
   return tempval
}

var = myvar123

If (RegExMatch(var, "i)^[a-z\d#_@$?[\]]{1,254}$"))
   MsgBox, is valid
Else MsgBox, not valid

If (RegExMatch(var, "i)^[\w#@$?[\]`€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ]{1,254}$"))
   MsgBox, is valid
Else MsgBox, not valid

[\w#@$?\[\]%\x80-\xFF]{1,254}

n = A_TickCount
MsgBox % %n% ; works
MsgBox % %n% "" ; doesn't work

funny variable = ? ; space = ALT 0160, ANSI
MsgBox % funny variable

another one = ! ; space = ALT 255, US codepage
MsgBox % another one

² × ³ = 6
MsgBox %² × ³%