05-17-2016, 04:14 PM
This is the version almost finalized. Is is still under tests. Any comments will be much appreciated.
Macro temp07
Macro temp07
function [int'sw]
;0 : Browse in Notepad
;2 : Alphabetical list of variables
int w=win("Debug - thread" "#32770")
,
int htv=id(3002 w) ;;outline 'Variables'
str s sl s0 root sIS
StringFromTreeView s htv
int i iq iexp
sel sw
,case 0
,str sf="$temp$\Debug.txt"
,s.setfile(sf)
,run sf
,
,case 2
,foreach sl s
,,iq=find(sl "=")
,,if iq<=0
,,,root=sl
,,,iexp=1
,,,continue
,,if iexp
,,,if sl[0]=VK_TAB
,,,,sl.remove(0 1)
,,,,sIS.formata("%s[]" F"{root}.{sl}")
,,,,continue
,,,else
,,,,iexp=0
,,sIS.formata("%s[]" sl)
,sIS.setfile("$temp$\DebugIS.txt")
,IStringMap m._create
,m.AddList(sIS "[61]")
,ARRAY(str) ak av
,m.GetAll(ak av)
,for(i 0 ak.len)
,,out "%-40s : %s" ak[i] av[i]
,,
,case else
,outt "Error in sw"
,end