split array (BASIC!)

snippet-splitarray.txt

xdata$=data$
outxdata$=""

split xdatawk1$[],xdata$,"@y@"
array.length lxdatawk1,xdatawk1$[]

for iii=1 to lxdatawk1

  split xdatawk2$[],xdatawk1$[iii],"@x@"
  array.length lxdatawk2,xdatawk2$[]

  xdatawka$=replace$(xdatawk2$[1],"\n","")
  xdatawkb$=replace$(xdatawk2$[2],"\n","")
  xdatawkb$=replace$(xdatawkb$," ","")
  xdatawkc$=replace$(xdatawk2$[3],"\n","")
  xdatawkd$=replace$(xdatawk2$[4],"\n","")

  outxdata$=outxdata$+xdatawka$+"@x@"
  outxdata$=outxdata$+xdatawkb$+"@x@"
  outxdata$=outxdata$+xdatawkc$+"@x@"
  outxdata$=outxdata$+xdatawkd$+"@y@"

  

  array.delete xdatawk2$[]

next iii

array.delete xdatawk1$[]