VB 二进制块读写类模块应用实例 包括一个文件拷贝和一个文件二进制比较的例子

2016-01-29 13:09 69 1 收藏

VB 二进制块读写类模块应用实例 包括一个文件拷贝和一个文件二进制比较的例子,VB 二进制块读写类模块应用实例,包括一个文件拷贝和一个文件二进制比较的例子。

【 tulaoshi.com - ASP.NET 】


文件拷贝实例:(Text1存放源文件位置,Text2存放目标文件位置)------------------------------------------------------------------------
Private Sub Command3_Click()Const BUFFER_SIZE = 40960 * 2 '规定缓冲区大小Dim nActual As LongDim aBuf(0 To BUFFER_SIZE - 1) As Byte '分配缓冲区Dim tmr As Single '计时变量Dim lFileLen As Long '纪录文件长度Dim iFileNum As Integer '记录文件号Dim k As Long
tmr = Timer
If Not m_cFileRead.OpenBinary(Text1.Text) Then MsgBox "打开文件失败!" & Text1.TextIf Not m_cFileWrite.OpenBinary(Text2.Text) Then MsgBox "打开文件失败!" & Text2.Text
'记下文件长度和打开文件所用的文件号,是为了优化性能。lFileLen = m_cFileRead.FileLengthiFileNum = m_cFileRead.FileNumber
k = 0Do k = k + 1 If k = 10 Then k = 0 'pb1是进度条控件。 pb1.Value = 100 * (Seek(iFileNum) / lFileLen) '显示百分比 DoEvents End If '读块,传给它缓冲区指针和期望读取的字节数,返回实际读取的字节数, nActual = m_cFileRead.ReadBlock(VarPtr(aBuf(0)), BUFFER_SIZE) '写块,传给它缓冲区指针和期望写入的字节数。 m_cFileWrite.WriteBlock VarPtr(aBuf(0)), nActualLoop Until nActual < BUFFER_SIZE '当实际读取字节数小于缓冲区大小的时候,就不需要再读啦,已读完啦

m_cFileRead.CloseFile '关文件m_cFileWrite.CloseFile
MsgBox "OK! total time:" & Timer - tmrEnd Sub
---------------------------------------------------------------------------------------------------------------------------------------
二进制文件比较实例(Text1存放第一个文件的位置,Text2存放第二个文件的位置)----------------------------
Private Sub Command2_Click()
Const BUFFER_SIZE As Long = 4096 * 2 '规定缓冲区大小Dim cfRead1 As New CFileReadDim cfread2 As New CFileReadDim aBuf1(0 To BUFFER_SIZE - 1) As Byte '分配缓冲区Dim aBuf2(0 To BUFFER_SIZE - 1) As ByteDim nActual As LongDim i As Long, lCurPos As LongDim tmr As SingleDim k As Long
tmr = Timer
If Not cfRead1.OpenBinary(Text1.Text) Then MsgBox "open file failed:" & Text1.TextIf Not cfread2.OpenBinary(Text2.Text) Then MsgBox "open file failed:" & Text2.Text
If cfRead1.FileLength <> cfread2.FileLength Then MsgBox "文件不一样长"
lCurPos = 1 '当前待比较字节的位置,虚拟位置,不同于文件的读写指针。k = 0Do '读块,传给它缓冲区指针和期望读取的字节数,返回实际读取的字节数, nActual = cfRead1.ReadBlock(VarPtr(aBuf1(0)), BUFFER_SIZE) '读第2个文件的数据块 nActual = cfread2.ReadBlock(VarPtr(aBuf2(0)), BUFFER_SIZE) For i = 0 To nActual - 1 '比较缓冲区 If aBuf1(i) <> aBuf2(i) Then MsgBox "不同,位置:" & lCurPos: Exit Do lCurPos = lCurPos + 1 '移到下一个待比较字节的位置 Next i k = k + 1 If k = 100 Then k = 0 Cls Print Timer - tmr, " ", (Seek(cfRead1.FileNumber) / 1024) / (Timer - tmr) & " KB/s" End IfLoop Until nActual < BUFFER_SIZE
cfRead1.CloseFile '关文件cfread2.CloseFile
MsgBox "OK! " & Timer - tmr
End Sub---------------------------------------------------------------------------------------------------------------------------------------

来源:http://www.tulaoshi.com/n/20160129/1489086.html

延伸阅读
《二进制领域》视频攻略 《二进制领域》视频攻略(更新中。。。) 《二进制领域》关于进游戏黑边的解决办法 不是游戏版本问题,也不是你电脑问题 是你进游戏没调整的问题 看图吧: 《二进制领域》图文流程攻略 游戏开始教程跟着小胖对话,把语音系统关掉,Q,E,F,空格,是360的4个键.大致自己按一下. .. 过了教程后一路跟小胖走,会遇...
游戏地域《二进制领域》解说视频   解说视频一: 《二进制领域》关于进游戏黑边的解决办法 不是游戏版本问题,也不是你电脑问题 是你进游戏没调整的问题 看图吧: 《二进制领域》图文流程攻略 游戏开始教程跟着小胖对话,把语音系统关掉,Q,E,F,空格,是360的4个键.大致自己按一下. .. 过了教程后一路跟小胖走,会遇到第一波敌人.&...
二进制浏览、编辑的实现 作者/cuick 下载源代码     前几天看到有人在论坛上寻找二进制浏览、编辑代码,自己前几天又不是很忙,就摸索着写了这个程序。以前很少做这种界面的东西,遇到不少难题,非常感谢在论坛上得到的帮助。  &nb...
《二进制领域》视频流程攻略 游戏简介 《二进制领域》由开发了《如龙》系列的知名制作人名越稔洋打造,是一款追求在线对战乐趣的射击游戏。故事发生在2080年的东京,人类为了生存而与背叛的机器人展开厮杀。《二进制领域》将登陆PS3与XBOX360平台,游戏预定2012年2月发售。 本作中,玩家们将和多名同伴一起行动,采用互相协力来进行战斗的Tea...
标签: Web开发
昨天一个在落伍的朋友给的,一个站的所有文件和图片以二进制的方式放进了数据库里,用下面的代码可以把数据库里的文件和图片还原出来。 把得到的数据库名字改成ToMdb.mdb,然后把下面的代码保存成VBS格式。放在同一个目录下,执行这个VBS文件 Dim rs, ws, fso, conn, stream, connStr, theFolder Set rs = CreateObject("ADOD...

经验教程

525

收藏

39
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部