用法
评论
建议
取 消
确 定
(defun vectra:template-parse-inner (template gs ge / buff ch result) (setq template (vl-string->list template)) (while (setq ch (car template)) (cond ((= ch (ascii gs)) (if buff (setq result (cons (vl-list->string (reverse buff)) result) buff nil))) ((= ch (ascii ge)) (if buff (setq result (cons (list (vl-list->string (reverse buff))) result) buff nil))) (t (setq buff (cons ch buff)))) (setq template (cdr template))) (if buff (setq result (cons (vl-list->string (reverse buff)) result))) (mapcar (function (lambda (e) (if (atom e) e (vectra:string-tokenize (car e) ":")))) (reverse result)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新