字符串的处理，谢谢

caoyin

;;临时写一个，有些啰嗦

(defun str-parse (str)
  (vl-remove
    ""
    (read
      (strcat "(\""
              (vl-list->string
                (apply 'append
                       (mapcar '(lambda (s)
                                  (if (member s '(32 44 35 36))
                                    '(34 34)
                                    (list s)
                                  )
                                )
                               (vl-remove 9 (vl-string->list str))
                       )
                )
              )
              "\")"
      )
    )
  )
)

caoyin

看上去很复杂，呵呵

nonsmall

简单的话：正则表达式一句话就够了