VB6二进制双通道技术实战经典

(一)编程原理：

　　文件分割实际上就是将目标文件用二进制读写的方法，精确的连续保存为合适大小的独立文件，一般来说，分割后的文件在正确组装前是不能被使用的。

　　文件还原是文件分割的逆过程，即是将分割后的文件严密的按照分割顺序用二进制读写的方法写入一个同一个文件的过程，只要程序算法和逻辑正确严密，分割前和分割后的文件是没有一个字节的差别的。

　　之所以使用双通道技术是因为当被分割的文件较大或者非常大(远远大于内存)时，使用单个文件通道定义的内存二进制缓冲数组非常容易造成内存的用尽而导致操作失败，另一方面，它的处理速度和可靠性也是非常令人担忧的。

　　编程思路是，首先使用双通道技术将目标文件分割成指定大小的文件，扩展名依次是“指定文件名＋.源文件扩展名＋.分割序号”，并且生成一个还原信息文件“被分割文件名.hj”，该文件将记录文件分割的有关信息；文件还原时，同样利用双通道，按照在还原信息文件中登记的信息，将待还原的文件写入同一个文件中。

　　(二)编程实践：

　　(1)启动vb6，建立一个标准exe工程，添加一个窗体form1,添加microsoft common dialog control 6.0控件，命名为cod1;添加两个frame控件(frame1的caption=“文件分割”，frame2的caption=“文件还原”)；添加五个标签框，caption属性依次为“被分割文件名”、“分割后文件大小”、“分割后文件保存在”、“单位：bytes字节”、“还原信息文件名”、“还原后文件保存在”；由上至下一次添加四个caption=“浏览...”的命令按钮command1、command2、command3、command4；由上至下依次添加5个textbox按钮txtFileName、txtFileLength、Txtoutname、txtTemplateName、txtOutputFile；添加两个命令按钮cmdsplit，caption=“开始分割”、cmdunsplit，caption=“开始还原”；两个命令按command5、command6用来指示操作执行进度。代码如下：

　　Option Explicit

　　Private Sub cmdSplit_Click() ’文件分割

　　Dim err_descr As String ’定义接收返回错误码的字符串变量

　　If Not SplitFile(txtFileName.Text,0,err_descr,CLng(txtFileLength.Text),Txtoutname.Text) Then

　　MsgBox "文件操作产生了错误——" ＆ err_descr,vbExclamation

　　Else

　　MsgBox "文件分割操作已经圆满完成！"

　　End If

　　End Sub ’当splitfile公用过程返回值=true表示操作成功，否则失败并返回错误简短的提示
下页继续

 

[下一页]

 

　　Private Sub cmdUnsplit_Click() ’文件还原

　　Dim err_descr As String

　　If Not ReassembleFile(txt TemplateName.Text,False,txtOutputFile.Text) Then

　　MsgBox "文件操作产生了错误——" ＆ err_descr,vbExclamation

　　Else

　　MsgBox "文件还原操作已经圆满完成！"

　　End If

　　End Sub ’当ReassembleFile公用过程返回值=true表示操作成功，否则失败并返回错误简短的提示

　　Private Sub Command1_Click() ’选择被分割文件

　　CoD1.Filter="所有格式文件＊.＊|＊.＊"

　　CoD1.ShowOpen

　　If CoD1.FileName<>"" Then

　　txtFileName.Text=CoD1.FileName

　　End If ’如果未选中文件就退出过程

　　End Sub

　　Private Sub Command2_Click() ’分割后文件保存路径名称

　　With CoD1

　　If txtFileName.Text="" Then

　　MsgBox "请首先选择一个被分割文件！"

　　Exit Sub

　　End If ’如果未选定被分割文件退出过程

　　.ShowSave

　　If .FileName<>"" Then

　　Txtoutname.Text=.FileName

　　End If ’如果未指定保存文件名退出

　　End With

　　End Sub

　　Private Sub Command3_Click() ’传回还原信息文件名

　　With CoD1

　　.FileName=""

　　.Filter="还原信息文件＊.hj|＊.hj" ’只显示＊.hj还原信息文件

　　.ShowOpen

　　If .FileName<>"" Then

　　txtTemplateName.Text=.FileName

　　End If

　　End With

　　End Sub

　　Private Sub Command4_Click() ’得到并计算还原后文件名、扩展名

　　Dim g

　　With CoD1

　　If txtTemplateName.Text="" Then

　　MsgBox "请首先选择一个还原信息文件！"

　　Exit Sub ’如果还原信息文件未被选中，则退出过程

　　End If

　　.Filter=""

　　.FileName="" ’清空过期文件名和类型指针

　　.ShowSave

　　If .FileName<>"" Then

　　g=InStr(1,txtTemplateName.Text,".") ’查找第一个“.”

　　txtOutputFile.Text=.FileName ＆ Mid

　　（txtTemplateName.Text,g,4) ’返回文件的用户指定名称和原扩展名

　　End If

　　End With

　　End Sub

　　Private Sub Form_Load()

　　Me.Left=(Screen.Width－Me.Width)/2

　　Me.Top=(Screen.Height－Me.Height)/2 ’窗体居中

　　Me.Caption=App.Title ’初始化标题栏

　　End Sub ’主程序结束

下页继续

 

[下一页]

 

　　(2)添加一个模块Module1，其中包含各种算法具体实现过程，双击模块写入以下代码：

　　Type FileSection

　　Bytes() As Byte

　　End Type ’定义实际内存数组

　　Type SectionedFile

　　Files() As FileSection

　　End Type ’定义辅助内存数组，以备扩展使用

　　Type FileInfo

　　OrigProjSize As Long ’文件大小

　　OrigFileName As String

　　FileCount As Integer

　　FileStartNum As Long

　　End Type ’定义还原信息文件结构参数

　　Public Function SplitFile(SplitFileName As String,BeginningNumber As Long,ReturnErrorDes As String,Split As Long,oName As String) As Boolean

　　’定义公有过程,用来分割文件,函数返回一逻辑值。true代表成功，false代表失败，四个参数依次是，被分割文件名，开始编号，分割后文件大小，分割后文件名称

　　Dim SaveName As String ’分割后文件名

　　Dim fnum As Integer,fnum1 As Integer ’文件通道变量

　　SplitFile=True ’如果下面没有错误，返回真值

　　On Error GoTo CleanUp

　　Dim CurrentFile As SectionedFile,m_lngNumFil As Long,m_LngLoop As Long,FilesLen As Long

　　FilesLen=FileLen(SplitFileName) ’得到被分割文件大小

　　If FilesLen <= Split ＋ 1 Then

　　SplitFile=False

　　ReturnErrorDes="被分割文件大小小于分割后文件大小,请重新设置!"

　　Exit Function

　　End If ’如果被分割文件小于分割后文件，退出过程

　　fnum=FreeFile ’返回第一个空闲通道用来读取

　　Open SplitFileName For Binary As fnum ’用二进制方式打开被分割文件

　　If CInt(FilesLen/Split)>=FilesLen/Split Or CInt(FilesLen/Split)=FilesLen/Split Then

　　m_lngNumFil=CInt(FilesLen/Split)

　　Else

　　m_lngNumFil=CInt(FilesLen/Split)＋1

　　End If ’精确计算文件将被分割的个数

　　ReDim CurrentFile.Files(1) ’分配一个内存辅助数组

　　For m_LngLoop=1 To m_lngNumFil

　　 ’这个循环用来将文件分割，并且生成分割后的文件

　　If m_LngLoop < m_lngNumFil Then ’如果不是最后一次循环

　　ReDim CurrentFile.Files(1).Bytes(1 To Split)

　　’ 重新分配大小等于分割尺寸的内存数组

　　Get ＃fnum,,CurrentFile.Files(1).Bytes

　　’读取等于分割大小的二进制数据到内存数组

　　Else ’如果是最后一次循环

　　ReDim CurrentFile.Files(1).Bytes To FilesLen－((m_lngNumFil－1)＊Split))

　　’重新分配大小等于遗留长度的内存数组

　　Get ＃fnum,,CurrentFile.Files(1).Bytes

　　Close ＃fnum ’关闭读取文件通道

　　End If

下页继续

 

[下一页]

 

　　SaveName=oName ＆ "." ＆ Format(BeginningNumber－1＋m_LngLoop,"00＃") ’计算分割后的文件名，扩展名为00？

　　fnum1=FreeFile ’得到第二个空闲通道用来写入

　　Open SaveName For Binary As fnum1

　　Put ＃fnum1,1,CurrentFile.Files(1)

　　DoEvents

　　Close ＃fnum1 ’用二进制方式写入分割后的文件

　　Form1.Command6.Caption=FormatPercent(m_LngLoop / m_lngNumFil) ’显示简单的进度指示

　　Form1.Command5.Caption=SaveName ’显示正在操作的文件名

　　Next

　　Dim FileInfoFile As FileInfo ’定义还原信息文件内容

　　FileInfoFile.FileCount=m_lngNumFil ’分割后文件个数

　　FileInfoFile.OrigFileName=oName ’输出文件名

　　FileInfoFile.OrigProjSize=FileLen(SplitFileName) ’被分割文件大小

　　FileInfoFile.FileStartNum=BeginningNumber ’分割后文件起始编号

　　SaveName=oName ＆ ".HJ" ’还原信息文件名

　　fnum=FreeFile

　　Open SaveName For Binary As ＃fnum

　　Put ＃fnum,,FileInfoFile

　　Close ＃fnum ’写入还原信息文件

　　Exit Function

　　CleanUp: ’如果出现错误

　　ReturnErrorDes=Err.Description

　　SplitFile=False ’返回值为false

　　End Function

　　PublicFunctionReassembleFile（Template FileName As String,Optional UseOldFilenameAsBoolean=True,OutPutName as string)As Boolean ’定义文件还原操作公用过程

　　On Error GoTo e

　　Form1.MousePointer=11

　　Dim FileInfo As FileInfo,outname As String,File As SectionedFile,m_LngLoop As Long,OpenName

　　Dim fnumAs Integer,fnum1 As Integer

　　ReassembleFile=True

　　fnum=FreeFile

　　Open TemplateFileName For Binary As ＃fnum

　　Get ＃fnum,,FileInfo

　　Close ＃fnum ’读取还原信息文件的有关内容

　　If UseOldFilename Then

　　outname=FileInfo.OrigFileName

　　Else

　　outname=OutPutName

　　End If ’是否自己指定还原后文件名

　　ReDim File.Files(1)

　　fnum1=FreeFile

　　Open outname For Binary As ＃fnum1

　　For m_LngLoop=1 To FileInfo.FileCount

　　’通过还原信息中记载的文件个数确定读取次数

下页继

 

[下一页]

 

　　OpenName=FileInfo.OrigFileName ＆ "." ＆ Format((FileInfo.FileStartNum－1＋m_LngLoop),"00＃")

　　’得到分割后生成的文件名称、路径

　　fnum=FreeFile

　　Open OpenName For Binary As ＃fnum

　　Get ＃fnum,1,File.Files(1)

　　Close ＃fnum ’读取

　　Put ＃fnum1,,File.Files(1).Bytes ’写入

　　Form1.Command6.Caption=FormatPercent(m_LngLoop/FileInfo.FileCount)

　　Form1.Command5.Caption=OpenName

　　Next

　　Close ＃fnum1

　　Form1.MousePointer=0

　　Exit Function

　　e:

　　MsgBox "文件操作产生了错误:" ＆ Err.Description,vbExclamation

　　ReassembleFile=False

　　Form1.MousePointer=0

　　End Function

　　(三)运行调试：

　　首先通过浏览指定被分割文件名、分割后文件大小、分割后文件名或者还原信息文件名、还原后文件名，然后点击开始分割或者开始还原即可，该程序算法严谨，但是，为了保留一定的扩展能力和对以往源代码的兼容性，也存在一些冗余代码，读者尽可以根据自己的喜好进行改进。另外，使用vb5的朋友注意了，本文函数FormatPercent函数只能在vb6中使用，它的作用是将一个表达式转化成百分数，你必须采用其他的变通方法，其他代码全部通用。

　　如果你想看一下真正的实战效果的话，请在http://zouga.yeah.net下载拙著——红箭至强文件管理大师，它目前已经包括了12个功能。