需要用到觅风模块命令,我主要是方便自己使用而已,我发现精易原先的十到十六,不支持负数,并且不支持保留00在前边 为了符合我自己的使用需求,自己就写了一份完美版的。 .版本 2 .子程序 十到十六, 文本型, 公开 .参数 十进制, 长整数型 .参数 是否不去零, 逻辑型, 可空, 默认为假 .局部变量 整数十进制, 整数型 .局部变量 结果, 文本型 .如果 (十进制 ≤ 2147483647 且 十进制 ≥ -2147483647) 整数十进制 = 十进制 结果 = 字节集_字节集到十六进制 (字节集_反转 (到字节集 (整数十进制))) .否则 结果 = 字节集_字节集到十六进制 (字节集_反转 (到字节集 (十进制))) .如果结束 .如果真 (是否不去零 = 真) .判断循环首 (取文本左边 (结果, 2) = “00”) 结果 = 取文本右边 (结果, 取文本长度 (结果) - 2) .判断循环尾 () .如果真结束 返回 (结果) 上面的代码复制到易语言内即可。 |