22 lines
468 B
Factor
22 lines
468 B
Factor
REQUIRES: libs/xml ;
|
|
USING: io sequences xml xml-utils ;
|
|
IN: xml>csv
|
|
|
|
: print-csv ( table -- ) [ "," join print ] each ;
|
|
|
|
: (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 ( infile outfile -- )
|
|
<file-writer> [
|
|
file>xml (msxml>csv) print-csv
|
|
] with-stream ;
|
|
|
|
PROVIDE: demos/msxml-to-csv ;
|