字符串分解为表(str->chrs“字符1串 分解为表")
本帖最后由 llsheng_73 于 2015-11-30 18:32 编辑(defun str->chrs(str / ac)
(setq a(vl-string->list str))
(while a
(if(<(car a)129)(setq c(cons(chr(car a))c)a(cdr a))
(setq c(cons(strcat(chr(car a))(chr(cadr a)))c)a(cddr a))))
(reverse c))
(str->chrs "参数: str = 要分解的内容。")
("参" "数" ":" " " "s" "t" "r" " " "=" " " "要" "分" "解" "的" "内" "容" "。")
本帖最后由 自贡黄明儒 于 2014-9-15 14:21 编辑
还在整字符串呀？
http://bbs.mjtd.com/thread-108027-1-1.html，一样的效果
(parse3 "参数: str = 要分解的内容。" "[\\u4E00-\\u9FA5]|[^\\u4E00-\\u9FA5/ ]|[\\s]+")=>("参" "数" ":" " " "s" "t" "r" " " "=" " " "要" "分" "解" "的" "内" "容" "。")
(parse3 "参数: str = 要分解的内容。" "[\\u4E00-\\u9FA5]+|[^\\u4E00-\\u9FA5/ ]+|[\\s]+")->("参数" ":" " " "str" " " "=" " " "要分解的内容" "。")
页:
[1]