【e派】工具箱函数再揭秘及应用实例

clh521

xyp1964 发表于 2012-7-21 01:23

你有这个(SETBL)函数吗，想用CMDLA0却发现少了SETBL函数

hsx5233408

好威武！ 好威风！好务实！好无私！好感谢！          

xyp1964

1. ;|
   
2. 【函　　数】: xyp-Strcat
   
3. 【功　　能】: 字符串表的连接
   
4. 【语　　法】: (xyp-Strcat lst 连接符)
   
5. 【参数或实例】: (xyp-Strcat '("aaa" "bbb" "ccc" "ddd") "-")
   
6. |;
   
7. (defun xyp-Strcat (lst str)
   
8.   (if (> (length lst) 1)
   
9.     (substr (apply 'strcat (mapcar '(lambda (x) (strcat str x)) lst))
   
10.     (+ (strlen str) 1)
    
11.     )
    
12.     (car lst)
    
13.   )
    
14. )

;|<br /> 【函　　数】: xyp-Strcat<br /> 【功　　能】: 字符串表的连接<br /> 【语　　法】: (xyp-Strcat lst 连接符)<br /> 【参数或实例】: (xyp-Strcat '("aaa" "bbb" "ccc" "ddd") "-")<br /> |;<br /> (defun xyp-Strcat (lst str)<br />   (if (> (length lst) 1)<br />     (substr (apply 'strcat (mapcar '(lambda (x) (strcat str x)) lst))<br />     (+ (strlen str) 1)<br />     )<br />     (car lst)<br />   )<br /> )

dadiwusheng

学习了[em0]

TouchYong

仲文玉 发表于 2012-7-21 05:31
支持院长

学习了.......

773786668

无条件顶，院长的源码那是必须学习滴

偏爱云~小吴

求院长一个源码xyp-get-randoms,万分感谢

clinber

xyp-Dcl-Init
院长大人 可否求一份这个

xyp1964

1. ;; xyp-SerialNumber 正整数或文本表 (xyp-SerialNumber nn数量 Num-TNil整数)
   
2. (defun xyp-SerialNumber        (nn Num-TNil)
   
3.   (setq i 0 lst '())
   
4.   (repeat nn
   
5.     (setq i   (1+ i)
   
6.           lst (if Num-TNil (cons i lst) (cons (itoa i) lst))
   
7.     )
   
8.   )
   
9.   (reverse lst)
   
10. )

;; xyp-SerialNumber 正整数或文本表 (xyp-SerialNumber nn数量 Num-TNil整数)<br /> (defun xyp-SerialNumber        (nn Num-TNil)<br />   (setq i 0 lst '())<br />   (repeat nn<br />     (setq i   (1+ i)<br />           lst (if Num-TNil (cons i lst) (cons (itoa i) lst))<br />     )<br />   )<br />   (reverse lst)<br /> )

ynhh

院长太牛了
祝院长身体健康