Skip to content

Commit

Permalink
Add files via upload
Browse files Browse the repository at this point in the history
  • Loading branch information
@samfisherirl
samfisherirl committed Jan 6, 2024
1 parent 8fdd68e commit 1635559
Showing 1 changed file with 57 additions and 61 deletions.
118 changes: 57 additions & 61 deletions required/convert/converterMod.ahk
View file
Original file line number Diff line number Diff line change
@@ -1,21 +1,13 @@
modifyAhkv2ConverterOutput(FNOut := "path", script := "code") ;outscript_path
{
GuiControlVars := []
, GuiControlVars.Push(Map("item", "Button", "event", "Click", "function", "Text"))
, GuiControlVars.Push(Map("item", "DropDownList", "event", "Change", "function", "Text"))
, GuiControlVars.Push(Map("item", "Edit", "event", "Change", "function", "Value"))
, GuiControlVars.Push(Map("item", "DateTime", "event", "Change", "function", "Value"))
, GuiControlVars.Push(Map("item", "MonthCal", "event", "Change", "function", "Value"))
, GuiControlVars.Push(Map("item", "Radio", "event", "Click", "function", "Value"))
, GuiControlVars.Push(Map("item", "CheckBox", "event", "Click", "function", "Value"))
, GuiControlVars.Push(Map("item", "ComboBox", "event", "Change", "function", "Text"))
eventList := []
GuiItemCounter := [1, 1, 1, 1, 1, 1, 1, 1]
brackets := 0
; RemoveFunction==1 loops to find `{}` while `{}` not found in line
new_outscript := ""
buttonFound := 0, itemFound := 0, editCount := 0, menuHandler := 0, guiShow := 0, RemoveFunction := 0, menuHandle := 0, GuiEsc := 0, FindMenu := 0, FindMenuBar := 0, MenuHandleCount := 0, ctrlcolor := 0
guiname := "", title := "", GuiItem_Storage := [], Edit_Storage := [], GuiCtrlStorage := []
GuiControlVars := [{ item: "Button", event: "Click", function: "Text" }, { item: "DropDownList", event: "Change", function: "Text" }, {
item: "Edit", event: "Change", function: "Value" }, { item: "DateTime", event: "Change", function: "Value" }, { item: "MonthCal", event: "Change", function: "Value" }, { item: "Radio", event: "Click", function: "Value" }, { item: "CheckBox", event: "Click", function: "Value" }, { item: "ComboBox", event: "Change", function: "Text" }]
,eventList := []
,GuiItemCounter := [1, 1, 1, 1, 1, 1, 1, 1]
,brackets := 0 ; RemoveFunction==1 loops to find `{}` while `{}` not found in line
,new_outscript := ""
,buttonFound := 0, itemFound := 0, editCount := 0, menuHandler := 0, guiShow := 0, RemoveFunction := 0, menuHandle := 0, GuiEsc := 0, FindMenu := 0, FindMenuBar := 0, MenuHandleCount := 0, ctrlcolor := 0
,guiname := "", title := "", GuiItem_Storage := [], Edit_Storage := [], GuiCtrlStorage := []
if FileExist(FNOut) {
FileMove(FNOut, A_ScriptDir "\required\convert\temp.txt", 1)
}
Expand All @@ -26,15 +18,20 @@
? "`n#Requires Autohotkey v2`n;AutoGUI 2.5.8 creator: Alguimist autohotkey.com/boards/viewtopic.php?f=64&t=89901`n;AHKv2converter creator: github.com/mmikeww/AHK-v2-script-converter`n;Easy_AutoGUI_for_AHKv2 github.com/samfisherirl/Easy-Auto-GUI-for-AHK-v2`n`n"
: new_outscript
if (RemoveFunction = 1) {
hasOpeningBracket := InStr(TrimmedField, "{")
,hasClosingBracket := InStr(TrimmedField, "}")

if (hasOpeningBracket && !hasClosingBracket) {
brackets += 1
if InStr(TrimmedField, "{") && not InStr(TrimmedField, "}") {
brackets += 1 ; for every opening bracket, remove until equal number of closed brackets found
continue
}
else if (!hasOpeningBracket && InStr(A_LoopField, "}")) {
brackets := (brackets > 1) ? brackets - 1 : 0
,RemoveFunction := brackets = 0 ? 0 : RemoveFunction ; Conditional assignment
else if InStr(A_LoopField, "}") && not InStr(TrimmedField, "{") {
if (brackets <= 1) {
RemoveFunction := 0
,brackets := 0
continue
}
else if (brackets > 1) {
brackets := brackets - 1
continue
}
}
else {
continue
Expand All @@ -45,12 +42,11 @@
,new_outscript .= A_LoopField "`n"
continue
}
; =================== check for gui items =======================
; =================== check for gui items =======================
if InStr(A_LoopField, "Add(") {
ret := checkforGuiItems(A_LoopField, &GuiControlVars, &GuiItemCounter, &GuiCtrlStorage)
; ; loop through and look for GuiControlVars[]
if (ret[1] = 1) {
;button
itemFound := 1
,lastGuiControl := ret[2]
,oldvar := StrSplit(A_LoopField, " := ")[1]
Expand Down Expand Up @@ -97,7 +93,7 @@
;provide tooltips when buttons are clicked or values are entered
if (menuHandle = 1) && (MenuHandleCount < 2) {
new_outscript .= "`nMenuHandler(*)`n" tooltip_()
,GuiEsc := 1
GuiEsc := 1
}
if (itemFound = 1) {
func := "`nOnEventHandler(*)`n"
Expand Down Expand Up @@ -125,6 +121,7 @@
;remove all if cases
continue
}

else if (Trim(A_LoopField = "Return") || Trim(A_LoopField = "return")) {
continue
}
Expand All @@ -136,19 +133,20 @@
if InStr(hex, "0x") {
hex := StrReplace(hex, "0x", "")
}
new_outscript .= lastGuiControl ".Opt(`"Background" hex "`")" "`n"
new_outscript .= lastGuiControl ".Opt(`"Background" hex "`")"
new_outscript .= "`n"
}
}
else if (TrimmedField = "Menu := Menu()") {
;fix naming convension of Menu
new_outscript .= StrReplace(A_LoopField, "Menu := Menu()", "Menu_Storage := Menu()")
,new_outscript .= "`n"
,FindMenu := 1
new_outscript .= "`n"
FindMenu := 1
}
else if InStr(TrimmedField, ".New(") {
;fix naming convension of Menu
new_outscript .= StrReplace(A_LoopField, ".New(", ".Opt(")
,new_outscript .= "`n"
new_outscript .= "`n"
Continue
}
else if (FindMenu = 1) && (InStr(TrimmedField, "Menu.Add(")) {
Expand All @@ -160,7 +158,7 @@
else if (TrimmedField = "MenuBar := Menu()") {
;fix naming convension of MenuBar
new_outscript .= StrReplace(A_LoopField, "MenuBar := Menu()", "MenuBar_Storage := MenuBar()") "`n"
,FindMenuBar := 1
FindMenuBar := 1
}
else if (FindMenuBar = 1) && InStr(TrimmedField, "MenuBar.Add(") {
if (StrSplit(TrimmedField, "(")[1] = "MenuBar.Add") {
Expand Down Expand Up @@ -205,41 +203,39 @@
new_outscript := InStr(new_outscript, "ListviewListview") ? new_outscript := StrReplace(new_outscript, "ListviewListview", "_Listview") : new_outscript
InStr(new_outscript, "ogc") ? new_outscript := StrReplace(new_outscript, "ogc", "") : new_outscript := new_outscript
return new_outscript

checkforGuiItems(LoopField, &GuiControlVars, &GuiItemCounter, &GuiCtrlStorage) {
for index, ctrl in GuiControlVars
}
checkforGuiItems(LoopField, &GuiControlVars, &GuiItemCounter, &GuiCtrlStorage) {
for index, ctrl in GuiControlVars
{
if InStr(LoopField, Format(".Add(`"{1}`"", ctrl.item))
{
if InStr(LoopField, Format(".Add(`"{1}`"", ctrl["item"]))
{
var := (InStr(LoopField, " := ")) ? StrSplit(LoopField, " := ")[1]
: ctrl["item"] GuiItemCounter[index]
var := (IsAlpha(var) || IsAlnum(var)) ? var : cleanAlpha(var) GuiItemCounter[index]
(InStr(LoopField, " := ")) ? GuiCtrlStorage.Push({ name : var, event: ctrl["event"], function: ctrl["function"]})
: GuiItemCounter[index] += 1
return [InStr(LoopField, " := ") ? 1: 2, var]
}
var := (InStr(LoopField, " := ")) ? StrSplit(LoopField, " := ")[1]
: ctrl.item GuiItemCounter[index]
var := (IsAlpha(var) || IsAlnum(var)) ? var : cleanAlpha(var) GuiItemCounter[index]
(InStr(LoopField, " := ")) ? GuiCtrlStorage.Push({ name : var, event: ctrl.event, function: ctrl.function})
: GuiItemCounter[index] += 1
return [InStr(LoopField, " := ") ? 1: 2, var]
}
return [0]
}
return [0]
}


tooltip_(string := "") {
if (string != "") {
string := "`n`t. `"Active GUI element values include:``n`" " . string
}
return "{`n`tToolTip(`"Click! This is a sample action.``n`"" string ", 77, 277)`n`tSetTimer () => ToolTip(), -3000 `; tooltip timer`n}`n"
tooltip_(string := "") {
if (string != "") {
string := "`n`t. `"Active GUI element values include:``n`" " . string
}
return "{`n`tToolTip(`"Click! This is a sample action.``n`"" string ", 77, 277)`n`tSetTimer () => ToolTip(), -3000 `; tooltip timer`n}`n"
}

cleanAlpha(StrIn) {
len := StrLen(StrIn)
newVar := ""
loop len {
char := SubStr(StrIn, A_Index, 1)
if IsAlpha(char) {
newVar .= char
}
cleanAlpha(StrIn) {
len := StrLen(StrIn)
newVar := ""
loop len {
char := SubStr(StrIn, A_Index, 1)
if IsAlpha(char) {
newVar .= char
}
return newVar
}

}
return newVar
}

0 comments on commit 1635559

Please sign in to comment.