十到十六互转-支持长整数

heiyi · 发表于 2014-11-9 23:56:49

论坛的精易模块不支持长整数十到十六互转，所以写了个，希望精易模块也修正下。

窗口程序集名	保留	保留	备注
程序集1

子程序名	返回值类型	公开	备注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
_临时子程序

变量名	类型	静态	数组	备注
十进制	长整数型
十六进制	文本型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
十进制＝ 1234567890123
十六进制＝进制_十到十六 (十进制)
十进制＝进制_十六到十 (到小写 (十六进制))
调试输出 (十六进制, 十进制)

子程序名	返回值类型	公开	备注
进制_十到十六	文本型		十进制数值转换十六进制文本，支持长整数型。
参数名	类型	参考	可空	数组	备注
十进制	长整数型

变量名	类型	静态	数组	备注
余	整数型
结果	文本型

循环判断首 ()
余＝十进制％ 16
十进制＝十进制＼ 16
结果＝取文本中间 (“0123456789ABCDEF”, 余＋ 1, 1) ＋结果

循环判断尾 (十进制 ≠ 0)
返回 (结果)

子程序名	返回值类型	公开	备注
进制_十六到十	长整数型		十六进制文本转换十进制数值，支持长整数型。
参数名	类型	参考	可空	数组	备注
文本	文本型

变量名	类型	静态	数组	备注
i	整数型
结果	长整数型

变量循环首 (1, 取文本长度 (文本), 1, i)
结果＝结果 × 16 ＋寻找文本 (“0123456789ABCDEF”, 取文本中间 (文本, i, 1), , 真) － 1

变量循环尾 ()
返回 (结果)

i支持库列表	支持库注释
spec	特殊功能支持库

liutao24k · 发表于 2023-9-26 11:26:23

111111111111111111111111111111

79961565 · 发表于 2022-6-22 17:22:26

感谢分享，很给力！~

成神之日 · 发表于 2021-4-18 09:07:15

谢谢分享来看看

dcj1104 · 发表于 2021-4-17 18:39:11

给哇嘎哇嘎哇嘎五个挖嘎嘎

qaz5596214 · 发表于 2020-10-12 16:45:50

支持学习一下

pic2010 · 发表于 2018-9-12 17:26:23

不错！学习了

tianxi · 发表于 2017-10-22 17:14:26

超大文本效率低还是汇编进制转好

精易小彪 · 发表于 2016-4-25 13:17:46

源码在哪呢

Else · 发表于 2016-4-14 22:05:18

数据不准的 100353110349717026 你试试

		自动登录	找回密码
密码			注册

[易语言纯源码] 十到十六互转-支持长整数

评分