vb中如何读取文本文件

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

双击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 intFile End Sub

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

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

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

双击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.Close End Sub

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