字符串转成列表（含替换字符串）

;;;name:BF-str->lst
;;;desc:字符串转成列表--leemac
;;;arg:str:字符串
;;;arg:del:分隔符
;;;return:字符串列表
;;;example<img src=\"static/image/smiley/default/sad.gif\" smilieid=\"2\" border=\"0\" alt=\"\" />BF-str->lst "a-b-c" "-")
(defun BF-str->lst(str del / pos)
    (if (setq pos (vl-string-search del str))
        (cons (substr str 1 pos)
            (BF-str->lst (substr str (+ pos 1 (strlen del))) del)
        )
        (list str)
    )
)
(while (vl-string-search "\\" fileline)
    (setq fileline (vl-string-subst "" "\\" fileline))
)