17 lines
403 B
Factor
17 lines
403 B
Factor
USING: io io.files sequences xml xml.utilities
|
|
io.encodings.ascii kernel ;
|
|
IN: msxml-to-csv
|
|
|
|
: (msxml>csv) ( xml -- table )
|
|
"Worksheet" tag-named
|
|
"Table" tag-named
|
|
"Row" tags-named [
|
|
"Cell" tags-named [
|
|
"Data" tag-named children>string
|
|
] map
|
|
] map ;
|
|
|
|
: msxml>csv ( outfile infile -- )
|
|
file>xml (msxml>csv) [ "," join ] map
|
|
swap ascii set-file-lines ;
|