截取部分文件的VB编程技巧_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

截取部分文件的VB编程技巧

作者：闵涛文章来源：闵涛的学习笔记点击数：723 更新时间：2009/4/23 14:58:50

　截取文件的一部分方法很多，有的用分割工具软件，有的ARJ等压缩软件实现。本文介绍用编程方法来实现。在ＶＢ环境中，完全可以利用ＶＢ自身提供的命令和函数，提取、分割任何文件，定位准确、速度快。思路及重点如下：

　１）因ＶＢ的ＯＰＥＮ语句的二进制方式可以读写有任意结构的文件，把源文件和截取的目标文件作为二进制方式读出和写入；

　２）ＧＥＴ语句语法为：　ＧＥＴ＃＜源文件号＞，＜起始位置＞，＜变量＞利用ＧＥＴ语句提供的起始位置可以对源文件读的位置进行控制；

　３）把每次读取字节的长度放于字节变量数组中，以提高程序速度；

　４）若需截取的目标文件较大，应把源文件需读的内容分成一个个读写块（注：目标文件仍只有一个），每一读写块内容放入字节数组中，读写块未完部分须对字节数组的上下标进行重新设置，以便读写。

　源程序如下：
　

　　Dim TargetFileLength, StartLength As Long

　　'目标文件长度及在源文件中的开始长度

　　Dim SourceFileName, TargetFileName As String

　　'源文件全路径名和目标文件全路径名

　　Dim ReadPos, WritePos As Long '读写位置

　　Dim DSX() As Byte

　　'为字节数组，用来存储读写内容

　　Dim ReadFileNo, WriteFileNo As Integer

　　'读写文件号

　　Const Unit = 100000

　　'读写块的大小

　　StartLength = InputBox("输入目标文件在源文件中的开始长度")

　　'此值也可以通过其它方式获取

　　TargetFileLength = InputBox("输入目标文件长度")

　　'1)同上;

　　'2)或由目标文件在源文件中的结束长度转换而来;

　　'3)该值在读写过程中是个变数

　　SourceFileName = InputBox("输入源文件名")

　　TargetFileName = InputBox("输入目标文件名")

　　ReadFileNo = FreeFile

　　Open SourceFileName For Binary Access Read As ReadFileNo

　　'打开欲截取的源文件名

　　WriteFileNo = FreeFile

　　Open TargetFileName For Binary Access Write As WriteFileNo

　　'欲打开的目标文件名

　　ReadPos = 1: WritePos = 1

　　ReadPos = ReadPos + StartLength

　　'给读写位置赋初值

　　'以下部分读出写入读写块的整数部分

　　ReDim DSX(Unit) As Byte

　　'设置存储字节数组的大小

　　Do While TargetFileLength > Unit

　　'TargetFileLength为变数,反映读写过程中还剩的字节数

　　Get #ReadFileNo, ReadPos, DSX()

　　Put #WriteFileNo, WritePos, DSX()

　　ReadPos = ReadPos + Unit

　　WritePos = WritePos + Unit

　　TargetFileLength = TargetFileLength - Unit

　　Loop

　　'以下读写除读写块倍数后的剩余部分

　　ReDim DSX(TargetFileLength) As Byte

　　Get #ReadFileNo, ReadPos, DSX()

　　Put #WriteFileNo, WritePos, DSX()

　　Close WriteFileNo, ReadFileNo

　　说明：１、对源文件和目标文件较大时，对Unit 的取值比较考究。Unit的取值视机器配置而定，笔者的机型为６Ｘ８６ＰＲ２００＋，取Unit=100,000,000 到5,000,000,000;依笔者之见，在时间接近的情况下，为了减少资源的占用应尽量取下限。

　　　２、本程序稍作改写，可作为过程被其它ＶＢ程序的调用。

　　　３、本程序的测试环境为Visual Basic5.0中文版，Windows95系统下通过。
　　

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：利用磁盘的序列号进行软件加密

下一篇教程：利用Delphi扩充VB函数

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……