解决精易模块2个BUG

LLJ

精易模块存在2个BUG，所以重新写了2个
第一个“进制_十到十六”不支持负数
第二个“进制_十六到十”十六进制大于20000000000000就会丢失低32位整数


希望精易模块也修正一下

再次修正.zip (1.89 KB, 下载次数: 23)

2016-8-27 20:19 上传

点击文件名下载附件
支持长整数型
优化“进制_十六到十”的算法，运行速度更快


再次修正：修正“进制_十六到十”的BUG，



补充内容 (2016-8-30 18:23):
再再次修正“进制_十六到十”的BUG
http://bbs.125.la/forum.php?mod=viewthread&tid=13932491

shituo

  

子程序名	返回值类型	公开	备 注
十到十六_asm	文本型		返回把长整数型值转换为16个字符组成的16进制文本
参数名	类 型	参考	可空	数组	备 注
十进制值	长整数型				最长可支持到64位长整数型数值.返回16个字符16进制文本
取字符数	整数型				可空，如果为空或0则会自动处理，否则返回设置的长度

变量名	类 型	静态	数组	备 注
retn	文本型
retnchar	字节集
i
len

置入代码 ({ 139, 69, 16, 131, 248, 17, 115, 5, 131, 248, 0, 117, 5, 184, 8, 0, 0, 0, 137, 69, 20 })
len ＝ 选择 (取字符数 ＝ 0 或 取字符数 ＞ 8, 16, 取字符数)
retn ＝ 取重复文本 (len, “0”)
' 返回值 ＝ 取文本左边 (“0000000000000000”, 16)
取字符数 ＝ 取文本型指针_asm (retn)
置入代码 ({ 81, 82, 83, 185, 16, 0, 0, 0, 139, 93, 16, 131, 195, 15, 139, 69, 8, 133, 192, 116, 17, 51, 210, 247, 241, 131, 250, 10, 114, 3, 131, 194, 7, 0, 19, 75, 235, 235, 131, 125, 12, 0, 116, 11, 135, 69, 12, 139, 93, 16, 131, 195, 7, 235, 218, 91, 90, 89, 139, 69, 20, 137, 69, 16 })
' 输出调试文本 (retn)
如果真 (len ＝ 16)
len ＝ 0
retnchar ＝ 到字节集 (retn)
计次循环首 (16, i)
判断 (retnchar [i] ＝ 48)
len ＝ len ＋ 1
跳出循环 ()

计次循环尾 ()
返回 (取文本右边 (retn, 16 － len))
返回 (取文本右边 (retn, 取字符数))

.版本 2<br /> <br /> .子程序 十到十六_asm, 文本型, 公开, 返回把长整数型值转换为16个字符组成的16进制文本<br /> .参数 十进制值, 长整数型, , 最长可支持到64位长整数型数值.返回16个字符16进制文本<br /> .参数 取字符数, 整数型, 可空, 可空，如果为空或0则会自动处理，否则返回设置的长度<br /> .局部变量 retn, 文本型<br /> .局部变量 retnchar, 字节集<br /> .局部变量 i<br /> .局部变量 len<br /> <br /> 置入代码 ({ 139, 69, 16, 131, 248, 17, 115, 5, 131, 248, 0, 117, 5, 184, 8, 0, 0, 0, 137, 69, 20 })<br /> len ＝ 选择 (取字符数 ＝ 0 或 取字符数 ＞ 8, 16, 取字符数)<br /> retn ＝ 取重复文本 (len, “0”)<br /> ' 返回值 ＝ 取文本左边 (“0000000000000000”, 16)<br /> 取字符数 ＝ 取文本型指针_asm (retn)<br /> 置入代码 ({ 81, 82, 83, 185, 16, 0, 0, 0, 139, 93, 16, 131, 195, 15, 139, 69, 8, 133, 192, 116, 17, 51, 210, 247, 241, 131, 250, 10, 114, 3, 131, 194, 7, 0, 19, 75, 235, 235, 131, 125, 12, 0, 116, 11, 135, 69, 12, 139, 93, 16, 131, 195, 7, 235, 218, 91, 90, 89, 139, 69, 20, 137, 69, 16 })<br /> ' 输出调试文本 (retn)<br /> .如果真 (len ＝ 16)<br />     len ＝ 0<br />     retnchar ＝ 到字节集 (retn)<br />     .计次循环首 (16, i)<br />         .判断开始 (retnchar <i> ＝ 48)<br />             len ＝ len ＋ 1<br />         .默认<br />             跳出循环 ()<br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     返回 (取文本右边 (retn, 16 － len))<br /> .如果真结束<br /> 返回 (取文本右边 (retn, 取字符数))

shituo

  

子程序名	返回值类型	公开	备 注
十到十六_asm	文本型		返回把长整数型值转换为16个字符组成的16进制文本
参数名	类 型	参考	可空	数组	备 注
十进制值	长整数型				最长可支持到64位长整数型数值.返回16个字符16进制文本
取字符数	整数型				可空，如果为空或0则会自动处理，否则返回设置的长度

变量名	类 型	静态	数组	备 注
retn	文本型
retnchar	字节集
i
len

置入代码 ({ 139, 69, 16, 131, 248, 17, 115, 5, 131, 248, 0, 117, 5, 184, 8, 0, 0, 0, 137, 69, 20 })
len ＝ 选择 (取字符数 ＝ 0 或 取字符数 ＞ 8, 16, 取字符数)
retn ＝ 取重复文本 (len, “0”)
' 返回值 ＝ 取文本左边 (“0000000000000000”, 16)
取字符数 ＝ 取文本型指针_asm (retn)
置入代码 ({ 81, 82, 83, 185, 16, 0, 0, 0, 139, 93, 16, 131, 195, 15, 139, 69, 8, 133, 192, 116, 17, 51, 210, 247, 241, 131, 250, 10, 114, 3, 131, 194, 7, 0, 19, 75, 235, 235, 131, 125, 12, 0, 116, 11, 135, 69, 12, 139, 93, 16, 131, 195, 7, 235, 218, 91, 90, 89, 139, 69, 20, 137, 69, 16 })
' 输出调试文本 (retn)
如果真 (len ＝ 16)
len ＝ 0
retnchar ＝ 到字节集 (retn)
计次循环首 (16, i)
判断 (retnchar [i] ＝ 48)
len ＝ len ＋ 1
跳出循环 ()

计次循环尾 ()
返回 (取文本右边 (retn, 16 － len))
返回 (取文本右边 (retn, 取字符数))

.版本 2<br /> <br /> .子程序 十到十六_asm, 文本型, 公开, 返回把长整数型值转换为16个字符组成的16进制文本<br /> .参数 十进制值, 长整数型, , 最长可支持到64位长整数型数值.返回16个字符16进制文本<br /> .参数 取字符数, 整数型, 可空, 可空，如果为空或0则会自动处理，否则返回设置的长度<br /> .局部变量 retn, 文本型<br /> .局部变量 retnchar, 字节集<br /> .局部变量 i<br /> .局部变量 len<br /> <br /> 置入代码 ({ 139, 69, 16, 131, 248, 17, 115, 5, 131, 248, 0, 117, 5, 184, 8, 0, 0, 0, 137, 69, 20 })<br /> len ＝ 选择 (取字符数 ＝ 0 或 取字符数 ＞ 8, 16, 取字符数)<br /> retn ＝ 取重复文本 (len, “0”)<br /> ' 返回值 ＝ 取文本左边 (“0000000000000000”, 16)<br /> 取字符数 ＝ 取文本型指针_asm (retn)<br /> 置入代码 ({ 81, 82, 83, 185, 16, 0, 0, 0, 139, 93, 16, 131, 195, 15, 139, 69, 8, 133, 192, 116, 17, 51, 210, 247, 241, 131, 250, 10, 114, 3, 131, 194, 7, 0, 19, 75, 235, 235, 131, 125, 12, 0, 116, 11, 135, 69, 12, 139, 93, 16, 131, 195, 7, 235, 218, 91, 90, 89, 139, 69, 20, 137, 69, 16 })<br /> ' 输出调试文本 (retn)<br /> .如果真 (len ＝ 16)<br />     len ＝ 0<br />     retnchar ＝ 到字节集 (retn)<br />     .计次循环首 (16, i)<br />         .判断开始 (retnchar <i> ＝ 48)<br />             len ＝ len ＋ 1<br />         .默认<br />             跳出循环 ()<br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     返回 (取文本右边 (retn, 16 － len))<br /> .如果真结束<br /> 返回 (取文本右边 (retn, 取字符数))

121505938xiaozh

谢谢大神 正需要 很需要

LLJ

再次修正已测试，没有问题了

旧城

感觉楼主很用心啊。

铅笔刀

不错 支持一下