字符串转表[支持中文]

13816600495

->任意字符串转表：
;;输入：任意字符串
;;输出：列表
(defun cl-string->list (string / lst lst1 nn n m)
        (setq nn (strlen string) n 0 m 1)
        (repeat nn
                (setq n (1+ n) lst (vl-string->list (substr string n m)))
                (if (vl-remove-if '(lambda (x) (< x 128)) lst)
                        (progn
                                (if (= (length lst) 2)
                                        (progn
                                                (setq lst1 (cons (vl-list->string lst) lst1))
                                                (if (= m 2) (setq n (1+ n) m 1))
                                        )
                                        (progn
                                                (setq n (1- n) m 2)
                                        )
                                )
                        )
                        (progn
                                (setq lst1 (cons (vl-list->string lst) lst1))
                        )
                )
        )
        (reverse lst1)
)
->用法示例：
(defun c:pp ()
        (cl-string->list "#$%文字@789")
)
;;返回：("#" "$" "%" "文" "字" "@" "7" "8" "9")

tryhi

我觉得LLSheng_73这个函数写得挺好

2. ;;字符串拆分为单一的表(支持单双字节混合)
   
3. (defun _Str2List(str / a);作者：LLSheng_73
   
4.         (setq str(vl-string->list str))
   
5.         (while
   
6.                 (if(<(car str)129)
   
7.                         (setq a(cons(chr(car str))a)str(cdr str))
   
8.                         (setq a(cons(strcat(chr(car str))(chr(cadr str)))a)str(cddr str))))
   
9.         (reverse a)
   
10. )
    

;;字符串拆分为单一的表(支持单双字节混合)<br /> (defun _Str2List(str / a);作者：LLSheng_73<br />         (setq str(vl-string->list str))<br />         (while <br />                 (if(<(car str)129)<br />                         (setq a(cons(chr(car str))a)str(cdr str))<br />                         (setq a(cons(strcat(chr(car str))(chr(cadr str)))a)str(cddr str))))<br />         (reverse a)<br /> )<br />

尘缘一生

2. ;;字符串转表,中英文拆分为单独文字表-----(一级)------
   
3. ;;(sl-str->singleonly "12我 的\n三领设计#$%文字@789")  ("1" "2" "我" " " "的" "\n" "三" "领" "设" "计")
   
4. (defun sl-str->singleonly (str / strlst strlst1 hz_str num)
   
5.   (setq  strlst (vl-string->list str) strlst1 '())
   
6.   (while strlst
   
7.     (setq num (car strlst))
   
8.     (cond
   
9.       ((and (not hz_str) (> num 159))
   
10.         (setq hz_str (list num))
    
11.       )
    
12.       ((and hz_str (> num 159))
    
13.         (setq hz_str (append hz_str (list num)))
    
14.         (setq strlst1 (append strlst1 (list hz_str)) hz_str nil)
    
15.       )
    
16.       ((< num 159)
    
17.         (setq hz_str nil)
    
18.         (if strlst1
    
19.           (setq strlst1 (append strlst1 (list (list num))))
    
20.           (setq strlst1 (list (list num)))
    
21.         )
    
22.       )
    
23.     )
    
24.     (setq strlst (cdr strlst))
    
25.   )
    
26.   (mapcar 'vl-list->string strlst1)
    
27. )
    
28. ;;字符串转表,中英文拆分为单独文字表-----(一级)------
    
29. ;(cl-string->list "12我 的\n三领设计#$%文字@789")
    
30. (defun cl-string->list (string / lst lst1 nn n m)
    
31.   (setq nn (strlen string) n 0 m 1)
    
32.   (repeat nn
    
33.     (setq n (1+ n) lst (vl-string->list (substr string n m)))
    
34.     (if (vl-remove-if '(lambda (x) (< x 128)) lst)
    
35.       (progn
    
36.         (if (= (length lst) 2)
    
37.           (progn
    
38.             (setq lst1 (cons (vl-list->string lst) lst1))
    
39.             (if (= m 2) (setq n (1+ n) m 1))
    
40.           )
    
41.           (setq n (1- n) m 2)
    
42.         )
    
43.       )
    
44.       (setq lst1 (cons (vl-list->string lst) lst1))
    
45.     )
    
46.   )
    
47.   (reverse lst1)
    
48. )
    
49. ;;字符串转表,中英文拆分为单独文字表-----(一级)------
    
50. ;(_Str2List "12我 的\n三领设计#$%文字@789")
    
51. (defun _Str2List (str / a);作者：LLSheng_73
    
52.   (setq str (vl-string->list str))
    
53.   (while
    
54.     (if (< (car str) 129)
    
55.       (setq a (cons (chr (car str)) a) str (cdr str))
    
56.       (setq a (cons (strcat (chr (car str)) (chr (cadr str))) a) str (cddr str))
    
57.     )
    
58.   )
    
59.   (reverse a)
    
60. )

;;字符串转表,中英文拆分为单独文字表-----(一级)------<br /> ;;(sl-str->singleonly "12我 的\n三领设计#$%文字@789")  ("1" "2" "我" " " "的" "\n" "三" "领" "设" "计")<br /> (defun sl-str->singleonly (str / strlst strlst1 hz_str num)<br />   (setq  strlst (vl-string->list str) strlst1 '())<br />   (while strlst<br />     (setq num (car strlst))<br />     (cond<br />       ((and (not hz_str) (> num 159))<br />         (setq hz_str (list num))<br />       )<br />       ((and hz_str (> num 159))<br />         (setq hz_str (append hz_str (list num)))<br />         (setq strlst1 (append strlst1 (list hz_str)) hz_str nil)<br />       )<br />       ((< num 159)<br />         (setq hz_str nil)<br />         (if strlst1<br />           (setq strlst1 (append strlst1 (list (list num))))<br />           (setq strlst1 (list (list num)))<br />         )<br />       )<br />     )<br />     (setq strlst (cdr strlst))<br />   )<br />   (mapcar 'vl-list->string strlst1)<br /> )<br /> ;;字符串转表,中英文拆分为单独文字表-----(一级)------<br /> ;(cl-string->list "12我 的\n三领设计#$%文字@789")<br /> (defun cl-string->list (string / lst lst1 nn n m)<br />   (setq nn (strlen string) n 0 m 1)<br />   (repeat nn<br />     (setq n (1+ n) lst (vl-string->list (substr string n m)))<br />     (if (vl-remove-if '(lambda (x) (< x 128)) lst)<br />       (progn<br />         (if (= (length lst) 2)<br />           (progn<br />             (setq lst1 (cons (vl-list->string lst) lst1))<br />             (if (= m 2) (setq n (1+ n) m 1))<br />           )<br />           (setq n (1- n) m 2)<br />         )<br />       )<br />       (setq lst1 (cons (vl-list->string lst) lst1))<br />     )<br />   )<br />   (reverse lst1)<br /> )<br /> ;;字符串转表,中英文拆分为单独文字表-----(一级)------<br /> ;(_Str2List "12我 的\n三领设计#$%文字@789")<br /> (defun _Str2List (str / a);作者：LLSheng_73<br />   (setq str (vl-string->list str))<br />   (while <br />     (if (< (car str) 129)<br />       (setq a (cons (chr (car str)) a) str (cdr str))<br />       (setq a (cons (strcat (chr (car str)) (chr (cadr str))) a) str (cddr str))<br />     )<br />   )<br />   (reverse a)<br /> )

小菜123

正则表达式用"."就行

437271963

(defun c:tes ( / a1 opn ss1 tr1)
(setq a1 "中文2024");举例
(if (cadr (vl-string->list "中")) (setq opn nil) (setq opn t) );判断中文是1个还是2个字节
(setq ss1 '())
(while (/= a1 "")
  (cond
   (opn
    (setq tr1 (substr a1 1 1) a1 (substr a1 2));中文与英文结合都是一个字节cad2024版本
   )
   (t
    (if (> (ascii (substr a1 1 1)) 128)
     (setq tr1 (substr a1 1 2) a1 (substr a1 3))
     (setq tr1 (substr a1 1 1) a1 (substr a1 2))
    )
   )
  )
  (setq ss1 (cons tr1 ss1))
);while
  (reverse ss1);字串符变表->("中" "文" "2" "0" "2" "4")
)

664571221

大哥字符串转表示啥意思

vormittag

改 utf-8 编码，就不用再去判断双字节字符了