整数转二进制字节集和文本

jr21066

也没啥用.偶尔看有人问二进制方面的问题.说不定能用上

  

子程序名	返回值类型	公开	备 注
整数转二进制字节	字节集
参数名	类 型	参考	可空	数组	备 注
参_整数	整数型

变量名	类 型	静态	数组	备 注
当前值	整数型
返回值	字节集
内存句柄	整数型
计数器	整数型
位数	整数型

位数 ＝ 32
当前值 ＝ 参_整数
内存句柄 ＝ 申请内存 (位数, 真)
计次循环首 (位数, 计数器)
如果 (当前值 ％ 2 ＝ 1)
写到内存 ({ 1 }, 内存句柄 ＋ 位数 － 计数器, )
写到内存 ({ 0 }, 内存句柄 ＋ 位数 － 计数器, )
计数器 ＝ 计数器 ＋ 1
当前值 ＝ 右移 (当前值, 1)
计次循环尾 ()
返回值 ＝ 指针到字节集 (内存句柄, 位数)
释放内存 (内存句柄)
返回 (返回值)

子程序名	返回值类型	公开	备 注
整数转二进制文本	文本型
参数名	类 型	参考	可空	数组	备 注
参_整数	整数型

变量名	类 型	静态	数组	备 注
当前值	整数型
返回值	文本型
内存句柄	整数型
计数器	整数型
位数	整数型

位数 ＝ 32
当前值 ＝ 参_整数
内存句柄 ＝ 申请内存 (位数 ＋ 1, 真)
计次循环首 (位数, 计数器)
如果 (当前值 ％ 2 ＝ 1)
写到内存 ({ 49 }, 内存句柄 ＋ 位数 － 计数器, )
写到内存 ({ 48 }, 内存句柄 ＋ 位数 － 计数器, )
计数器 ＝ 计数器 ＋ 1
当前值 ＝ 右移 (当前值, 1)
计次循环尾 ()
返回值 ＝ 指针到文本 (内存句柄)
释放内存 (内存句柄)
返回 (返回值)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 整数转二进制字节, 字节集<br /> .参数 参_整数, 整数型<br /> .局部变量 当前值, 整数型<br /> .局部变量 返回值, 字节集<br /> .局部变量 内存句柄, 整数型<br /> .局部变量 计数器, 整数型<br /> .局部变量 位数, 整数型<br /> <br /> 位数 ＝ 32<br /> 当前值 ＝ 参_整数<br /> 内存句柄 ＝ 申请内存 (位数, 真)<br /> .计次循环首 (位数, 计数器)<br />     .如果 (当前值 ％ 2 ＝ 1)<br />         写到内存 ({ 1 }, 内存句柄 ＋ 位数 － 计数器, )<br />     .否则<br />         写到内存 ({ 0 }, 内存句柄 ＋ 位数 － 计数器, )<br />     .如果结束<br />     计数器 ＝ 计数器 ＋ 1<br />     当前值 ＝ 右移 (当前值, 1)<br /> .计次循环尾 ()<br /> 返回值 ＝ 指针到字节集 (内存句柄, 位数)<br /> 释放内存 (内存句柄)<br /> 返回 (返回值)<br /> <br /> .子程序 整数转二进制文本, 文本型<br /> .参数 参_整数, 整数型<br /> .局部变量 当前值, 整数型<br /> .局部变量 返回值, 文本型<br /> .局部变量 内存句柄, 整数型<br /> .局部变量 计数器, 整数型<br /> .局部变量 位数, 整数型<br /> <br /> 位数 ＝ 32<br /> 当前值 ＝ 参_整数<br /> 内存句柄 ＝ 申请内存 (位数 ＋ 1, 真)<br /> .计次循环首 (位数, 计数器)<br />     .如果 (当前值 ％ 2 ＝ 1)<br />         写到内存 ({ 49 }, 内存句柄 ＋ 位数 － 计数器, )<br />     .否则<br />         写到内存 ({ 48 }, 内存句柄 ＋ 位数 － 计数器, )<br />     .如果结束<br />     计数器 ＝ 计数器 ＋ 1<br />     当前值 ＝ 右移 (当前值, 1)<br /> .计次循环尾 ()<br /> 返回值 ＝ 指针到文本 (内存句柄)<br /> 释放内存 (内存句柄)<br /> 返回 (返回值)

jr21066

filippo009 发表于 2024-9-6 12:39
请教一下，要打开一个二进制文件，然后追加写内容，这个要怎么呢

打开文件后,将读写指针移动到文件尾就是追加了.
指针就是读写的位置

filippo009

请教一下，要打开一个二进制文件，然后追加写内容，这个要怎么呢

成神之日

感谢分享，很给力！~

陈有贤

cf2006a

.版本 2

.子程序 十转二_福仔, 文本型, 公开, 福仔同款
.参数 十进制数, 整数型
.局部变量 局_二进制, 文本型

局_二进制 ＝ 取重复文本 (32, “0”)
置入代码 ({ 139, 85, 8, 133, 210, 116, 28, 49, 201, 131, 192, 31, 131, 249, 31, 127, 18, 191, 1, 0, 0, 0, 211, 231, 33, 215, 116, 3, 198, 0, 49, 65, 72, 235, 233, 139, 69, 252, 201, 194, 4, 0 })
返回 (局_二进制)

り铕靺╮铕樣﹏

.版本 2
.支持库 spec

.子程序 十进制到二进制, 文本型
.参数 十进制整数, 整数型
.局部变量 内存数据, 字节型, , "33"
.局部变量 i


.变量循环首 (32, 1, -1, i)
    内存数据 [i] ＝ 选择 (十进制整数 ％ 2 ＝ 1, 49, 48)
    十进制整数 ＝ 右移 (十进制整数, 1)
.变量循环尾 ()

返回 (指针到文本 (取变量数据地址 (内存数据)))




楼主给你简化了，希望喜欢。。。

hljtlwx

谢谢楼主。学习一下。

外星星人

沙发支持楼主