把一个长整数转换成一个64个元素的逻辑型数组

阿素里戈沃里嘚

把一个长整数转换成一个64个元素的逻辑型数组，同时也可以把64个元素的逻辑型数组转换回长整数
大家互相学习...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
局_测试长整数	长整数型
局_逻辑数组	逻辑型		0
i	整数型
局_文本	文本型

' 长整数型取值范围：-9,223,372,036,854,775,808 至 9,223,372,036,854,775,807
局_测试长整数 ＝ -9.223372036855e+018  ' 测试用长整数
调试输出 (局_测试长整数)
长整数到逻辑数组 (局_测试长整数, 局_逻辑数组)
' 输出结果验证
计次循环首 (64, i)
局_文本 ＝ 局_文本 ＋ 到文本 (i) ＋ 到文本 (局_逻辑数组 [i]) ＋ “,”
计次循环尾 ()
调试输出 (局_文本)
调试输出 (“成功还原回长整数：”, 逻辑数组到长整数 (局_逻辑数组))

子程序名	返回值类型	公开	备 注
长整数到逻辑数组			64位转换(分高低32位处理)
参数名	类 型	参考	可空	数组	备 注
局_输入长整数	长整数型
局_输出数组	逻辑型

变量名	类 型	静态	数组	备 注
局_高32位	整数型
局_低32位	整数型
局_位位置	整数型
局_转换字节集	字节集

' 确保输出数组有64个元素
重定义数组 (局_输出数组, 假, 64)
' 拆分长整数为高低32位
局_转换字节集 ＝ 到字节集 (局_输入长整数)
局_高32位 ＝ 取字节集数据 (局_转换字节集, #整数型, 1)
局_低32位 ＝ 取字节集数据 (局_转换字节集, #整数型, 5)
' 处理高32位(位1-32)
计次循环首 (32, 局_位位置)
局_输出数组 [局_位位置] ＝ 位与 (右移 (局_高32位, 局_位位置 － 1), 1) ≠ 0
计次循环尾 ()
' 处理低32位(位33-64)
计次循环首 (32, 局_位位置)
局_输出数组 [局_位位置 ＋ 32] ＝ 位与 (右移 (局_低32位, 局_位位置 － 1), 1) ≠ 0
计次循环尾 ()

子程序名	返回值类型	公开	备 注
逻辑数组到长整数	长整数型
参数名	类 型	参考	可空	数组	备 注
局_输入数组	逻辑型

变量名	类 型	静态	数组	备 注
局_高32位	整数型
局_低32位	整数型
局_位位置	整数型
局_转换字节集	字节集

' 检查输入数组大小，不对则强制转换成64位
如果真 (取数组成员数 (局_输入数组) ≠ 64)
重定义数组 (局_输入数组, 真, 64)

' 还原高32位
计次循环首 (32, 局_位位置)
如果真 (局_输入数组 [局_位位置])
局_高32位 ＝ 位或 (局_高32位, 左移 (1, 局_位位置 － 1))

计次循环尾 ()
' 还原低32位
计次循环首 (32, 局_位位置)
如果真 (局_输入数组 [局_位位置 ＋ 32])
局_低32位 ＝ 位或 (局_低32位, 左移 (1, 局_位位置 － 1))

计次循环尾 ()
' 组合高低32位
局_转换字节集 ＝ 到字节集 (局_高32位) ＋ 到字节集 (局_低32位)
返回 (取字节集数据 (局_转换字节集, #长整数型, 1))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_测试长整数, 长整数型<br /> .局部变量 局_逻辑数组, 逻辑型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_文本, 文本型<br /> <br /> ' 长整数型取值范围：-9,223,372,036,854,775,808 至 9,223,372,036,854,775,807<br /> 局_测试长整数 ＝ -9.223372036855e+018  ' 测试用长整数<br /> 调试输出 (局_测试长整数)<br /> 长整数到逻辑数组 (局_测试长整数, 局_逻辑数组)<br /> <br /> ' 输出结果验证<br /> .计次循环首 (64, i)<br />     局_文本 ＝ 局_文本 ＋ 到文本 (i) ＋ 到文本 (局_逻辑数组 <i>) ＋ “,”<br /> .计次循环尾 ()<br /> 调试输出 (局_文本)<br /> 调试输出 (“成功还原回长整数：”, 逻辑数组到长整数 (局_逻辑数组))<br /> <br /> .子程序 长整数到逻辑数组, , , 64位转换(分高低32位处理)<br /> .参数 局_输入长整数, 长整数型<br /> .参数 局_输出数组, 逻辑型, 参考 数组<br /> .局部变量 局_高32位, 整数型<br /> .局部变量 局_低32位, 整数型<br /> .局部变量 局_位位置, 整数型<br /> .局部变量 局_转换字节集, 字节集<br /> <br /> ' 确保输出数组有64个元素<br /> 重定义数组 (局_输出数组, 假, 64)<br /> <br /> ' 拆分长整数为高低32位<br /> 局_转换字节集 ＝ 到字节集 (局_输入长整数)<br /> 局_高32位 ＝ 取字节集数据 (局_转换字节集, #整数型, 1)<br /> 局_低32位 ＝ 取字节集数据 (局_转换字节集, #整数型, 5)<br /> <br /> ' 处理高32位(位1-32)<br /> .计次循环首 (32, 局_位位置)<br />     局_输出数组 [局_位位置] ＝ 位与 (右移 (局_高32位, 局_位位置 － 1), 1) ≠ 0<br /> .计次循环尾 ()<br /> ' 处理低32位(位33-64)<br /> .计次循环首 (32, 局_位位置)<br />     局_输出数组 [局_位位置 ＋ 32] ＝ 位与 (右移 (局_低32位, 局_位位置 － 1), 1) ≠ 0<br /> .计次循环尾 ()<br /> <br /> .子程序 逻辑数组到长整数, 长整数型<br /> .参数 局_输入数组, 逻辑型, 参考 数组<br /> .局部变量 局_高32位, 整数型<br /> .局部变量 局_低32位, 整数型<br /> .局部变量 局_位位置, 整数型<br /> .局部变量 局_转换字节集, 字节集<br /> <br /> ' 检查输入数组大小，不对则强制转换成64位<br /> .如果真 (取数组成员数 (局_输入数组) ≠ 64)<br />     重定义数组 (局_输入数组, 真, 64)<br /> .如果真结束<br /> <br /> ' 还原高32位<br /> .计次循环首 (32, 局_位位置)<br />     .如果真 (局_输入数组 [局_位位置])<br />         局_高32位 ＝ 位或 (局_高32位, 左移 (1, 局_位位置 － 1))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 还原低32位<br /> .计次循环首 (32, 局_位位置)<br />     .如果真 (局_输入数组 [局_位位置 ＋ 32])<br />         局_低32位 ＝ 位或 (局_低32位, 左移 (1, 局_位位置 － 1))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 组合高低32位<br /> 局_转换字节集 ＝ 到字节集 (局_高32位) ＋ 到字节集 (局_低32位)<br /> 返回 (取字节集数据 (局_转换字节集, #长整数型, 1))

931691974

能不能100GB压缩到长整数型，然后长整数型解压还原成无损100GB

931691974

怎么样把大文件压缩到很小？比如把100GB压缩到1MB

jysoft2022

感谢分享

please

感谢分享，支持开源！！！

8503

我来看看研究研究！

一指温柔

感谢分享，很给力！~

ruanmeizi6

ogion

感谢分享 学习学习

沐白22

        感谢分享，很给力！~