字符串分解为表(str->chrs“字符1串 分解为表")

llsheng_73

1. (defun str->chrs(str / a  c)
   
2. (setq a(vl-string->list str))
   
3. (while a
   
4.   (if(<(car a)129)(setq c(cons(chr(car a))c)a(cdr a))
   
5.     (setq c(cons(strcat(chr(car a))(chr(cadr a)))c)a(cddr a))))
   
6. (reverse c))

(defun str->chrs(str / a  c)<br /> (setq a(vl-string->list str))<br /> (while a<br />   (if(<(car a)129)(setq c(cons(chr(car a))c)a(cdr a))<br />     (setq c(cons(strcat(chr(car a))(chr(cadr a)))c)a(cddr a))))<br /> (reverse c))

(str->chrs "参数: str = 要分解的内容。")
("参" "数" ":" " " "s" "t" "r" " " "=" " " "要" "分" "解" "的" "内" "容" "。")

自贡黄明儒

还在整字符串呀？
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" " " "=" " " "要分解的内容" "。")