献丑鸟
分享个 俺刚研究出来的 分割字节集
我知道 外面满地都是 可俺还是愿意把 俺自己研究出来的方式 分享 希望你们喜欢
-----------------------------请看源码
.版本 2
.支持库 commobj
.子程序 分割字节集_循序分割, 整数型, 公开
.参数 字节集, 字节集, 可空
.参数 文件路径, 文本型, 可空
.参数 字节集组, 字节集, 数组
.参数 分割字节单位, 整数型
.局部变量 快速字节, 快速字节集对象
.局部变量 初始数值, 整数型
.如果真 (字节集 ≠ { } 且 文件路径 ≠ “”)
信息框 (“要想俺愉快的合作 咋能在 字节集 与 文件路径 之间 二选一不”, 0, , )
返回 (0)
.如果真结束
.如果真 (字节集 ≠ { })
快速字节.置字节集 (字节集)
.如果真结束
.如果真 (文件路径 ≠ “”)
快速字节.从文件读 (文件路径)
.如果真结束
初始数值 = 到整数 (快速字节.取长度 () ÷ 分割字节单位)
.计次循环首 (初始数值, )
加入成员 (字节集组, 快速字节.取字节集 (0, 分割字节单位))
快速字节.删除字节 (0, 分割字节单位)
.计次循环尾 ()
快速字节.清除字节集 ()
返回 (到整数 (取数组成员数 (字节集组)))
.局部变量 XX, 字节集, , "0"
调试输出 (分割字节集_循序分割 ({ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }, , XX, 4))
输出结果:数组:2{字节集:4{0,1,2,3},字节集:4{4,5,6,7}}
调试输出 (分割字节集_循序分割 (, “D:\桌面\测试.txt”, XX, 4))
输出结果:数组:2{字节集:4{0,1,2,3},字节集:4{4,5,6,7}}
搞定 嘎嘎
|