rubikitch #1514(2007/07/27 16:38 GMT) [ Common Lisp ] Rating0/2=0.00
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
(require :fare-csv) (defun splitCSV (line) (loop for elt in (with-input-from-string (inn line) (fare-csv:read-csv-line inn)) for i from 1 do (format t "~a => ~a~%" i elt))) (splitCSV "\"aaa\",\"b bb\",\"ccc\",zzz,\"y\"\"Y\"\"y\",xxx ") ;; 1 => aaa ;; 2 => b ;; bb ;; 3 => ccc ;; 4 => zzz ;; 5 => y"Y"y ;; 6 => xxx
Rating0/2=0.00-0+
[ reply ]
rubikitch
#1514()
[
Common Lisp
]
Rating0/2=0.00
(require :fare-csv) (defun splitCSV (line) (loop for elt in (with-input-from-string (inn line) (fare-csv:read-csv-line inn)) for i from 1 do (format t "~a => ~a~%" i elt))) (splitCSV "\"aaa\",\"b bb\",\"ccc\",zzz,\"y\"\"Y\"\"y\",xxx ") ;; 1 => aaa ;; 2 => b ;; bb ;; 3 => ccc ;; 4 => zzz ;; 5 => y"Y"y ;; 6 => xxxRating0/2=0.00-0+
[ reply ]