Emu48 Edit a CSV File

[DavidM]

Several minor variations of the STORE routine provided above make it possible to output potentially useful objects from the source string.

Example 1

The following STORE code could be used to create a simple list of all of the numbers:

Code:

\<<
   FILE
   "{" SWAP +
   "}" +
   "," " " REPLS
   STR\->
   'PNTS' STO
\>>

PNTS: { 248 1529945.48 521921.773 249 1530002.951 521922.245 251 1530058.926 521921.687 252 1530114.903 521923.001 254 1530221.977 521924.059 }

Example 2

This version is similar to Example 1, but the numbers are encapsulated into sublists of 3:

Code:

\<<
   FILE
   "{{" SWAP +
   "}}" +
   "," " " REPLS
   10 CHR "} {" REPLS
   STR\->
   'PNTS' STO
\>>

PNTS: { { 248 1529945.48 521921.773 } { 249 1530002.951 521922.245 } { 251 1530058.926 521921.687 } { 252 1530114.903 521923.001 } { 254 1530221.977 521924.059 } }

Example 3

Similar to Example 2, but the index number is dropped from each sublist:

Code:

\<<
   FILE
   "{{" SWAP +
   "}}" +
   "," " " REPLS
   10 CHR "} {" REPLS
   STR\->
   1 \<< TAIL \>> DOLIST
   'PNTS' STO
\>>

PNTS: { { 1529945.48 521921.773 } { 1530002.951 521922.245 } { 1530058.926 521921.687 } { 1530114.903 521923.001 } { 1530221.977 521924.059 } }

Depending on how you need to process the data, some of these variations might enable simpler code for subsequent programs.