TextStream对象是用于访问文本文件的对象，它是FileSystemObject一个独立的附属对象，但在使用TextStream对象时，我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容。可以通过FileSystemObject 对象的CreateTextFile()及OpenTextFile()，来获取TextStream的对象句柄。

下面我们来具体的看看TextStream 对象的方法及属性的使用

TextStream对象的方法

方法 说明 Close() 关闭一个打开的文件 Read(numchars) 从文件中读出numchars个字符 ReadAll() 作为单个字符串读出整个文件 ReadLine() 作为一个字符串从文件中读出一行（直到回车符和换行） Skip(numchars) 当从文件读出时忽略numchars个字符 SkipLine() 当从文件读出时忽略下一行 Write(string) 向文件写入字符串string WriteLine(string) 向文件写入字符串string（可选）和换行符 WriteBlankLines(n) 向文件写入n个换行符

Close、Write、WriteLine及WriteBlankLines的使用

方法名：Close()

说明：关闭正在打开的文件

方法名：WriteLine(string)

说明：向文件写入字符串 string（可选）和换行符。

示例：

Dim strPath,strTextstrPath = "C:\testing.txt"strText = "This is Test !hello word !"'调用函数Call CreateFile(strPath,strText) Sub CreateFile(strPath,strText) Dim objFso,objStream '创建FileSystemObject对象 Set objFso = CreateObject("Scripting.FileSystemObject") '使用CreateTextFile()，来返回一个TextStream对象句柄 Set objStream = objFso.CreateTextFile(strPath,True) '三个Write的意思为：在文本中写入字符、写入带换行符的字符、写入3个换行符 objStream.Write(strText) objStream.WriteLine(strText) objStream. WriteBlankLines 3 '关闭TextStream对象 objStream.CloseEnd Sub

Read、ReadAll及ReadLine的使用

方法名：Read(numchars)

说明：从 TextStream文件中读入指定数目的字符并返回结果字符串。

方法名：ReadAll()

说明：读入全部 TextStream文件并返回结果字符串。

方法名：ReadLine()

说明：从 TextStream文件中读入一整行字符（直到下一行，但不包括下一行字符），并返回字符串

示例：

Call CreateFile("c:\test.txt", "This is Test !" & vbCrLf & "hello word !") Sub CreateFile(strPath,strText) Dim objFso,objStream '创建FileSystemObject对象 Set objFso = CreateObject("Scripting.FileSystemObject") '使用FileSystemObject对象的CreateTextFile()，来返回一个TextStream对象句柄 Set objStream = objFso.CreateTextFile(strPath,True) '写入字符 objStream.WriteLine(strText) '读取字符串分别是：读取整行、读取所有、读取指定数目的字符 Msgbox (objStream.ReadLine) Set objStream = objFso.OpenTextFile(strPath,1,true) Msgbox (objStream.ReadAll) Set objStream = objFso.OpenTextFile(strPath,1,true) Msgbox (objStream.Read(9)) '关闭TextStream对象 objStream.CloseEnd Sub

Skip、SkipLine的使用

方法名：Skip(numchars)

说明：读取 TextStream文件时跳过指定数目的字符

方法名：SkipLine()

说明：当读到 TextStream文件时，跳过下一行。

示例：

Dim strPath,strTextstrPath = "C:\test.txt"'调用函数Call CreateFile(strPath) Sub CreateFile(strPath) Dim objFso,objStream '创建FileSystemObject对象 Set objFso = CreateObject ("Scripting.FileSystemObject") '使用FileSystemObject对象的CreateTextFile()，来返回一个TextStream对象句柄 Set objStream = objFso.CreateTextFile(strPath,True) '在文本中写入字符 objStream.Write "This is Test !" & vbCrLf & "hello word !" '以只读的方式打开文件 Set objStream = objFso.OpenTextFile(strPath,1,true) '读取文件时跳过5个字符；或者跳过当前行，读取下一行 objStream.Skip(5) Msgbox objStream.ReadAll Set objStream = objFso.OpenTextFile(strPath,1,true) '跳过第一行 objStream.SkipLine Msgbox objStream.ReadAll '关闭TextStream对象 objStream.CloseEnd Sub

　TextStream对象的属性

属性

说明

AtEndOfLine

如果文件位置指针在文件中一行的末尾则返回True

AtEndOfStream

如果文件位置指针在文件的末尾则返回True

Column

从1开始返回文件中当前字符的列号

Line

从1开始返回文件中当前行的行号”

AtEndOfLine及AtEndOfStream的使用

两者间的区别是：

AtEndOfLine——读取到当前文本行的末尾；

AtEndOfStream——读取到整个文本的末尾

示例：

Dim strPath,strTextstrPath = "C:\test.txt"'调用函数Call CreateFile(strPath) Sub CreateFile(strPath) Dim objFso,objStream,str '创建FileSystemObject对象 Set objFso = CreateObject ("Scripting.FileSystemObject") '以只读的方式打开文件，如果文件不存在则创建它 Set objStream = objFso.OpenTextFile(strPath,1,true) '如果当前的指针不在行末，则读取文本内容 Do While objStream.AtEndOfLine <> true str = str + objStream.Read(1) Loop msgbox str str = "" Set objStream = objFso.OpenTextFile(strPath,1,true) '如果当前的指针不在文本末端，则读取文本内容 Do While objStream.AtEndOfStream <> true str = str + objStream.Read(1) Loop MsgBox str '关闭TextStream对象 objStream.CloseEnd Sub

Column及Line的使用

示例：

Call TestTextStream("c:\test.txt") Sub TestTextStream(strPath) Dim objFso,objTStream,str Set objFso = CreateObject("Scripting.FileSystemObject") '以只读的方式打开文件 Set objTStream = objFso.OpenTextFile(strPath,1) '如果当前的指针不在整个文档的末尾，读取文本的所有内容 Do While objTStream.AtEndOfStream <> true objTStream.ReadAll str = str + "共有" & objTStream.Line & "行数据，光标最后所在列号为：" &objTStream.Column & vbCrLf Loop '打印信息 MsgBox strEnd Sub

文本读取示例：

　　如何读取文本最后一行数据？　　

Dim Fso,MyFileDim strLine'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'以只读的方式打开文件Set MyFile = Fso.OpenTextFile("C:\test.txt",1)'直到到达文件尾Do Until MyFile.AtEndOfStream '读取当前整行数据 strLine = MyFile.ReadLineLoopMyFile.CloseMsgBox strLine

如何读取文本最后一行数据（文件末尾有空行）？　　

Dim Fso,MyFileDim strLine'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'以只读的方式打开文件Set MyFile = Fso.OpenTextFile("C:\test.txt",1)Do Until MyFile.AtEndOfStream '读取当前整行字符串 strNextLine = MyFile.ReadLine '判断读取的整行字符串是不是空白 If Len(strNextLine) > 0 Then '不是空白，则赋值 strLine = strNextLine End IfLoopMyFile.CloseMsgBox strLine

读取文本指定行内容　

MsgBox TestTextStream("c:\test.txt",1) Function TestTextStream(strPath,IntLine) Dim Fso,MyFile Set Fso = CreateObject("Scripting.FileSystemObject") '以只读的方式打开文件 Set MyFile = Fso.OpenTextFile(strPath,1) '如果当前的指针不在整个文档的末尾，读取文本的整行内容 Do Until MyFile.AtEndOfStream TestTextStream = MyFile.ReadLine IntLine = IntLine - 1 '判断光标是否已达到指定行，达到则退出函数 If IntLine = 0 Then Exit Function End If LoopEnd Function

这篇文章就结束到这了，需要的朋友可以参考一下。