/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. 

  2. io.encodings.ascii kernel ;
    3. 

  3. IN: msxml-to-csv
    4. 

  4. 

  5. : (msxml>csv) ( xml -- table )
    6. 

  6.     "Table" tag-named
    7. 

  7.     "Row" tags-named [
    8. 

  8.         "Cell" tags-named [
    9. 

  9.             "Data" tag-named children>string
    10. 

  10.         ] map
    11. 

  11.     ] map ;
    12. 

  12. 

  13. : msxml>csv ( outfile infile -- )
    14. 

  14.     file>xml (msxml>csv) [ "," join ] map
    15. 

  15.     swap ascii set-file-lines ;
    16.