10-29-2014, 07:51 PM
Try this for integer arrays:
Macro Align Int Arrays
Macro Align Int Arrays
str a2=
;1
;2
;6
;7
;8
str a1=
;3
;4
;5
;6
;7
ARRAY(str) a b
a=a1; b=a2
ARRAY(str) c.create(a.len*10)
ARRAY(str) d.create(b.len*10)
int i j k
for i 0 a.len
,j=val(a[i])
,c[j-1]=j
for i 0 b.len
,k=val(b[i])
,d[k-1]=k
,
if (j+1>k)
,c.redim(j); d.redim(j)
else
,c.redim(k); d.redim(k)
a=c; b=d;
c.redim; d.redim
out
for i 0 a.len
,out "a[%i]= %s" i a[i]
out ""
for i 0 b.len
,out "b[%i]= %s" i b[i]