Seems to me you want to move even rows up to the end of the previous row...
before:
2.61 0.0 295.67001 0.20258 1.17542 1.1872 0.15276 -0.19521
-0.00062 0.0008 0.00549
0.574 0.0 296.23801 0.20277 1.17636 0.96822 0.13412 -0.13448
-0.00154 0.00138 0.008
after:
2.61 0.0 295.67001 0.20258 1.17542 1.1872 0.15276 -0.19521 -0.00062 0.0008 0.00549
0.574 0.0 296.23801 0.20277 1.17636 0.96822 0.13412 -0.13448 -0.00154 0.00138 0.008
If I'm wrong then please explain. Otherwise you can use the script below. If you use Import ASCII then save it as the Worksheet Script (Tools> Worksheet Script) for your worksheet template and set Run Script Automatically after: Import. If you use a filter save the script under its Advanced filter options.
rr=wks.maxrows; // current number of rows
cc=wks.ncols; // current number of columns
work -a 3; // add 3 columns
for(i=1;i<=rr/2;i++)
{
work -s 1 (i+1) 3 (i+1); // select first 3 columns of next row
menu -e 57634; // execute Edit> Copy
work -s (cc+1) i (cc+3) i; // select last 3 columns of this row
menu -e 57637; // execute Edit> Paste
mark -d col(1) -b (i+1) -e (i+1); // delete next row
};
Mike Buess
Origin WebRing Member
