How can I align 2 arrays?

[ldarrambide]

quick, raw and dirty, but seems to fit the bill


************************************************************

Macro Macro15

Code:

Copy      Help

out

str a1=
;AA
;BB
;DD
;EE
;GG

str a2=
;AA
;BB
;CC
;EE
;FF

ARRAY(str) AA1 AA2 A1al A2al

IStringMap m._create
m.Flags=1
AA1=a1
AA2=a2
int i=AA1.len
for _i 0 i
,m.Add(AA1[_i] AA2[_i])
str sk sv
m.EnumBegin
rep    
,if(!m.EnumNext(sk sv)) break
,if(sk=sv)
,,A1al[]=sk
,,A2al[]=sk
,,continue
,A1al[]=sk
,A2al[]="___"
,A1al[]="___"
,A2al[]=sv
m.EnumEnd

for _i 0 A1al.len
,out "%s %s" A1al[_i] A2al[_i]

****************************************

hope this helps.....