用法
评论
建议
取 消
确 定
(defun vectra:string-tokenize (str delim / buff l2) (setq str (vl-string->list str) delim (vl-string->list delim)) (while str (if (member (car str) delim) (setq l2 (cons (vl-list->string (reverse buff)) l2) buff nil) (setq buff (cons (car str) buff))) (setq str (cdr str))) (setq l2 (cons (vl-list->string (reverse buff)) l2)) (reverse l2))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新