Takes a script as an argument and capitalizes its syntax. I wrote this so i can code in lowercase and then fix it later on.
For example, stringreplace will become StringReplace... #ifwinexist will become #IfWinExist, etc...
I whipped this up pretty quick and I realize its flawed and at a later time I will get around to making it so it doesn't erroneously capitalize words which shouldn't be.
Code:
#NoEnv
#SingleInstance force
SetBatchLines -1
SetWorkingDir %A_ScriptDir%
If 1 =
ExitApp
SplitPath, A_AhkPath,, AHKPath
; store file into a variable
FileRead f, %1%
;; Fix "If" statements
StringReplace f, f, if%A_Space%, If%A_Space%, A
;; CommandNames.txt
Loop read, %ahkpath%\Extras\Editors\Syntax\CommandNames.txt
StringReplace f, f, %A_LoopReadLine%, %A_LoopReadLine%, A
;; Variables
Loop read, %ahkpath%\Extras\Editors\Syntax\Variables.txt
StringReplace f, f, %A_LoopReadLine%, %A_LoopReadLine%, A
;; Keys
Loop read, %ahkpath%\Extras\Editors\Syntax\Keys.txt
{
If (SubStr(A_LoopReadLine, 1,1) = A_Space)
Or (SubStr(A_LoopReadLine, 1,1) = ";")
Or StrLen(A_LoopReadLine) = 1
Continue
StringReplace f, f, %A_LoopReadLine%%A_Space%&, %A_LoopReadLine%%A_Space%&, A
StringReplace f, f, %A_LoopReadLine%::, %A_LoopReadLine%::, A
StringReplace f, f, {%A_LoopReadLine%}, {%A_LoopReadLine%}, A
}
;; Functions
Loop read, %ahkpath%\Extras\Editors\Syntax\Functions.txt
{
StringSplit line, A_LoopReadLine, (
StringReplace f, f, %line1%(, %line1%(, A
}
;; Create new file
FileDelete %1%
FileAppend %f%, %1%
Login
Register
FAQ
Search
