parent
8cafdca794
commit
e0c5b8b038
@ -1,54 +0,0 @@
|
|||||||
guile-csv
|
|
||||||
=========
|
|
||||||
|
|
||||||
Guile csv reader
|
|
||||||
|
|
||||||
## USAGE
|
|
||||||
|
|
||||||
### install
|
|
||||||
sudo make install
|
|
||||||
|
|
||||||
### read csv
|
|
||||||
```scheme
|
|
||||||
(use-modules (csv csv))
|
|
||||||
(define my-csv-reader (make-csv-reader #:\,))
|
|
||||||
(call-with-input-file "file.csv" my-csv-reader)
|
|
||||||
```
|
|
||||||
|
|
||||||
### csv->xml
|
|
||||||
```scheme
|
|
||||||
(call-with-input-file "file.csv" csv->xml)
|
|
||||||
```
|
|
||||||
|
|
||||||
and result could be:
|
|
||||||
```xml
|
|
||||||
<record-0>
|
|
||||||
<name>aaa</name>
|
|
||||||
<age>11</age>
|
|
||||||
<email>aaa@aaa.com</email>
|
|
||||||
</record-0>
|
|
||||||
<record-1>
|
|
||||||
<name>bbb</name>
|
|
||||||
<age>12</age>
|
|
||||||
<email>bbb@bbb.com</email>
|
|
||||||
</record-1>
|
|
||||||
```
|
|
||||||
|
|
||||||
### sxml->csv or csv-write to output a csv format file
|
|
||||||
|
|
||||||
```scheme
|
|
||||||
(call-with-output-file "file.csv"
|
|
||||||
(lambda (port)
|
|
||||||
(sxml->csv
|
|
||||||
'((name age email) ("aaa" "11" "aaa@aaa.com") ("bbb" "12" "bbb@bbb.com"))
|
|
||||||
port)))
|
|
||||||
```
|
|
||||||
|
|
||||||
and file.csv would be:
|
|
||||||
```csv
|
|
||||||
name,age,email
|
|
||||||
aaa,11,aaa@aaa.com
|
|
||||||
bbb,12,bbb@bbb.com
|
|
||||||
```
|
|
||||||
|
|
||||||
Enjoy!
|
|
||||||
Loading…
Reference in new issue