steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tweak msxml-to-csv

db4
Slava Pestov 2008-03-07 21:28:04 -06:00
parent 4b130d4fde
commit 8c645f7a45
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/msxml-to-csv/msxml-to-csv.factor
View File

@ -1,8 +1,7 @@
USING: io io.files sequences xml xml.utilities io.encodings.utf8 ;
USING: io io.files sequences xml xml.utilities
io.encodings.ascii kernel ;
IN: msxml-to-csv
: print-csv ( table -- ) [ "," join print ] each ;
: (msxml>csv) ( xml -- table )
"Worksheet" tag-named
"Table" tag-named
@ -12,7 +11,6 @@ IN: msxml-to-csv
] map
] map ;
: msxml>csv ( infile outfile -- )
utf8 [
file>xml (msxml>csv) print-csv
] with-file-writer ;
: msxml>csv ( outfile infile -- )
file>xml (msxml>csv) [ "," join ] map
swap ascii set-file-lines ;