二进制合并与拆分图片实例演示(源码)
时 间:2010-05-03 11:20:25
作 者:江羽 ID:3967 城市:南昌
摘 要:主要演示对JPG图片的二进制方法合并与拆分
正 文:
实例说明:
1、主要演示对JPG图片的二进制方法合并与拆分,你也可以根据实例做相应修改,可以试验一下其它后缀文件的合并与拆分
2、试验前最好做好相关文件备份,以免造成重要文件损失
3、你可以根据本实例代码原理,了解相关二进制操作文件方法
以下是合并及拆分公用代码:
'----------------------------------------------------------------------------------
'程序功能:实现文件的合并
'变量说明:strFileName1 As String 第一个文件及完整路径
' strFileName2 As String 第二个文件及完整路径
' strMergeFileName As String 合并后的文件完整路径
'例 程:sMergeFile (C:\File1.txt ,C:\File2.txt ,C:\PutFile.txt)
'-------------------------------------------------------------------------
Public Sub sMergeFile(strFileName1 As String, strFileName2 As String, strMergeFileName As String)
Dim aryContent() As Byte '用来读取文件的数组,每次读取前要重定义
'注意下面三个Open语句都是用Binary模式打开的,也就是进行二进制的读写
Open strMergeFileName For Binary As #3
Open strFileName1 For Binary As #1
Open strFileName2 For Binary As #2
Put #3, , LOF(1) '取得第一文件的长度,并把它写入到合并文件的文件头中
Put #3, , LOF(2) '取得第二文件的长度,并写入到合并文件的文件头中
ReDim aryContent(LOF(1) - 1) '重定义数组,为读取文件做准备
Get #1, , aryContent() '取得第一文件的内容到数组
Put #3, , aryContent() '把第一文件的内容写到合并文件中
ReDim aryContent(LOF(2) - 1) '同上
Get #2, , aryContent()
Put #3, , aryContent()
'关闭文件
Close #1
Close #2
Close #3
MsgBox "所选图片文件合并完成!", vbOKOnly + vbInformation, "江羽提示:"
End Sub
'------------------------------------------------------------------------------------
'程序功能:实现文件的拆分
'变量说明:strFileName1 As String 拆分后第一个文件名
' strFileName2 As String 拆分后第二个文件名
' strSplitFileName As String 预拆分的文件名及完整路径
'例 程:sSplitFile(C:\PutFile.txt ,C:\File1.txt ,C:\File2.txt)
'------------------------------------------------------------------------------------
Public Sub sSplitFile(strSplitFileName As String, strFileName1 As String, strFileName2 As String)
Dim aryContent() As Byte
Dim lngLOF(1) As Long '存放从文件头取得的两个文件的长度
Open strSplitFileName For Binary As #3
Get #3, , lngLOF(0) '取得第一文件的长度
Get #3, , lngLOF(1) '第二文件的长度
Open strFileName1 For Binary As #1
Open strFileName2 For Binary As #2
ReDim aryContent(lngLOF(0) - 1) '用第一文件的长度重定义数组,为读取第一文件做准备
Get #3, 9, aryContent() '从第9字节,即文件后面开始读取第一文件的内容
Put #1, , aryContent() '把取得的内容写入到拆分文件中
ReDim aryContent(lngLOF(1) - 1)
Get #3, 9 + lngLOF(0), aryContent() '从第9字节再加上第一文件的长度处开始读取第二文件的内容
Put #2, , aryContent
Close #1
Close #2
Close #3
MsgBox "所选图片文件拆分完成!", vbOKOnly + vbInformation, "江羽提示:"
End Sub
实例样本下载:点击下载此附件
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)