登录
首页 » VB源码 » VB演示 FileToSplit分割文件与合并文件

VB演示 FileToSplit分割文件与合并文件

于 2022-11-15 发布 文件大小:4.01 kB
0 40
下载积分: 2 下载次数: 1

代码说明:

VB演示分割文件与合并文件,这里使用到比较多的文件操作函数,比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路:程序通过调用FreeFile函数来取得可以的文件号,以二进制的方式打开文件,根据文件的长度FilesLen和每个分割单位的比较,得出被分割之后的子文件个数,重新定义最后一个子文件的大小,将所取得的内容,分别存储到各个子文件中,将文件分割情况,存储到自定义的结构类型FileInfoFile中,最后将文件分割的情况,存入到模版文件中。   关于文件合并,则可看作是上述的逆过程,不再详述,请参见源码中的文件注释。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB.net与OMRON CP系列PLC通讯的实例
    VB.net与OMRON CP系列PLC通讯,截图是辅助程序:FCS校验计算器的运行效果,与PLC通讯的实例在PLC-PC文件夹下,源码在VB.NET环境编译。   LBIndustrialCtrls.dll放在debug目录中,与exe文件同级。
    2023-03-30 11:55:03下载
    积分:1
  • VB为Lable标签着色(填充不同颜色)
    VB6.0为Lable标签着色(填充不同颜色),把标签分别填充上不同的颜色,在显示一些统计数据的时候,可清淅的显示出各种数据类型,提升用户浏览体验。   为Lable着色是非常简单的,你可以从本例子中学会用法。
    2022-02-05 08:55:36下载
    积分:1
  • VB6.0仿迅雷悬浮窗口(图标)的实现
    VB6.0仿迅雷悬浮窗口(图标)的实现源码,迅雷的悬浮窗相信大家很熟悉了,其实就是显示一个图标,悬浮在屏幕上,通过这个悬浮图标可单击右键调出菜单,双击图标则会显示主窗口,本源码模拟了悬浮窗口的实现,另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多,不过没有使用过多复杂的代码,对VB新手友好。
    2022-03-24 09:58:35下载
    积分:1
  • 在状态栏中显示当前状态-VB范例
    VB6.0在状态栏中显示当前状态,演示程序以一个画图程序来演示窗口状态栏的变化,当我们画直线、执行操作: 画正方形,执行操作: 画圆的时候,会显示出状态,要注意观察窗口的状态栏上的文字提示信息。这种形式现在不算什么高大上功能了,很早的VB示例中就实现了,因此本源码比较基础了,高手请绕行。
    2023-03-24 17:45:04下载
    积分:1
  • vb.NET模拟扑克牌出牌功能
    vb.NET模拟扑克牌出牌功能,其实可看作是一个界面较简单的扑克牌游戏,界面有些粗糙,没有过多美化,用文字描述了牌面,后续可以对界面进行升级。有点过于简单了,可当作一个初级的VB.NET编程例子吧。
    2022-03-22 04:23:34下载
    积分:1
  • VB 通过菜单控制操作权限并保存至数据库
    VB 通过菜单控制操作权限,是一个简单的基于数据库的权限控制小程序。首先使用Checkbox控件提供True/false或者YES/NO选项的特性,将操作权限写到Access数据库中,然后读取数据库的数据,通过数据库字段的值决定该菜单是否可以访问,从而达到通过菜单控制每个操作员操作权限的目的。运行程序,选择“销售业务管理”-“销售数据导入”,弹出没有操作权限的提示框。
    2022-07-15 02:53:53下载
    积分:1
  • VB求解数学问题,求两个数最大公约数
    VB6.0演示一个求解数学问题,求两个数最大公约数,这是个简单的数学问题,数学基础好,用VB很轻松就编写出本程序了。在运行的窗口中,分别输入两个整数,单击按钮,程序将显示两个数的最大公约数是多少。求解的过程代码描述如下:   If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then    MsgBox "输入的数0或溢出,请重新输入!"    MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"    Text1.Text = ""    Text2.Text = ""    Text1.SetFocus   Else    m = Val(Text1.Text)    n = Val(Text2.Text)   If m < n Then    temp = m: m = n: n = temp   End If   Do    r = m Mod n    m = n    n = r   Loop While r 0   Label3.Caption = "两个正整数m和n的最大公约数为: " & m   End If
    2022-07-16 14:37:29下载
    积分:1
  • VB6.0 使用ADO对象访问数据库
    VB6.0 使用ADO对象访问数据库,这个例子其实很简单,就是基本的VB连接数据库、读取数据库内容,然后浏览一条一条的数据,最后关闭数据库,面向VB编程开发新手,有兴趣下载整个源码,在代码中都有详细的注释,因此很适合学习一些数据库操作的基础知识,源码运行截图如下:
    2022-08-22 22:55:07下载
    积分:1
  • VB.NET 小型家庭理财系统
    VB.NET 小型家庭理财记帐系统源代码,功能模块:文件、导入导出、操作、查询、删除、修改、关于软件、经手人、项目、收支类型等的管理。本程序感觉重点在数据库部分的设计 ,里面对帐务明细的查询功能,对于熟悉VB.NET与数据库的各种操作十分有帮助。本财务管理系统的数据库为SQLSERVER,为了确保本程序正常运行,请在运行前附加Database数据库到你的SQLSERVER中,并连接好数据库字符串,需要修改Module1.vb文件。
    2022-04-10 12:53:23下载
    积分:1
  • VB的保存文件对话框调用创建一例
    VB的保存文件对话框调用创建一例,弹出“打开”对话框,还有保存对话框,另存为对话框,通用对话框,cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。   cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
    2022-02-11 13:06:23下载
    积分:1
  • 696518资源总数
  • 104353会员总数
  • 66今日下载