登录
首页 » VB源码 » VB 以TextStream流的方式打开文本文件

VB 以TextStream流的方式打开文本文件

于 2022-06-14 发布 文件大小:2.26 kB
0 212
下载积分: 2 下载次数: 1

代码说明:

VB 以流的方式打开文本文件,创建FileSystemObject MyFSO对象,创建TextStream对象,然后使用对象GetFile文件,最后使用对象OpenAsTextStream读取流文件,具体用法,可参见以下代码:   Private Sub Form_Load()    Dim MyFSO As New FileSystemObject    Dim MyFile As File    Dim MyTS As TextStream    Set MyFile = MyFSO.GetFile(App.Path & "MyFile.txt")    Set MyTS = MyFile.OpenAsTextStream(ForReading)    Text1.Text = MyTS.ReadAll    MyTS.Close   End Sub   完整的可编译实例,请下载源码包。

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

发表评论

0 个回复

  • VB.NET 轻松提速打字游戏
    VB.NET 轻松提速打字游戏源代码,同时调用了MID背景音乐文件,边打字边听音乐。程序功能:打字时间设置、倒计时、打字难易程序设置、背景音乐和文字设置、游戏速度设置、窗口背景颜色设置、音乐开关设置等,其实这是一个打字小游戏,从窗口顶部会随机掉下来字母,敲击键盘上对应的字母键即可消除该字符,算打字成功。本趣味打字帮助大家面对键盘只会‘一指弹’炼成‘弹指神功’的炉火纯清的地步。   在编写时保证了窗体大小发生变化时保证窗体下面几个界面元素不会混乱,同时也调用了Windows编程库,比如Windows MediaPlayer的相关组件AxInterop.WMPLib.dll/Interop.WMPLib.dll,用于播放背景声音。程序中的随机生成器,即每次产生的随机种子不一样,很有用,用来生成随机掉下来的字母。
    2022-04-12 19:44:43下载
    积分:1
  • VB6.0 Mid判断指定字符串出现的次数
    VB6.0 判断指定字符串出现的次数,判断字符串A在字符串B中出现的次数,使用了VB的Mid函数来判断,如图所示的运行效果,单击按钮即可查看运行结果。代码验证判断部分,采用for循环遍历判断,代码如下:   Dim j As Integer   j = 0   For i = 1 To Len(Text1)    If Mid(Text1, i, Len(Text2)) = Text2 Then    j = j + 1    End If   Next i   Label2.Caption = "出现" & j & "次"
    2022-03-18 12:18:22下载
    积分:1
  • VB.NET自制的看图工具软件
    VB.NET自制图片查看器,一个看图工具软件,功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧,另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置,重画图片、绘图画面,颜色填充、窗体界面元素控制等的控制方法。。
    2022-12-25 17:15:03下载
    积分:1
  • VB Val与汉字的相互转化
    VB 数字与字符串的相互转换(汉字区位码与汉字的相互转化)的例子,主要是使用Val函数来实现转换功能,Val的用法很简单,如Text4.Text = Val(Text3),将此行代码添加到自定义的按钮事件中即可,当用户单击按钮后,可触发此代码执行区位码转换。实现的功能为:   把数字转换成字符串,把字符串转换成数字。
    2022-02-10 12:28:52下载
    积分:1
  • VB 6.0 将数组中的数据利用图表分析
    VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:   Private Sub Form_Load()   Dim i   i = Array(1, 2, 3, 4, 5, 6, 7)   Dim j   For j = 0 To UBound(i)    With MSChart1    .RowCount = UBound(i) + 1    .Row = j + 1    .ColumnCount = 1    .Data = i(j)    .RowLabel = i(j)    End With   Next j   End Sub
    2022-01-25 18:47:19下载
    积分:1
  • VB利用地址偏移访问内存
    VB利用地址偏移访问内存,整个处理过程 封装在事件函数中,用户单击后,执行以下代码:   Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)   Private Sub Form_Load()    Dim i As Long    Dim j As Long    i = 1234    j = 4321    Debug.Print VarPtr(i)    Debug.Print VarPtr(j)    CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4    Text1.Text = i   End Sub
    2022-08-20 12:19:05下载
    积分:1
  • 日常考勤程序 基于VB.NET实现附
    一款基于VB.NET和sqlserver数据库实现的考勤程序,实现公司员工的日常考勤功能,可实现指定日期的员工考勤,考勤时可选择考勤天数、考勤人,可查询本人的考勤记录,实现的是挺基本的考勤模块,还可显示当前用户的历史记录。   本实例的数据库文件在db文件夹下,请自行添加,并配置数据库信息。   源代码运行于VS2015环境下。
    2022-12-02 11:45:03下载
    积分:1
  • VB 6.0将时、分、秒转换为时间
    VB 6.0将时、分、秒转换为时间,就是把输入文本框中的内容,重新组合,并添加连接符,形成人们视觉习惯上的时间格式。   其实实现这个功能,不两行代码就可实现了:   Private Sub Command2_Click()    t = TimeSerial(Text1, Text2, Text3)    Label4.Caption = "时间为:" & t   End Sub
    2022-08-15 03:56:46下载
    积分:1
  • 网络五子棋游戏之客户大厅和服务器
    网络五子棋游戏源码之客户大厅和服务器 VB编的
    2023-07-18 23:30:04下载
    积分:1
  • VB6.0 使用ADO对象访问数据库
    VB6.0 使用ADO对象访问数据库,这个例子其实很简单,就是基本的VB连接数据库、读取数据库内容,然后浏览一条一条的数据,最后关闭数据库,面向VB编程开发新手,有兴趣下载整个源码,在代码中都有详细的注释,因此很适合学习一些数据库操作的基础知识,源码运行截图如下:
    2022-08-22 22:55:07下载
    积分:1
  • 696516资源总数
  • 106679会员总数
  • 14今日下载