vb中如何读取文本文件

本文通过两种方法，实例说明在vb中如何读取文本文件。

准备工作

1、新建一个VB工程新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。

使用VB内建函数读取文本文件

1、双击Command1添加如下代码Private Sub Command1_Click() Dim strFile As String Dim intFile As Integer Dim strData As String strFile = "c:\学生成绩.txt" intFile = FreeFile Open strFile For Input As intFile strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode) Debug.Print strData Close intFileEnd Sub

2、运行代码读取文件按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

3、关键代码说明intFile = FreeFile：获取一个文件句柄Open strFile For Input As intFile ：打开文件FileLen(strFile) ：获取文件内容字节大小InputB：读取文件内容字节流StrConv：将字节流转换为Unicode字符串Debug.Print strData：将字符串内容输出到立即窗口Close intFile：关闭文件句柄

使用FileSystemObject读取文本文件

1、添加Microsoft Scripting Runtime引用点击Project菜单，再点击下拉菜单中的Reference，打开引用对话框，浏览找到Microsoft Scripting Runtime引用，选择后点确定按钮。

2、双击Command2添加如下代码Private Sub Command2_Click() Dim objFSO As New FileSystemObject Dim objStream As TextStream Dim strData As String Set objStream = objFSO.OpenTextFile("c:\学生成绩.txt") strData = objStream.ReadAll Debug.Print strData objStream.CloseEnd Sub

3、运行代码读取文件按F8开始单步调试代码，点击Command2，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。