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

   1 USING: io io.files sequences xml xml.traversal
   2 io.encodings.ascii kernel ;
   3 IN: 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 ;