Code: Select all
item := Map('value1', '(answer1)','value2', '(answer2)')
msgbox item
i want to do something like this . How can i achieve ?
Code: Select all
mapvar := ('value1', '(answer1)','value2', '(answer2)')
item := Map(mapvar)
msgbox item
Code: Select all
item := Map('value1', '(answer1)','value2', '(answer2)')
msgbox item
Code: Select all
mapvar := ('value1', '(answer1)','value2', '(answer2)')
item := Map(mapvar)
msgbox item
Unclear what should be displayed in the message box.
Code: Select all
str := 'value1,(answer1),value2,(answer2),value3,(answer3),value4,(answer4),value5,(answer5)'
mapvar := map()
for x,y in z := strsplit(str,",")
(mod(x,2) = 1) && mapvar[y] := z[a_index+1]
; testing:
for x,y in mapvar
msgbox x "--->" y
Code: Select all
str := 'value1,(answer1),value2,(answer2),value3,(answer3),value4,(answer4),value5,(answer5)'
mapvar := Map(StrSplit(str, ',')*)
; testing:
for x,y in mapvar
msgbox x "--->" y
Code: Select all
#Requires AutoHotkey v2.0
Map.Prototype.DefineProp('toString', {
Call: (m, indent := ' ') => (
res := ['{'], e := m.__Enum(2),
[(
(*) => e(&k, &v) && (
res[1] .= (res[1] = '{' ? '' : ',') . '`n' . indent
(IsObject(k) ? Type(k) : '"' . k . '"')
': '
(IsObject(v) ? Type(v) : '"' . v . '"')
)
)*],
res[1] . '`n}'
)
})
str := 'value1,(answer1),value2,(answer2),value3,(answer3),value4,(answer4),value5,(answer5)'
mapvar := Map(StrSplit(str, ',')*)
; testing:
MsgBox String(mapvar)
Code: Select all
Arr := ['StringThing', 7, 6]
Msgbox SubStr(Arr*)
; same as
Msgbox SubStr('StringThing', 7, 6)
Code: Select all
var := Map('value1', 'answer1','value2', 'answer2')
m := Menu()
submenu := Menu()
For varname in var
submenu.Add varname, funcgo
m.Add 'Main menu', submenu
funcgo(varname, varPos, m) {
A_Clipboard := '', A_Clipboard := var[varname]
Send '^v'
}
#x::m.Show
Code: Select all
#Requires AutoHotkey v2.0
url := "https://ahkstorage.blob.core.windows.net/ran/ran.txt" ; Replace with your URL
http := ComObject("WinHttp.WinHttpRequest.5.1")
http.Open("GET", url)
http.Send()
ranvar := http.ResponseText
item1 := string(ranvar)
item := Map(item1)
; msgbox string(item)
m := Menu()
submenu := Menu()
For varname in item
submenu.Add varname, funcgo
m.Add 'Main menu', submenu
funcgo(varname, itemPos, m) {
A_Clipboard := '', A_Clipboard := item[varname]
Send '^v'
}
#x::m.Show
DllCall("SwitchToThisWindow", "UInt", A_ScriptHwnd, "UInt", 1)
Code: Select all
#Requires AutoHotkey v2.0
url := "https://ahkstorage.blob.core.windows.net/ran/ran.txt"
http := ComObject("WinHttp.WinHttpRequest.5.1")
http.Open("GET", url, true)
http.Send()
http.WaitForResponse()
mapObj := Map(StrSplit(http.ResponseText, ",", " '")*)
m := Menu()
submenu := Menu()
for item in mapObj {
submenu.Add(item, (itemName, *) => SendText(mapObj[itemName]))
}
m.Add("Main menu", submenu)
#x:: m.Show()
Users browsing this forum: Draken, just me, lbauchi, reddyshyam, songdg and 27 guests