(XD::Table:RowFillGap)根据最大长度，把表按指定值填补

Lispboy

1. ;|
   
2. 根据最大长度，把表按指定值填补
   
3. 参数：
   
4.   lst  --- 表
   
5.   val  --- 填补的值
   
6.   maxL --- 新表的长度
   
7. 
   
8. 返回值：
   
9.   表
   
10. 
    
11. 示例：(setq b (cadr a))
    
12. (1 2)
    
13. 
    
14. (xd::table:rowfillgap b "" 4)
    
15. (1 2 "" "")
    
16. 
    
17. (xd::table:rowfillgap b nil 4)
    
18. (1 2 nil nil)
    
19. |;
    
20. 
    
21. (defun XD::Table:RowFillGap (lst val maxL / l)
    
22.   (and
    
23.     (setq l (length lst))
    
24.     (< l maxL)
    
25.     (setq lst (reverse lst))
    
26.     (repeat (- maxL l)
    
27.       (setq lst (cons val lst))
    
28.     )
    
29.     (setq lst (reverse lst))
    
30.   )
    
31.   lst
    
32. )
    
33. 
    

;|<br /> 根据最大长度，把表按指定值填补<br /> 参数：<br />   lst  --- 表<br />   val  --- 填补的值<br />   maxL --- 新表的长度<br /> <br /> 返回值：<br />   表<br /> <br /> 示例：(setq b (cadr a))<br /> (1 2)<br /> <br /> (xd::table:rowfillgap b "" 4)<br /> (1 2 "" "")<br /> <br /> (xd::table:rowfillgap b nil 4)<br /> (1 2 nil nil)<br /> |;<br /> <br /> (defun XD::Table:RowFillGap (lst val maxL / l)<br />   (and<br />     (setq l (length lst))<br />     (< l maxL)<br />     (setq lst (reverse lst))<br />     (repeat (- maxL l)<br />       (setq lst (cons val lst))<br />     )<br />     (setq lst (reverse lst))<br />   )<br />   lst<br /> )<br /> <br />

st788796

1. (defun fill (lst val / maxIndex mL)
   
2.   (setq        lst         (vl-sort lst '(lambda (l1 l2) (> (length l1) (length l2))))
   
3.         maxIndex (car lst)
   
4.         mL         (length maxIndex)
   
5.   )
   
6.   (cons        maxIndex
   
7.         (mapcar        '(lambda (x / l)
   
8.                    (setq l maxIndex)
   
9.                    (repeat (length x)
   
10.                      (setq l (cdr l))
    
11.                    )
    
12.                    (append x (mapcar '(lambda (x) val) l))
    
13.                  )
    
14.                 (cdr lst)
    
15.         )
    
16.   )
    
17. )

(defun fill (lst val / maxIndex mL)<br />   (setq        lst         (vl-sort lst '(lambda (l1 l2) (> (length l1) (length l2))))<br />         maxIndex (car lst)<br />         mL         (length maxIndex)<br />   )<br />   (cons        maxIndex<br />         (mapcar        '(lambda (x / l)<br />                    (setq l maxIndex)<br />                    (repeat (length x)<br />                      (setq l (cdr l))<br />                    )<br />                    (append x (mapcar '(lambda (x) val) l))<br />                  )<br />                 (cdr lst)<br />         )<br />   )<br /> )

Lispboy

st788796 发表于 2013-11-15 22:53

我这个函数是只处理一行的。

你应该贴到 XD::Table:FillGap 那个整个表格的立面。

st788796

Lispboy 发表于 2013-11-15 23:17
我这个函数是只处理一行的。

你应该贴到 XD::Table:FillGap 那个整个表格的立面。

既然是表格，单行的几乎没有，用一个函数就可以了

Lispboy

st788796 发表于 2013-11-15 23:38
既然是表格，单行的几乎没有，用一个函数就可以了

不是的，写程序的时候有时候需要在单行时候处理。