vb中如何读取文本文件
本文通过两种方法，实例说明在vb中如何读取文本文件。
准备工作
- 01
新建一个VB工程 新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。
使用VB内建函数读取文本文件
- 01
双击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
- 02
运行代码读取文件 按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
- 03
关键代码说明 intFile = FreeFile： 获取一个文件句柄 Open strFile For Input As intFile ： 打开文件 FileLen(strFile) ： 获取文件内容字节大小 InputB： 读取文件内容字节流 StrConv： 将字节流转换为Unicode字符串 Debug.Print strData： 将字符串内容输出到立即窗口 Close intFile： 关闭文件句柄
使用FileSystemObject读取文本文件
- 01
添加Microsoft Scripting Runtime引用 点击Project菜单，再点击下拉菜单中的 Reference，打开引用对话框，浏览找到 Microsoft Scripting Runtime引用，选择后点确定按钮。
- 02
双击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
- 03
运行代码读取文件 按F8开始单步调试代码，点击Command2，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。