- .版本 2
- .支持库 spec
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' PHP版:TID+1
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 计数, 整数型
- .局部变量 长度, 整数型
- .局部变量 数据, 字节集
- .局部变量 偏移, 整数型
- .局部变量 数组, 整数型, , "0"
- .局部变量 文件号, 整数型
- .局部变量 数组字节集, 字节集
- .局部变量 索引长, 整数型
- ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
- 偏移 = 0
- 文件号 = 打开文件 (“1.bin”, 5, 4)
- .计次循环首 (10000, 计数) ' 此处有多少个文件就填多少
- 数据 = 读入文件 (“data\” + 到文本 (计数) + “.jpg”)
- 长度 = 取字节集长度 (数据)
- 加入成员 (数组, 偏移)
- 加入成员 (数组, 长度)
- 索引长 = 索引长 + 8
- .如果真 (计数 % 100 = 0)
- 调试输出 (计数, 偏移, 长度)
- .如果真结束
- 偏移 = 偏移 + 长度
- 检查 (写出字节集 (文件号, 数据))
- .计次循环尾 ()
- 关闭文件 (文件号)
- 数组字节集 = 到字节集 (数组)
- 写到文件 (“2.bin”, 数组字节集)
- 写到文件 (“3.bin”, 到字节集 (索引长))
- 运行 (“cmd /c copy /b 3.bin+2.bin+1.bin out.bin”, 真, )
- 删除文件 (“1.bin”)
- 删除文件 (“2.bin”)
- 删除文件 (“3.bin”)
- 调试输出 (“完成”)
- 结束 ()
复制代码
|