发码养号之数据转换

夏生生

收币有风险，下载需谨慎，勿喷

本附件含20个函数
1.OLE2RGB--OLE转RGB颜色号
2.RGB2ACI--RGB转ACI颜色号
3.OLE2ACI--OLE转ACI颜色号
4.dec2bin--十进制转二进制
5.bin2dec--二进制转十进制
6.Hex2Dec--十六进制转十进制
7.Dec2Hex--十进制转十六进制
8.Hex2Bin--十六进制转二进制
9.Bin2Hex--二进制转十六进制
10.dec2txt--十进制数字转文字
11.txt2dec--文字转十进制数字
12.value2list--变体转表
13.add0--加前导0
14.ladd0--字符串表取齐（加前导零）
15.lst2RAR--压缩数据:2元整数表压缩成一个整数
16.RAR2lst--解压缩数据:一个整数压缩成2元整数表
17.rounded--四舍五入
18.ss2lst--选择集转图元名或obj表
19.lst2ss--图元名或obj表转选择集
20.s->list--将字符串分解成ascii表组成的表

夏生生

抱歉，函数拷贝错文件了

2. ;;;=============================================
   
3. ;;;      通用函数  加前导0
   
4. ;;;参数： str------字符串
   
5. ;;;       n---------加零后字符串长度
   
6. ;;;返回值：加前导零后字符串
   
7. (defun add0 (str n)
   
8.   (setq n (- n (strlen str)))
   
9.   (repeat n (setq str (strcat "0" str)))
   
10.   str
    
11. )
    
12. ;;;=============================================
    
13. ;;;      通用函数 压缩数据:2元整数表压缩成一个整数
    
14. ;;;参数： lst-------整数表
    
15. ;;;       imax------整数最大位数
    
16. ;;;返回值：整数
    
17. (defun lst2RAR (lst imax / x y)
    
18.   (setq x(car lst)y(cadr lst))
    
19.   (atoi (strcat (itoa x) (add0 (itoa y) imax)))
    
20. )
    
21. ;;;=============================================
    
22. ;;;      通用函数 解压缩数据:一个整数压缩成2元整数表
    
23. ;;;参数： lst-------整数表
    
24. ;;;       imax------整数最大位数
    
25. ;;;返回值：2个整数组成的表
    
26. (defun RAR2lst (i imax)
    
27.   (setq imax (expt 10 imax))
    
28.   (list (/ i imax)(rem i imax))
    
29. )

;;;=============================================<br /> ;;;      通用函数  加前导0<br /> ;;;参数： str------字符串<br /> ;;;       n---------加零后字符串长度<br /> ;;;返回值：加前导零后字符串<br /> (defun add0 (str n)<br />   (setq n (- n (strlen str)))<br />   (repeat n (setq str (strcat "0" str)))<br />   str<br /> )<br /> ;;;=============================================<br /> ;;;      通用函数 压缩数据:2元整数表压缩成一个整数<br /> ;;;参数： lst-------整数表<br /> ;;;       imax------整数最大位数<br /> ;;;返回值：整数<br /> (defun lst2RAR (lst imax / x y)<br />   (setq x(car lst)y(cadr lst))<br />   (atoi (strcat (itoa x) (add0 (itoa y) imax)))<br /> )<br /> ;;;=============================================<br /> ;;;      通用函数 解压缩数据:一个整数压缩成2元整数表<br /> ;;;参数： lst-------整数表<br /> ;;;       imax------整数最大位数<br /> ;;;返回值：2个整数组成的表<br /> (defun RAR2lst (i imax)<br />   (setq imax (expt 10 imax))<br />   (list (/ i imax)(rem i imax))<br /> )

夏生生

tryhi 发表于 2021-12-6 20:30
lst2RAR跟RAR2lst怎么用的？

这两个函数是用于压缩数据的，例如
(setq a '((123 44)(56 1)(48 222)(123 456)))
(setq b(mapcar'(lambda(x)(lst2rar x 3))a))->(123044 56001 48222 123456)
(mapcar'(lambda(x)(RAR2lst x 3))b)->((123 44) (56 1) (48 222) (123 456))

夏生生

ssyfeng 发表于 2021-12-7 08:54
缺少xty-tr-add0函数

重新下载一楼的就行了，我改好了.六楼的也改好了

guosheyang

感谢共享！很好的资源！

wzg356

669423907

感谢楼主分享源码

tryhi

lst2RAR跟RAR2lst怎么用的？

ssyfeng

缺少xty-tr-add0函数

ssyfeng

直接贴出函数吧，重新上传要重新收币