用VB同时读取记事本和Word文档的实现

VB编程，功能强大。

今天，我们共同来学习用VB编程读取记事本和Word文档内容。

用到的VB知识主要有控件的应用、文件的读写操作。

VB读取记事本和Word文档运行图

程序实现过程

1、首先添加控件，如下图

2、读取记事本文件代码实现

Private Sub Command1_Click() '读取记事本文件内容Dim content As StringOpen App.Path & '\test.txt' For Input As #1 '读取文件语句Do While Not EOF(1)Line Input #1, content '按行读取文件内容List1.AddItem content LoopClose #1End Sub

3、读取Word文档内容实现

Private Sub Command2_Click() '读取Word文档内容Dim wordDoc As Object    Set wordDoc = GetObject(App.Path & '\test.doc')    Text1 = wordDoc.content.Text    Set wordDoc = NothingEnd Sub

最后，点击运行按钮，即可完成读取文档内容功能。

程序实现相关知识

顺序文件读写

 打开文件

Open “文件名” For 模式 As [#]文件号

OutPut(写):新建或打开一个文件，进行写操作。文件若存在，则打开，写入信息覆盖原有信息；文件若不存在，则新建。

Input (读) :打开一个文件，进行读操作。文件必须存在，否则出错。

Append(追加):新建或打开一个文件，进行写操作。文件若存在，则打开，写入信息追加在原有信息之后；文件若不存在，则新建。

[实例] 如果要打开“C：\USER”目录下一个文件名为“SCORE.TXT”的文件，对它写数据，指定文件号为#1，命令为代码怎么写呢?

 写操作

写文件

Print # 文件号，[输出列表]

Write # 文件号，[输出列表]

Write命令的功能和Print相同，区别在于Write命令是以紧凑格式输出，在数据项之间自动添加“，”分隔符，并给字符型的数据加上双引号。

[实例]　区分Write#命令和Print#命令。

 读操作

读文件

 -Input # 文件号，变量列表

将读出的数据分别赋给指定的变量。

  -Line Input # 文件号，字符型变量

从文件中读出一行赋给指定变量。

  -Input $ （读取的字符数，# 文件号）

从文件中读取指定数目的字符。

读/写文件时常用的两个重要函数：

 关闭文件

Close [[[#]文件号1] ,[[#]文件号2]…]

（1）关闭1号文件：close  #1

（2）关闭所有文件：close all 或 close

相关函数讲解

Input

Input：Input (字节数，[#]文件号)

从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。

EOF

EOF：EOF(文件号)

判断文件的访问位置是否在文件尾，如果是，返回True，否则，返回False。

冬季学VB正当时

1

VB视频学习教程特惠发放

VB基础入门教程、VB从入门到精通全套视频教程、VB与数据库开发专项讲解视频、串口通信视频教程特惠发放，助力大家高效学习！

2

VB视频直播讲解开启

从VB零基础开始讲解，循序渐进，每节结合实际例子，每个知识点详细讲解，一对一单独指导讲解，轻松掌握VB编程！

适合VB零基础、VB基础薄弱需要考试的同学以及工作需要的朋友学习。