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

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