/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
- USING: io io.files sequences xml xml.traversal
- io.encodings.ascii kernel ;
- IN: msxml-to-csv
- : (msxml>csv) ( xml -- table )
- "Table" tag-named
- "Row" tags-named [
- "Cell" tags-named [
- "Data" tag-named children>string
- ] map
- ] map ;
- : msxml>csv ( outfile infile -- )
- file>xml (msxml>csv) [ "," join ] map
- swap ascii set-file-lines ;