csv檔案：

             1、每行資料集各元素以逗號間隔

             2、若單元素中有逗號，則整個元素以雙引號括起來為一個單元素

             3、若雙引號元素中又有雙引號，則需要轉義雙引號為 \"

以clisp為例實現 csv 檔案讀取，實現如下：

read-csv-file: 可以直接讀取一個csv檔案，並以列表形式返回資料。

split-csv-line: 可以處理單行資料集，並返回列表形式資料集；所有元素都預設為string

;;;; WHJ.20180827 read csv file
;;;; WHJ.20180831 完善

(defpackage :WHJ.CSV
     (:use :cl :charset :cl-ppcre)
     (:export
         :split-csv-line
         :read-csv-file))

(in-package :WHJ.CSV)

(defun next-f1 (str str-len idx)
     (let ((s (search "," str :start2 idx)))
         (if s s str-len)))
(defun next-end (str slen idx)
         (unless (< idx slen) (return-from next-end slen))

        (if (char= (char str idx) #\");以"開頭
            (unless
                (do* ((i (1+ idx))
                       (ch (char str i) (char str i))
                       (nextch (if (< (1+ i) slen) (char str (1+ i)) nil) (if (< (1+ i) slen) (char str (1+ i)) nil)))
                      ((null nextch))

                     ;(format t "i=~a ch=~a nch=~a~%" i ch nextch)
                      
                      (if (and (char= ch #\") (char= nextch ch)) 
                         (incf i 2)
                         (if (char= ch #\")
                             (return-from next-end (next-f1 str slen i))
                             (incf i))))
                slen)
             (let ((ch (char str idx)));可能為多個空的值，例str = ",,,,"
                  (if (char= ch #\,)
                      idx
                      (next-f1 str slen (1+ idx))))))
(defun split-csv-line (str)     
     (let ((len (length str)))
         (append
             (loop for s = 0 then (1+ e)
                   for e = (next-end str len 0) then (next-end str len s)
                   while (< s len)
                     collect (let ((sublen (- e s))
                                   (substr (subseq str s e)))
                                  (if (and (plusp sublen) (char= (char substr 0) #\"))
                                       (setf substr (subseq substr 1 (1- sublen))))
                                   (regex-replace-all "\"\"" substr "\"")))
             (if (char= (char str (1- len)) #\,) (list "") nil))))
             
 (defun read-csv-file (file &optional (charset charset:gbk))
     (mapcar #'split-csv-line
             (with-open-file (in file :external-format charset)
                 (loop for x = (read-line in nil)
                     while x
                         collect x))))