区分大小写字符串比较

#NoEnv
#Warn
#SingleInstance, Force

MsgBox % ("skan" != "SKAN")          ; False
MsgBox % StrCmp("skan","!=","SKAN")  ; True

StrCmp(Str1, Op, Str2, CS:=1) { ; requires AutoHotkey v1.1.31+
  Local R, SCS := A_StringCaseSense
  StringCaseSense, % (CS := !!CS)
  Switch Op {
    Case ">"        : R := (Str1 >  Str2) 
    Case ">="       : R := (Str1 >= Str2)
    Case "<"        : R := (Str1 <  Str2)
    Case "<="       : R := (Str1 <= Str2)
    Case "=="       : R := (Str1 == Str2)
    Case "!=","<>"  : R := (Str1 != Str2)
    default         : R := (CS ? (Str1 == Str2) : (Str1 = Str2))             
  } 
  StringCaseSense, %SCS%
  Return R
}