[原创]：字串中西文拆分。

eachy

2. 
   
3. ;;中西文拆分 By Eachy
   
4. (defun yb:string_split (str / strlst strlst1 hz_str e_str)
   
5.   (setq        strlst        (vl-string->list str)
   
6.         strlst1        '()
   
7.   )
   
8.   (while strlst
   
9.     (cond
   
10.       ((> (car strlst) 159)
    
11.        (setq e_str nil)
    
12.        (if hz_str
    
13.          (setq hz_str (append (list (car strlst)) hz_str))
    
14.          (setq hz_str (list (car strlst)))
    
15.        )
    
16.        (setq strlst (cdr strlst))
    
17.        (if (or (< (car strlst) 159)
    
18.                (= strlst "")
    
19.            )
    
20.          (if strlst1
    
21.            (setq strlst1 (append strlst1 (list hz_str)))
    
22.            (setq strlst1 (list hz_str))
    
23.          )
    
24.        )
    
25.       )
    
26.       ((< (car strlst) 159)
    
27.        (setq hz_str nil)
    
28.        (if e_str
    
29.          (setq e_str (append (list (car strlst)) e_str))
    
30.          (setq e_str (list (car strlst)))
    
31.        )
    
32.        (setq strlst (cdr strlst))
    
33.        (if (or (> (car strlst) 159)
    
34.                (= strlst "")
    
35.            )
    
36.          (if strlst1
    
37.            (setq strlst1 (append strlst1 (list e_str)))
    
38.            (setq strlst1 (list e_str))
    
39.          )
    
40.        )
    
41.       )
    
42.     )
    
43.   )
    
44.   (mapcar 'vl-list->string (mapcar 'reverse strlst1))
    
45. )

<br /> ;;中西文拆分 By Eachy<br /> (defun yb:string_split (str / strlst strlst1 hz_str e_str)<br />   (setq        strlst        (vl-string->list str)<br />         strlst1        '()<br />   )<br />   (while strlst<br />     (cond<br />       ((> (car strlst) 159)<br />        (setq e_str nil)<br />        (if hz_str<br />          (setq hz_str (append (list (car strlst)) hz_str))<br />          (setq hz_str (list (car strlst)))<br />        )<br />        (setq strlst (cdr strlst))<br />        (if (or (< (car strlst) 159)<br />                (= strlst "")<br />            )<br />          (if strlst1<br />            (setq strlst1 (append strlst1 (list hz_str)))<br />            (setq strlst1 (list hz_str))<br />          )<br />        )<br />       )<br />       ((< (car strlst) 159)<br />        (setq hz_str nil)<br />        (if e_str<br />          (setq e_str (append (list (car strlst)) e_str))<br />          (setq e_str (list (car strlst)))<br />        )<br />        (setq strlst (cdr strlst))<br />        (if (or (> (car strlst) 159)<br />                (= strlst "")<br />            )<br />          (if strlst1<br />            (setq strlst1 (append strlst1 (list e_str)))<br />            (setq strlst1 (list e_str))<br />          )<br />        )<br />       )<br />     )<br />   )<br />   (mapcar 'vl-list->string (mapcar 'reverse strlst1))<br /> )

li809

好,拆分后字体高度一致吗