vb读出二进制文件,合并两个文件
2013-12-05 17:04
218 查看
========================================= Dim FileMe() As Byte, File1() As Byte, File2() As Byte Dim Ii As Integer, Ss As String '读入程序自身 Open App.Path & "\" & App.EXEName & ".exe" For Binary As #11 ReDim FileMe(FileLen(App.Path & "\" & App.EXEName & ".exe") - 1) Get #11, , FileMe Close #11 '读入第一个可执行文件 Open Text1(1).Text For Binary As #1 ReDim File1(FileLen(Text1(1).Text) - 1) Get #1, , File1 '============================================== '下面的这个循环我不知道干嘛的,望解~ For Ii = 1 To 200 Ss = File1(Ii - 1) Xor 99 File1(Ii - 1) = Ss Next '============================================== Close #1 '读入第二个可执行文件 Open Text1(2).Text For Binary As #2 ReDim File2(FileLen(Text1(2).Text) - 1) Get #2, , File2 '=====================同上===================== For Ii = 1 To 200 Ss = File2(Ii - 1) Xor 99 File2(Ii - 1) = Ss Next '============================================== Close #2 '将程序自身+第一个exe+第二个exe合并到新文件 Open Text2.Text For Binary As #3 Put #3, , FileMe Put #3, , File1 Put #3, , File2 Put #3, , PSW & StrMC Put #3, , App.EXEName & "|||" & FileLen(App.Path & "\" & App.EXEName & ".exe") & "////" & _ Mid(Text1(1).Text, InStrRev(Text1(1).Text, "\") + 1) & "|||" & FileLen(Text1(1).Text) & "////" & _ Mid(Text1(2).Text, InStrRev(Text1(2).Text, "\") + 1) & "|||" & FileLen(Text1(2).Text) & "////" Close #3 MsgBox "捆绑成功: " & Text2.Text, vbInformation ===================================================== 此篇本人也忘了从哪里贴的,一只也没有看,先扔这边了。
相关文章推荐
- [C语言] 文件操作,合并两个二进制文件为单独一个二进制文件;
- 文件操作,合并两个二进制文件为单独一个二进制文件
- 两个文件合并成一个二进制文件,再将这两个文件还原
- git的patch---解决二进制文件冲突----生成某个文件的patch-----合并一个patch-----查看某个文件的历史---比较两个文件
- vb.net 两个PNG文件叠加处理方式
- 通过文件结构直接生成xls文件的VB.Net和Java两个版本
- 用pandas按列合并两个文件
- Java新手求助,将两个文件合并为一个文件执行程序是发生的问题
- python中两个文件的合并
- 用pandas按列合并两个文件的实例
- Perl 字符替换操作-用于两个文件的合并
- python两个文件合并
- 用java nio合并两个小文件的方法
- python编程:电话簿TeleAddressBook和邮箱地址簿EmailAddressBook两个文件,合并为一个完整的AddressBook文件
- 从键盘输入两个学生数据,写入一个文件中, 再读出这两个学生的数据显示在屏幕上。
- sed之两个文件共有特征行的合并输出
- 将两个Wav文件合并为一个
- 导入两个shp文件并合并
- 如何有效合并两个文件:一个是1亿条的用户基本信息,另一个是用户每天看电影连续剧等的记录,5000万条。其中内存只有1G。
- linux 两个文件合并