duplicate array objects

[Gintaras]

Here it is easy with IStringMap.
Macro Macro1797

Code:

Copy      Help

;SetCurDir "c:\windows"
;SetCurDir "$qm$"

int w=win("Calculator" "SciCalc")
Acc a.Find(w "WINDOW" "Calculator" "class=SciCalc" 0x1005)

ARRAY(Acc) b
int i
str data
str ress="Resolution :"
str orie="Orientation :"
str saveTo="$desktop$\Macro.txt"
str name role; int x y cx cy
IStringMap m=CreateStringMap

int w1=win("Calculator" "SciCalc")
Acc a1.Find(w1 "WINDOW" "Calculator" "class=SciCalc" 0x1005)
a.GetChildObjects(b -1 "" "" "" 16)
for i 0 b.len
,b[i].Role(role)
,name=b[i].Name
,b[i].Location(x y cx cy)
,str s.format("%s : %s : %i %i %i %i" role name x y cx cy)
,m.Add(s); err continue ;;error if already exists in m
,data.formata(" %i : %s[]" i s)

out data

not tested