求助版主和各位朋友帮看下指定元素的问题 (已完结)

simon8001

回复 Andyhon 的帖子

嗯，谢谢您了！ 判断表是否相等用的是 “equal”  我需要的就是这个 呵呵！！
我主要担心的是如果不判断里面表内的元素是不是（"X/N+1" ""），如果有其他的元素里也有相等的，就会丢元素了！！！
您理解吧！！

skynoon

看到这里才明白你要的是什么

simon8001

总结：
      昨天晚上睡不着觉想了想，想出来应该怎么编了。
      把xxb翻转过来，然后对第一个表用car和cdr分别判断是不是等于“X”和“”，同样的方式判断第二个表中的元素，然后两个表在比较，如果两个表相同，就删除 一个（“X” “”)，再翻转过来得到新的xxb！！

2. (defun c:ff()
   
3.   (setq xxb (list(list"S1" "26") (list"09" "20") (list"09" "26") (list"09" "20") (list"10" "26") (list"10" "20") (list"10" "26")
   
4.        (list"10" "20") (list"19" "26") (list"S" "") (list"10" "20") (list"10" "26") (list"10" "20") (list"10" "26")
   
5.        (list"11" "20") (list"11" "26") (list"10B" "20") (list"11A" "26") (list"11B" "20") (list"11A" "26") (list"X" "")(list"X" "")))
   
6.   (setq bb1(length xxb) xxa (reverse xxb) i 0)
   
7.   (while i
   
8.    (setq a1 (nth i xxa) )
   
9.    (setq a2 (nth i xxa) )
   
10.    (if (and (and (= (CAR A1) "X")(= (CADR A1) ""))(and (= (CAR A2) "X")(= (CADR A2) "")))
    
11.         (setq xxa (cdr xxa))
    
12.     (setq i nil))
    
13.   )
    
14.   (setq xxb (reverse xxa))
    
15. )

(defun c:ff()<br />   (setq xxb (list(list"S1" "26") (list"09" "20") (list"09" "26") (list"09" "20") (list"10" "26") (list"10" "20") (list"10" "26")<br />        (list"10" "20") (list"19" "26") (list"S" "") (list"10" "20") (list"10" "26") (list"10" "20") (list"10" "26")<br />        (list"11" "20") (list"11" "26") (list"10B" "20") (list"11A" "26") (list"11B" "20") (list"11A" "26") (list"X" "")(list"X" "")))<br />   (setq bb1(length xxb) xxa (reverse xxb) i 0)<br />   (while i<br />    (setq a1 (nth i xxa) )<br />    (setq a2 (nth i xxa) )<br />    (if (and (and (= (CAR A1) "X")(= (CADR A1) ""))(and (= (CAR A2) "X")(= (CADR A2) "")))<br />         (setq xxa (cdr xxa))<br />     (setq i nil))<br />   )<br />   (setq xxb (reverse xxa))<br /> )

再次的谢谢各位的帮助，没有你们的帮助，也不会打开我的思路，衷心的谢谢你们！！

Andyhon

2. 
   
3. (setq xxb (list
   
4.      (list "S1" "26")
   
5.      ...
   
6.      (list "S" "")
   
7.     ...
   
8.      (list "11A" "26")
   
9.      (list "11B" "20")
   
10.      (list "11A" "26")
    
11.   ;; if many ....
    
12.      (list "X" "")
    
13.      (list "X" "")
    
14.      (list "X" "")
    
15.      (list "X" "")
    
16.      (list "X" "")
    
17.   )
    
18. )
    
19. (cond
    
20. ((= (setq num (length (member (last xxb) xxb))) 1) xxb)
    
21. (T
    
22.   (setq bxx (reverse xxb))
    
23.   (repeat (1- num)
    
24.     (setq bxx (cdr bxx))
    
25.   )
    
26.   (reverse bxx)
    
27. ))
    

<br /> (setq xxb (list<br />      (list "S1" "26")<br />      ...<br />      (list "S" "")<br />     ...<br />      (list "11A" "26")<br />      (list "11B" "20")<br />      (list "11A" "26")<br />   ;; if many ....<br />      (list "X" "")<br />      (list "X" "")<br />      (list "X" "")<br />      (list "X" "")<br />      (list "X" "")<br />   )<br /> )<br /> (cond<br /> ((= (setq num (length (member (last xxb) xxb))) 1) xxb)<br /> (T<br />   (setq bxx (reverse xxb))<br />   (repeat (1- num)<br />     (setq bxx (cdr bxx))<br />   )<br />   (reverse bxx)<br /> ))<br />

mandala

楼上无敌。

simon8001

回复 Andyhon 的帖子

谢谢你热心的回答！！
thank you so much！！