用法
评论
建议
取 消
确 定
(defun string:parse-by-lst (lstr delimlst) "字符串按分隔符列表转列表" "拆分后的列表" "(string:parse-by-lst \"a-b=c\" '(\"-\" \"=\"))" (setq lstr (list lstr)) (foreach del delimlst (setq lstr (apply (quote append) (mapcar (quote (lambda (x) (string:to-lst x del))) lstr)))) (if (member " " delimlst) (vl-remove "" lstr) lstr))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新