(XD::String:SingleChr)拆分String为单个字符

eachy

1. (defun XD::String:SingleChr (str / strl nstrl kl zkl n)
   
2.   (setq        strl (vl-string->list str)
   
3.         kl   '(37 67 68 79 80 85 99 100 111 112 117)
   
4.         zkl  '("%" "C" "D" "O" "P" "U" "C" "D" "O" "P" "U")
   
5.   )
   
6.   (while strl
   
7.     (cond
   
8.       ((> (car strl) 127)
   
9.        (setq nstrl (cons (vl-list->string (list (car strl) (cadr strl)))
   
10.                          nstrl
    
11.                    )
    
12.              strl  (cddr strl)
    
13.        )
    
14.       )
    
15.       ((and (= (car strl) (cadr strl) 37)
    
16.             (setq n (vl-position (caddr strl) kl))
    
17.        )
    
18.        (setq nstrl (cons (strcat "%%" (nth n zkl)) nstrl)
    
19.              strl  (cdddr strl)
    
20.        )
    
21.       )
    
22.       (t
    
23.        (setq nstrl (cons (chr (car strl)) nstrl)
    
24.              strl  (cdr strl)
    
25.        )
    
26.       )
    
27.     )
    
28.   )
    
29.   (reverse nstrl)
    
30. )
    

(defun XD::String:SingleChr (str / strl nstrl kl zkl n)<br />   (setq        strl (vl-string->list str)<br />         kl   '(37 67 68 79 80 85 99 100 111 112 117)<br />         zkl  '("%" "C" "D" "O" "P" "U" "C" "D" "O" "P" "U")<br />   )<br />   (while strl<br />     (cond<br />       ((> (car strl) 127)<br />        (setq nstrl (cons (vl-list->string (list (car strl) (cadr strl)))<br />                          nstrl<br />                    )<br />              strl  (cddr strl)<br />        )<br />       )<br />       ((and (= (car strl) (cadr strl) 37)<br />             (setq n (vl-position (caddr strl) kl))<br />        )<br />        (setq nstrl (cons (strcat "%%" (nth n zkl)) nstrl)<br />              strl  (cdddr strl)<br />        )<br />       )<br />       (t<br />        (setq nstrl (cons (chr (car strl)) nstrl)<br />              strl  (cdr strl)<br />        )<br />       )<br />     )<br />   )<br />   (reverse nstrl)<br /> )<br />

st788796

1 拆出来的单个字符都跟随了控制符
2 上划线漏掉了

eachy

更新下, 不过单独取出来可能丢掉控制符

sicky111

这个函数用处很大。

dyjwyqz5221

这个函数有点麻烦吧
这样可以吗：
(xdrx-string-regexps "[\\u4E00-\\u9FA5]|[^\\u4E00-\\u9FA5 ]|[\\s]" "山东A-Bcs  dd" "")

dyjwyqz5221

(xdrx-string-regexps "." str)，其中：str----字符串。这样就拆分成单个字符了。

wzjck01

学习，学习