【开源】文件补制作工具Bate1.0尝鲜版

网络注册会员

期待升级哦

安与好

支持一下哦

xiaowukeji

这个补丁源码不错

zjghjs

下载学习,感谢楼主!

ruibin2840

4枚jb，发财了啊，到底什么样的程序，好好研究一下

ruibin2840

没有实质功能啊。4jb下了个什么

DDSGXQ

转化参考地址：https://bbs.125.la/forum.php?mod=viewthread&tid=14170646

可以和这个做个对比，https://bbs.125.la/forum.php?mod=viewthread&tid=14174045

做文件补丁思路：1.把地址连起来，加分隔符分割，转换成字节集（有标志1）
2.把地址数据连起来，加分隔符分割，转换成字节集（有标志2）
两者1和2写到运行补丁的文件尾

运行补丁读取数据：
读取自身字节集，通过标志1和标志2分割地址和地址数据（此时为字节集）
字节集转换成文本，分割文本（把分隔符去掉）转换成数组，加入成员，转换成整数数组和字节集数组。
附：源码优化

  

子程序名	返回值类型	公开	备 注
数据处理1

变量名	类 型	静态	数组	备 注
索引
计次
开始索引	文本型
上次索引	文本型
本次索引	文本型
本次文本	文本型
临时文本	文本型
临时文本2	文本型
文本数组	文本型		0
文本数组2	文本型		0
M	整数型
N	整数型
数值	整数型		0
数据	文本型		0
局_数据	文本型
局_数值	文本型

超级列表框_模式2.全部删除 ()
开始索引 ＝ 超级列表框_模式1.取标题 (0, 1)
计次循环首 (超级列表框_模式1.取表项数 (), 计次)
本次索引 ＝ 超级列表框_模式1.取标题 (计次 － 1, 1)
如果 (到整数 (本次索引) － 到整数 (上次索引) ＝ 1)  ' 连续数字
如果 (临时文本 ＝ “”)
临时文本 ＝ 超级列表框_模式1.取标题 (计次 － 1, 2)
临时文本 ＝ 临时文本 ＋ “ ” ＋ 超级列表框_模式1.取标题 (计次 － 1, 2)
如果 (临时文本2 ＝ “”)
临时文本2 ＝ 超级列表框_模式1.取标题 (计次 － 1, 3)
临时文本2 ＝ 临时文本2 ＋ “ ” ＋ 超级列表框_模式1.取标题 (计次 － 1, 3)

文本数组 ＝ 分割文本 (临时文本, “ ”, )  ' 不连续数字
' 文本数组2 ＝ 分割文本 (临时文本2, “ ”, )  ' 不连续数字
索引 ＝ 超级列表框_模式2.插入表项 (, , , , , )
超级列表框_模式2.置标题 (索引 － 1, 0, 进制_十到十六 (到整数 (开始索引)))  ' 16进制地址
超级列表框_模式2.置标题 (索引 － 1, 1, 临时文本)  ' 原数据
超级列表框_模式2.置标题 (索引 － 1, 2, 临时文本2)  ' 现数据
超级列表框_模式2.置标题 (索引 － 1, 3, 到文本 (取数组成员数 (文本数组)))  ' 长度
加入成员 (数据, 临时文本2)
加入成员 (数值, 到整数 (开始索引))
开始索引 ＝ 本次索引
临时文本 ＝ 超级列表框_模式1.取标题 (计次 － 1, 2)
临时文本2 ＝ 超级列表框_模式1.取标题 (计次 － 1, 3)
上次索引 ＝ 本次索引
计次循环尾 ()
' '最后一个
文本数组 ＝ 分割文本 (临时文本, “ ”, )
超级列表框_模式2.置标题 (索引, 0, 进制_十到十六 (到整数 (开始索引)))  ' 16进制地址
超级列表框_模式2.置标题 (索引, 1, 临时文本)  ' 原数据
超级列表框_模式2.置标题 (索引, 2, 临时文本2)  ' 现数据
超级列表框_模式2.置标题 (索引, 3, 到文本 (取数组成员数 (文本数组)))  ' 长度
加入成员 (数据, 临时文本2)
加入成员 (数值, 到整数 (开始索引))
删除成员 (数据, 1, 1)
删除成员 (数值, 1, 1)
' 调试输出 (数据)
' 调试输出 (数值)
计次循环首 (取数组成员数 (数据), M)
局_数据 ＝ 局_数据 ＋ “Buffer [ ” ＋ 到文本 (M) ＋ “ ]” ＋ “ = ” ＋ 字节集_查看 (字节集_十六进制到字节集 (删全部空 (数据 [M]))) ＋ #换行符
计次循环尾 ()
计次循环首 (取数组成员数 (数值), N)
局_数值 ＝ 局_数值 ＋ “，” ＋ 到文本 (数值 [N] ＋ 1)
计次循环尾 ()
' 调试输出 (局_数据)
全局_Buffer数组 ＝ 局_数据
全局_Address数组 ＝ “Address ＝  { ” ＋ 取文本右边 (局_数值, 取文本长度 (局_数值) － 2) ＋ “ }”
标签_数据行数_模式2.标题 ＝ “共获取到 ” ＋ 到文本 (超级列表框_模式2.取表项数 ()) ＋ “ 行数据” ＋ “  ” ＋ “总字节数：” ＋ 到文本 (全局_项目数)
调试输出 (全局_Buffer数组)
调试输出 (全局_Address数组)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 数据处理1<br /> .局部变量 索引<br /> .局部变量 计次<br /> .局部变量 开始索引, 文本型<br /> .局部变量 上次索引, 文本型<br /> .局部变量 本次索引, 文本型<br /> .局部变量 本次文本, 文本型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 临时文本2, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 文本数组2, 文本型, , "0"<br /> .局部变量 M, 整数型<br /> .局部变量 N, 整数型<br /> .局部变量 数值, 整数型, , "0"<br /> .局部变量 数据, 文本型, , "0"<br /> .局部变量 局_数据, 文本型<br /> .局部变量 局_数值, 文本型<br /> <br /> 超级列表框_模式2.全部删除 ()<br /> 开始索引 ＝ 超级列表框_模式1.取标题 (0, 1)<br /> .计次循环首 (超级列表框_模式1.取表项数 (), 计次)<br />     本次索引 ＝ 超级列表框_模式1.取标题 (计次 － 1, 1)<br />     .如果 (到整数 (本次索引) － 到整数 (上次索引) ＝ 1)  ' 连续数字<br />         .如果 (临时文本 ＝ “”)<br />             临时文本 ＝ 超级列表框_模式1.取标题 (计次 － 1, 2)<br />         .否则<br />             临时文本 ＝ 临时文本 ＋ “ ” ＋ 超级列表框_模式1.取标题 (计次 － 1, 2)<br />         .如果结束<br />         .如果 (临时文本2 ＝ “”)<br />             临时文本2 ＝ 超级列表框_模式1.取标题 (计次 － 1, 3)<br />         .否则<br />             临时文本2 ＝ 临时文本2 ＋ “ ” ＋ 超级列表框_模式1.取标题 (计次 － 1, 3)<br />         .如果结束<br /> <br />     .否则<br />         文本数组 ＝ 分割文本 (临时文本, “ ”, )  ' 不连续数字<br />         ' 文本数组2 ＝ 分割文本 (临时文本2, “ ”, )  ' 不连续数字<br />         索引 ＝ 超级列表框_模式2.插入表项 (, , , , , )<br />         超级列表框_模式2.置标题 (索引 － 1, 0, 进制_十到十六 (到整数 (开始索引)))  ' 16进制地址<br />         超级列表框_模式2.置标题 (索引 － 1, 1, 临时文本)  ' 原数据<br />         超级列表框_模式2.置标题 (索引 － 1, 2, 临时文本2)  ' 现数据<br />         超级列表框_模式2.置标题 (索引 － 1, 3, 到文本 (取数组成员数 (文本数组)))  ' 长度<br />         加入成员 (数据, 临时文本2)<br />         加入成员 (数值, 到整数 (开始索引))<br /> <br />         开始索引 ＝ 本次索引<br />         临时文本 ＝ 超级列表框_模式1.取标题 (计次 － 1, 2)<br />         临时文本2 ＝ 超级列表框_模式1.取标题 (计次 － 1, 3)<br />     .如果结束<br />     上次索引 ＝ 本次索引<br /> .计次循环尾 ()<br /> ' '最后一个<br /> 文本数组 ＝ 分割文本 (临时文本, “ ”, )<br /> 超级列表框_模式2.置标题 (索引, 0, 进制_十到十六 (到整数 (开始索引)))  ' 16进制地址<br /> 超级列表框_模式2.置标题 (索引, 1, 临时文本)  ' 原数据<br /> 超级列表框_模式2.置标题 (索引, 2, 临时文本2)  ' 现数据<br /> 超级列表框_模式2.置标题 (索引, 3, 到文本 (取数组成员数 (文本数组)))  ' 长度<br /> 加入成员 (数据, 临时文本2)<br /> 加入成员 (数值, 到整数 (开始索引))<br /> 删除成员 (数据, 1, 1)<br /> 删除成员 (数值, 1, 1)<br /> ' 调试输出 (数据)<br /> ' 调试输出 (数值)<br /> <br /> .计次循环首 (取数组成员数 (数据), M)<br />     局_数据 ＝ 局_数据 ＋ “Buffer [ ” ＋ 到文本 (M) ＋ “ ]” ＋ “ = ” ＋ 字节集_查看 (字节集_十六进制到字节集 (删全部空 (数据 [M]))) ＋ #换行符<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (数值), N)<br />     局_数值 ＝ 局_数值 ＋ “，” ＋ 到文本 (数值 [N] ＋ 1)<br /> .计次循环尾 ()<br /> <br /> ' 调试输出 (局_数据)<br /> 全局_Buffer数组 ＝ 局_数据<br /> 全局_Address数组 ＝ “Address ＝  { ” ＋ 取文本右边 (局_数值, 取文本长度 (局_数值) － 2) ＋ “ }”<br /> 标签_数据行数_模式2.标题 ＝ “共获取到 ” ＋ 到文本 (超级列表框_模式2.取表项数 ()) ＋ “ 行数据” ＋ “  ” ＋ “总字节数：” ＋ 到文本 (全局_项目数)<br /> 调试输出 (全局_Buffer数组)<br /> 调试输出 (全局_Address数组)

DDSGXQ

ruibin2840 发表于 2018-6-4 10:11
没有实质功能啊。4jb下了个什么

看17楼，https://bbs.125.la/forum.php?mod=viewthread&tid=14175708&pid=13296087&page=1&extra=#pid13296087

53507203

下载学习,感谢楼主!

凉桔

支持楼主支持楼主