AutoHotkey Community

SetWorkingDir, %A_ScriptDir%

RegRead, ahk_dir, HKEY_LOCAL_MACHINE, SOFTWARE\AutoHotkey, InstallDir
if ErrorLevel <> 0  ; Use a best guess location instead.
   ahk_dir = %ProgramFiles%\AutoHotkey

IfNotExist %ahk_dir%
{
   MsgBox Could not find the AutoHotkey folder.
   ExitApp
}

FileDelete, %A_ScriptDir%\Out.ahk


FileRead, AHKCommands, *t %ahk_dir%\Extras\Editors\Syntax\CommandNames.txt
FileRead, AHKVars, *t %ahk_dir%\Extras\Editors\Syntax\Variables.txt


AutoTrim, Off ;to save indentation

;reading the dropped script line by line
Loop, Read, %1%, %A_ScriptDir%\Out.ahk
{
   CurrLine = %A_LoopReadLine%
   
   ;Change Command Name Cases
   Loop, Parse, AHKCommands, `n
   {
      ;a limit check
      IfLess, A_LoopField, 5, Continue
      
      IfInString, CurrLine, %A_LoopField%
         StringReplace, CurrLine, CurrLine, %A_LoopField%, %A_LoopField%, A
   }
   
   
   ;Change Variable Cases
   Loop, Parse, AHKVars, `n
   {
      ;a limit check, but this one takes into care vars like A_DD
      IfNotInString, A_LoopField, a_
         IfLess, A_LoopField, 5, Continue
      
      IfInString, CurrLine, %A_LoopField%
         StringReplace, CurrLine, CurrLine, %A_LoopField%, %A_LoopField%, A
   }


   FileAppend, %CurrLine%`n
}

IfLess, A_LoopField, 5, Continue

regread, ahk_dir, hkey_local_machine, software\autohotkey, installdir
if errorlevel <> 0  ; use a best guess location instead.
;ahk_dir = %programfiles%\autohotkey
ahk_dir = c:\programme\autohotkey
ifnotexist %ahk_dir%
{
msgbox could not find the autohotkey folder.`nplease edit script.
exitapp
}

gosub, readsyntaxfiles

regread, ahk_dir, hkey_local_machine, software\autohotkey, installdir
If ErrorLevel <> 0  ; use a best guess location instead.
;ahk_dir = %programfiles%\autohotkey
  ahk_dir = c:\programme\autohotkey
Ifnotexist %ahk_dir%
{
  msgbox could not find the autohotkey folder.`nplease edit script.
  exitapp
}

gosub, readsyntaxfiles