jbclements / csv-writing Goto Github PK

(require csv-writing)
(display-table '((1 2 3) (4 5 6))
               #:printing-params (make-csv-printing-params
                                  #:quotes-only-when-needed? #f))

> (table-row->string '("1" "2\n3"))
"1,\"2\n3\""
> (table-row->string '("1" "2\n3") #:printing-params default-tsv-printing-params)
"1\t2\n3"

> (define (tsv-string-converter str)
    (match str
      [(regexp #px"\t")
       (error 'tsv-string-converter "no tabs allowed: ~e" str)]
      [other str]))
> (define default-tsv-printing-params2                                                                                                                                                   
    (make-csv-printing-params                                                                                                                                                             
      #:string-cell->string tsv-string-converter                                                                                                                                        
      #:quotes-only-when-needed? #f                                                                                                                                                        
      #:column-separator "\t"))
> (table-row->string '("1" "2\n3") #:printing-params default-tsv-printing-params2)
"1\t2\n3"