factor/extra/msxml-to-csv/msxml-to-csv.factor

16 lines
377 B
Factor
Raw Normal View History

2009-02-05 22:17:03 -05:00
USING: io io.files sequences xml xml.traversal
2008-03-07 22:28:04 -05:00
io.encodings.ascii kernel ;
2007-09-20 18:09:08 -04:00
IN: msxml-to-csv
: (msxml>csv) ( xml -- table )
"Table" tag-named
"Row" tags-named [
"Cell" tags-named [
"Data" tag-named children>string
] map
] map ;
2008-03-07 22:28:04 -05:00
: msxml>csv ( outfile infile -- )
file>xml (msxml>csv) [ "," join ] map
swap ascii set-file-lines ;