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

 1USING: io io.files sequences xml xml.traversal
 2io.encodings.ascii kernel ;
 3IN: msxml-to-csv
 4
 5: (msxml>csv) ( xml -- table )
 6    "Table" tag-named
 7    "Row" tags-named [
 8        "Cell" tags-named [
 9            "Data" tag-named children>string
10        ] map
11    ] map ;
12
13: msxml>csv ( outfile infile -- )
14    file>xml (msxml>csv) [ "," join ] map
15    swap ascii set-file-lines ;