Spreadsheet app insert column

[roadrunner]

You can use the programs below to insert and delete columns:

PHP Code:

EXPORT InsertCol(c)
BEGIN
 local rs,cs;
 rs:=SIZE(A:A);
 cs:=SIZE(1:1);
 FOR I FROM c TO cs DO
  FOR J FROM 1 TO rs DO
   Cell(J,cs-I+c+1,−1):=Cell(J,cs-I+c,−1);
  END;
 END;
 FOR J FROM 1 TO rs DO
  Cell(J,c,−1):=Cell(J,cs+1,−1);
 END;
 "all done";
END;

EXPORT DeleteCol(c)
BEGIN
 local rs,cs;
 rs:=SIZE(A:A);
 cs:=SIZE(1:1);
 FOR I FROM c TO cs DO
  FOR J FROM 1 TO rs DO
   Cell(J,I,−1):=Cell(J,I+1,−1);
  END;
 END;
 "all done";
END; 


Example: If you want to insert a column at B just go to the home or cas view and type InsertCol(2). Similar for DeleteCol.

I'm working on a similar method to insert and delete rows.

Eventually, as time permits, I plan to use the Curser variable to locate where to insert or delete, and hijack the plot key to display a pop up menu asking how many rows or columns.

-road