（XD::List:TableColMaxStrLen）返回行列形式表的每列的最大字符串长度

Lispboy

1. ;|
   
2. 返回行列形式表的每列的最大字符串长度
   
3. 参数： lst --- 表  行列式  ((e1 e2 ...en)(e1 e2 ... en))
   
4. 返回值： lst
   
5. *************************
   
6. 12   345 56  ""
   
7. 87   2   ""  ""
   
8. 2334 233 445 909
   
9. *************************
   
10. 命令: (XD::LIST:TABLECOLMAXSTRLEN a)
    
11. (4 3 3 3)
    
12. |;
    
13. (defun XD::List:TableColMaxStrLen (lst / c x y)
    
14.   (mapcar
    
15.     '(lambda (x)
    
16.        (apply
    
17.          'max
    
18.          (mapcar
    
19.            '(lambda (y)
    
20.               (strlen y)
    
21.             )
    
22.            x
    
23.          )
    
24.        )
    
25.      )
    
26.     (apply
    
27.       'mapcar
    
28.       (cons 'list (XD::List:ElementToString (XD::List:TableFillGap lst "") t))
    
29.     )
    
30.   )
    
31. )
    

;|<br /> 返回行列形式表的每列的最大字符串长度<br /> 参数： lst --- 表  行列式  ((e1 e2 ...en)(e1 e2 ... en))<br /> 返回值： lst<br /> *************************<br /> 12   345 56  ""<br /> 87   2   ""  ""<br /> 2334 233 445 909<br /> *************************<br /> 命令: (XD::LIST:TABLECOLMAXSTRLEN a)<br /> (4 3 3 3)<br /> |;<br /> (defun XD::List:TableColMaxStrLen (lst / c x y)<br />   (mapcar<br />     '(lambda (x)<br />        (apply<br />          'max<br />          (mapcar<br />            '(lambda (y)<br />               (strlen y)<br />             )<br />            x<br />          )<br />        )<br />      )<br />     (apply<br />       'mapcar<br />       (cons 'list (XD::List:ElementToString (XD::List:TableFillGap lst "") t))<br />     )<br />   )<br /> )<br />

st788796

名字用 getColumnCount 更好些
看错了，是 XD:: List:TableColMaxNums