新年快乐，求帮助

hrbustmqc

2. (defun C:tt ()
   
3.       (setq serialnumber  "wl111,AL111")
   
4.       (setq i 1)
   
5.     (while (and (/= (ascii (substr serialnumber i 1)) 44) (< i (strlen serialnumber ) ))
   
6.        (setq i (+ 1 i) )
   
7.    
   
8.     )
   
9.        (setq str1 (substr serialnumber 1 (+ i 1)))
   
10.        (setq str2 (substr serialnumber  (+ i 3) (- (strlen serialnumber) i)))
    
11.       (princ(strcat "\n回路编号"  str1 "\n配电箱编号" str2))
    
12.   (prin1)
    
13. )
    

(defun C:tt ()<br />       (setq serialnumber  "wl111,AL111")<br />       (setq i 1)<br />     (while (and (/= (ascii (substr serialnumber i 1)) 44) (< i (strlen serialnumber ) ))<br />        (setq i (+ 1 i) )<br />     <br />     )<br />        (setq str1 (substr serialnumber 1 (+ i 1)))<br />        (setq str2 (substr serialnumber  (+ i 3) (- (strlen serialnumber) i)))<br />       (princ(strcat "\n回路编号"  str1 "\n配电箱编号" str2)) <br />   (prin1)<br /> )<br />

• 请问这个代码哪里错了，为什么i总是等于2
  

鱼与熊掌

While执行了几次。下面要不要赋值

hrbustmqc

鱼与熊掌 发表于 2015-2-18 01:16
While执行了几次。下面要不要赋值

程序的目的是wl1，AL1，把字符串拆分，逗号前面的部分存储在str1，逗号后面的部分存储在str2

e2002

你 vl-string-search 就直接获得了 分隔符 的位置，那需要这么啰嗦？

vectra

1. (defun split-with-comma        (str / i rt)
   
2.   (while (and
   
3.            (> (strlen str) 0)
   
4.            (setq i (vl-string-position (ascii ",") str))
   
5.          )
   
6.     (setq
   
7.       rt  (cons (substr str 1 i) rt)
   
8.       str (substr str (+ 2 i) (- (strlen str) i))
   
9.     )
   
10.   )
    
11.   (reverse (cons str rt))
    
12. )
    
13. 
    
14. 
    
15. (defun c:tt (/ str)
    
16.   (setq str (split-with-comma "wl111,AL111"))
    
17. 
    
18.   (princ (strcat "\n回路编号" (car str) "\n配电箱编号" (cadr str)))
    
19.   (princ)
    
20. )

(defun split-with-comma        (str / i rt)<br />   (while (and<br />            (> (strlen str) 0)<br />            (setq i (vl-string-position (ascii ",") str))<br />          )<br />     (setq<br />       rt  (cons (substr str 1 i) rt)<br />       str (substr str (+ 2 i) (- (strlen str) i))<br />     )<br />   )<br />   (reverse (cons str rt))<br /> )<br /> <br /> <br /> (defun c:tt (/ str)<br />   (setq str (split-with-comma "wl111,AL111"))<br /> <br />   (princ (strcat "\n回路编号" (car str) "\n配电箱编号" (cadr str)))<br />   (princ)<br /> )

ZZXXQQ

2. (defun C:tt ()
   
3.   (setq serialnumber "wl111,AL111")
   
4.   (setq i 1)
   
5.   (while (and (/= (substr serialnumber i 1) ",") (< i (strlen serialnumber)))
   
6.     (setq i (1+ i))
   
7.   )
   
8.   (setq str1 (substr serialnumber 1 (1- i)))
   
9.   (setq str2 (substr serialnumber (1+ i)))
   
10.   (princ (strcat "\n回路编号" str1 "\n配电箱编号" str2))
    
11.   (prin1)
    
12. )
    

(defun C:tt ()<br />   (setq serialnumber "wl111,AL111")<br />   (setq i 1)<br />   (while (and (/= (substr serialnumber i 1) ",") (< i (strlen serialnumber)))<br />     (setq i (1+ i))<br />   )<br />   (setq str1 (substr serialnumber 1 (1- i)))<br />   (setq str2 (substr serialnumber (1+ i)))<br />   (princ (strcat "\n回路编号" str1 "\n配电箱编号" str2))<br />   (prin1)<br /> )<br />

llsheng_73

1. (strcat"\n回路编号"(vl-string-subst"\n配电箱编号" ",""wl111,AL111"))

(strcat"\n回路编号"(vl-string-subst"\n配电箱编号" ",""wl111,AL111"))