-USING: io io.files sequences xml xml.utilities ;
+USING: io.files sequences xml xml.traversal io.encodings.ascii kernel ;
IN: msxml-to-csv
-: print-csv ( table -- ) [ "," join print ] each ;
-
: (msxml>csv) ( xml -- table )
- "Worksheet" tag-named
"Table" tag-named
"Row" tags-named [
"Cell" tags-named [
] map
] map ;
-: msxml>csv ( infile outfile -- )
- [
- file>xml (msxml>csv) print-csv
- ] with-file-writer ;
+: msxml>csv ( outfile infile -- )
+ file>xml (msxml>csv) [ "," join ] map
+ swap ascii set-file-lines ;