吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 43|回复: 0

易语言exe文件合并器源码下载

[复制链接]

1598

主题

1717

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
17845
金币
8056
发表于 2020-11-3 19:17:59 | 显示全部楼层 |阅读模式
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

提取密码:5ifx88 
下载次数:1  文件大小:0 Bytes 
下载权限: 不限 以上或 VIP会员   [购买VIP]   [充值金币]  [免费赚金币]



部分代码如下
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
子程序名返回值类型公开备 注
_编辑框1_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
file.标题 = “请选择要合并的文件A”
file.类型 = 0
如果真 (file.打开 ())
编辑框1.内容 = file.文件名
编辑框1.被选择字符数 = 0
子程序名返回值类型公开备 注
_编辑框2_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
file.标题 = “请选择要合并的文件B”
file.类型 = 0
如果真 (file.打开 ())
编辑框2.内容 = file.文件名
编辑框2.被选择字符数 = 0
子程序名返回值类型公开备 注
_按钮1_被单击  
如果 (编辑框1.内容 ≠ “”)
如果 (编辑框2.内容 ≠ “”)
如果 (编辑框3.内容 ≠ “”)
如果 (取文件名 (编辑框1.内容)取文件名 (编辑框2.内容))
合并程序 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容)

信息框 (“文件1与文件2的名字不能相同”, 0, )

信息框 (“保存文件不能为空”, 0, )

信息框 (“程序2不能为空”, 0, )

信息框 (“程序1不能为空”, 0, )

子程序名返回值类型公开备 注
取文件名文本型 
参数名类 型参考可空数组备 注
全文件名文本型   
返回 (取文本右边 (全文件名, 取文本长度 (全文件名)倒找文本 (全文件名, “\”, , )))
子程序名返回值类型公开备 注
_编辑框3_被双击逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
file.标题 = “请选择要保存的文件”
file.类型 = 1
如果真 (file.打开 ())
编辑框3.内容 = file.文件名
编辑框3.被选择字符数 = 0
子程序名返回值类型公开备 注
合并程序 核心程序
参数名类 型参考可空数组备 注
程序1文本型   
程序2文本型   
保存到文本型   
变量名类 型静态数组备 注
文件号整数型  
配置信息字节集  
内容1字节集  
内容2字节集  
配置文件文本型  
头信息字节集  
文件号 = 打开文件 (保存到, #重写, )
内容1 = 读入文件 (程序1)
内容2 = 读入文件 (程序2)
移到文件首 (文件号)
头信息 = #头文件
' 以下配置文件最尾部的信息
配置文件 = 取运行目录 ()“\temp.ini”
写配置项 (配置文件, “file”, “file1”, 取文件名 (程序1))
写配置项 (配置文件, “file”, “size1”, 到文本 (取文件尺寸 (程序1)))
写配置项 (配置文件, “file”, “file2”, 取文件名 (程序2))
写配置项 (配置文件, “file”, “size2”, 到文本 (取文件尺寸 (程序2)))
配置信息 = 读入文件 (配置文件)
配置信息 = 取字节集右边 (取空白字节集 (1024) + 配置信息, 1024)  ' 配置信息长度保持1024字节
写出字节集 (文件号, 头信息)  ' 头程序
写出字节集 (文件号, 内容1)  ' 程序1
写出字节集 (文件号, 内容2)  ' 程序2
写出字节集 (文件号, 配置信息)  ' 尾信息,配置用
关闭文件 (文件号)
信息框 (“保存文件成功!”, 0, )
[color= #008000][align =left][color= #0800][font =Tahoma,&amp][size=14px][backcolor=rgb (255, 255, 255)][font=Tahoma,]




上一篇:易语言ELOGO时钟源码下载
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2020-11-24 11:10 , Processed in 0.483271 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表