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

   1 USING: io io.files sequences xml xml.utilities ;
   2 IN: msxml-to-csv
   3
   4 : print-csv ( table -- ) [ "," join print ] each ;
   5
   6 : (msxml>csv) ( xml -- table )
   7     "Worksheet" tag-named
   8     "Table" tag-named
   9     "Row" tags-named [
  10         "Cell" tags-named [
  11             "Data" tag-named children>string
  12         ] map
  13     ] map ;
  14
  15 : msxml>csv ( infile outfile -- )
  16     [
  17         file>xml (msxml>csv) print-csv
  18     ] with-file-writer ;