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

http://github.com/abeaumont/factor · Factor · 15 lines · 13 code · 2 blank · 0 comment · 0 complexity · c33cea53394ca4320c9d372ce91cb556 MD5 · raw file

  1. USING: io io.files sequences xml xml.traversal
  2. io.encodings.ascii kernel ;
  3. IN: msxml-to-csv
  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. : msxml>csv ( outfile infile -- )
  12. file>xml (msxml>csv) [ "," join ] map
  13. swap ascii set-file-lines ;