易语言捆绑程序源码

.版本 2

.子程序 核心代码, 逻辑型, , 核心代码 ，合并成功返回真，失败返回假
.参数 文件一路径, 文本型, , 需提供文件一的绝对路径，注意带文件名和后缀
.参数 文件二路径, 文本型, , 需提供文件二的绝对路径，注意带文件名和后缀
.参数 文件保存路径, 文本型, , 需提供文件保存路径的绝对路径，注意带文件名和后缀
.参数 文件图标数据, 字节集, 可空, 文件合成后的图标数据，空为默认图标
.局部变量 文件信息, 文本型, , "3", 1=文件一名，2=文件二名，3=合并文件信息
.局部变量 文件数据, 字节集, , "4", 1=文件一数据，2=文件二数据，3=头文件数据,4=合并文件数据

文件数据 [1] ＝ 读入文件 (文件一路径)
文件数据 [2] ＝ 读入文件 (文件二路径)
文件数据 [3] ＝ #头文件
文件信息 [1] ＝ 取文本右边 (文件一路径, 取文本长度 (文件一路径) － 倒找文本 (文件一路径, “”, , 假))
文件信息 [2] ＝ 取文本右边 (文件二路径, 取文本长度 (文件二路径) － 倒找文本 (文件二路径, “”, , 假))
文件信息 [3] ＝ 文件信息 [1] ＋ “*” ＋ “1” ＋ “*” ＋ 到文本 (取字节集长度 (文件数据 [1])) ＋ “|” ＋ 文件信息 [2] ＋ “*” ＋ 到文本 (1 ＋ 取字节集长度 (文件数据 [1])) ＋ “*” ＋ 到文本 (取字节集长度 (文件数据 [2]))
.如果真 (文件图标数据 ≠ {  })
    文件数据 [3] ＝ 子字节集替换 (文件数据 [3], #图标数据, 取字节集右边 (文件图标数据, 640), 41225, )
.如果真结束
文件数据 [4] ＝ 文件数据 [3] ＋ 到字节集 (#分割符) ＋ 到字节集 (文件信息 [3]) ＋ 到字节集 (#分割符) ＋ 文件数据 [1] ＋ 文件数据 [2] ＋ 到字节集 (#分割符) ＋ #尾文件
返回 (写到文件 (文件保存路径, 文件数据 [4]))

@亚凌轩