[原创]字符串拆分与合并

luyu9635

TANER

2. (defun str2celst (str / i lst n stri)
3.   (setq i 1
4. n (strlen str)
5.   )
6.   (while (<= i n)
7.     (setq stri (substr str i 1))
8.     (if (> (ascii stri) 159)
9.       (setq stri (substr str i 2)
10.      i  (+ i 2)
11.      lst  (cons stri lst)
12.       )
13.       (setq stri (substr str i 1)
14.      i  (1+ i)
15.      lst  (cons stri lst)
16.       )
17.     )
18.     (reverse lst)
19.   )
20. )
21. ;;; 对中英文有效

(defun str2celst (str / i lst n stri)   (setq i 1 n (strlen str)   )   (while (<= i n)     (setq stri (substr str i 1))     (if (> (ascii stri) 159)       (setq stri (substr str i 2)      i  (+ i 2)      lst  (cons stri lst)       )       (setq stri (substr str i 1)      i  (1+ i)      lst  (cons stri lst)       )     )     (reverse lst)   ) ) ;;; 对中英文有效

freeok

您好，你们的这个LSP要怎么执行命令运行呢？求教！！谢谢。

自贡黄明儒

freeok 发表于 2012-11-16 07:30
您好，你们的这个LSP要怎么执行命令运行呢？求教！！谢谢。

(str2celst "Aa6666Bcde333")

zyhandw

TANER写得很好，简单易懂

freeok

还是搞不懂，真笨。。。

freeok

谁弄个程序上来啊。。