[求助]：分解字符”—200x6“为 200 6？

wzg

如何分解”—200x6“为 200   6？

zml84

2. 
   
3. ;;;====================================================
   
4. ;;;      函数三                                       
   
5. ;;;功能：分割字符串，按照是否为数字分
   
6. ;;;参数：STR  ----欲分割的字符串
   
7. ;;;返回：分割后的表
   
8. ;;;示例：(ZL-STR-SUB3 "A-11b")
   
9. ;;;       ====>  ("A-" "11" "b")
   
10. (defun ZL-STR-SUB3 (STR / STRI STR_TMP LST LX0 LX1)
    
11. 
    
12.     ;;获取第一个字符
    
13.     (if        (> (ascii (substr STR 1 1)) 159)
    
14.         (progn
    
15.             (setq STRI (substr STR 1 2)
    
16.                   STR  (substr STR 3)
    
17.             )
    
18.             (setq LX0 1) ;0 为数字；1 为非数字
    
19.         )
    
20.         (progn
    
21.             (setq STRI (substr STR 1 1)
    
22.                   STR  (substr STR 2)
    
23.             )
    
24.             (if        (or ;;(= (ascii STRI) 46)
    
25.                     (<= 48 (ascii STRI) 57)
    
26.                 )
    
27.                 (setq LX0 0) ;0 为数字；1 为非数字
    
28.                 (setq LX0 1)
    
29.             )
    
30.         )
    
31.     )
    
32. 
    
33.     ;;
    
34.     (setq LST '())
    
35.     (setq STR_TMP STRI)
    
36. 
    
37.     ;;循环执行全部
    
38.     (while (/= STR "")
    
39.         (if (> (ascii (substr STR 1 1)) 159)
    
40.             (progn (setq STRI (substr STR 1 2)
    
41.                          STR  (substr STR 3)
    
42.                    )
    
43.                    (setq LX1 1) ;0 为数字；1 为非数字
    
44.             )
    
45.             (progn
    
46.                 (setq STRI (substr STR 1 1)
    
47.                       STR  (substr STR 2)
    
48.                 )
    
49.                 (cond ((<= 48 (ascii STRI) 57)
    
50.                        (setq LX1 0) ;0 为数字；1 为非数字
    
51.                       )
    
52.                       ((and (= LX0 0)
    
53.                             (= (ascii STRI) 46)
    
54.                        )
    
55.                        (setq LX1 0) ;0 为数字；1 为非数字
    
56.                       )
    
57.                       (t
    
58.                        (setq LX1 1) ;0 为数字；1 为非数字
    
59.                       )
    
60.                 )
    
61.             )
    
62.         )
    
63.         (if (= LX1 LX0)
    
64.             (setq STR_TMP (strcat STR_TMP STRI))
    
65.             (setq LST          (cons STR_TMP LST)
    
66.                   STR_TMP STRI
    
67.                   LX0          LX1
    
68.             )
    
69.         )
    
70.     ) ;_结束while
    
71.     ;;
    
72.     (if        (= STR_TMP "")
    
73.         ()
    
74.         (setq LST (cons STR_TMP LST))
    
75.     )
    
76.     ;;
    
77.     (reverse LST)
    
78. )
    

<br /> ;;;====================================================<br /> ;;;      函数三                                        <br /> ;;;功能：分割字符串，按照是否为数字分<br /> ;;;参数：STR  ----欲分割的字符串<br /> ;;;返回：分割后的表<br /> ;;;示例：(ZL-STR-SUB3 "A-11b")<br /> ;;;       ====>  ("A-" "11" "b")<br /> (defun ZL-STR-SUB3 (STR / STRI STR_TMP LST LX0 LX1)<br /> <br />     ;;获取第一个字符<br />     (if        (> (ascii (substr STR 1 1)) 159)<br />         (progn<br />             (setq STRI (substr STR 1 2)<br />                   STR  (substr STR 3)<br />             )<br />             (setq LX0 1) ;0 为数字；1 为非数字<br />         )<br />         (progn<br />             (setq STRI (substr STR 1 1)<br />                   STR  (substr STR 2)<br />             )<br />             (if        (or ;;(= (ascii STRI) 46)<br />                     (<= 48 (ascii STRI) 57)<br />                 )<br />                 (setq LX0 0) ;0 为数字；1 为非数字<br />                 (setq LX0 1)<br />             )<br />         )<br />     )<br /> <br />     ;;<br />     (setq LST '())<br />     (setq STR_TMP STRI)<br /> <br />     ;;循环执行全部<br />     (while (/= STR "")<br />         (if (> (ascii (substr STR 1 1)) 159)<br />             (progn (setq STRI (substr STR 1 2)<br />                          STR  (substr STR 3)<br />                    )<br />                    (setq LX1 1) ;0 为数字；1 为非数字<br />             )<br />             (progn<br />                 (setq STRI (substr STR 1 1)<br />                       STR  (substr STR 2)<br />                 )<br />                 (cond ((<= 48 (ascii STRI) 57)<br />                        (setq LX1 0) ;0 为数字；1 为非数字<br />                       )<br />                       ((and (= LX0 0)<br />                             (= (ascii STRI) 46)<br />                        )<br />                        (setq LX1 0) ;0 为数字；1 为非数字<br />                       )<br />                       (t<br />                        (setq LX1 1) ;0 为数字；1 为非数字<br />                       )<br />                 )<br />             )<br />         )<br />         (if (= LX1 LX0)<br />             (setq STR_TMP (strcat STR_TMP STRI))<br />             (setq LST          (cons STR_TMP LST)<br />                   STR_TMP STRI<br />                   LX0          LX1<br />             )<br />         )<br />     ) ;_结束while<br />     ;;<br />     (if        (= STR_TMP "")<br />         ()<br />         (setq LST (cons STR_TMP LST))<br />     )<br />     ;;<br />     (reverse LST)<br /> )<br />

yaker_77

楼上这个代码怎么用啊，是LISP吗？

tjtgp

编辑--查找，用200 6替换200x6。