ASP TextStream 对象

TextStream 对象用于访问文本文件的内容。

TextStream 对象

TextStream 对象用于访问文本文件的内容。

下面的代码会创建一个文本文件 (c:\test.txt)，然后向此文件写一些文本（变量 f 是 TextStream 对象的一个实例）：

            
             <%
             
dim fs,f
             
set fs=Server.CreateObject("Scripting.FileSystemObject")
             
set f=fs.CreateTextFile("c:\test.txt",true)
             
f.WriteLine("Hello World!")
             
f.Close
             
set f=nothing
             
set fs=nothing
             
%>

如需创建 TextStream 对象的一个实例，您可以使用 FileSystemObject 对象的 CreateTextFile 方法或者 OpenTextFile 方法，也可以使用 File 对象的 OpenAsTextStream 方法。

TextStream 对象的属性和方法描述如下：

属性

属性	描述
AtEndOfLine	如果文件指针正好位于 TextStream 文件中行尾标记的前面，则该属性值返回 True；否则返回 False。
AtEndOfStream	如果文件指针在 TextStream 文件末尾，则该属性值返回 True；否则返回 False。
Column	返回 TextStream 文件输入流中的当前字符位置的列号。
Line	返回 TextStream 文件中的当前行号。

方法

方法	描述
Close	关闭一个打开的 TextStream 文件。
Read	从一个 TextStream 文件中读取指定数量的字符并返回结果。
ReadAll	读取整个 TextStream 文件并返回结果。
ReadLine	从一个 TextStream 文件读取一整行（到换行符但不包括换行符）并返回结果。
Skip	当读取一个 TextStream 文件时跳过指定数量的字符。
SkipLine	当读取一个 TextStream 文件时跳过下一行。
Write	写入指定的文本到一个 TextStream 文件中。
WriteLine	写入指定的文本和换行符到一个 TextStream 文件中。
WriteBlankLines	写入指定数量的换行符到一个 TextStream 文件中。

在线实例

读取文本文件
本例演示如何从文本文件中读取内容。

   This is the text in the text file:
 <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) Response.Write(f.ReadAll) f.Close Set f=Nothing Set fs=Nothing %>

读取文本文件中的一个部分
本例演示如何仅仅读取一个文本流文件的部分内容。

   This is the first five characters from the text file:
 <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) Response.Write(f.Read(5)) f.Close Set f=Nothing Set fs=Nothing %>

读取文本文件中的一行
本例演示如何从一个文本流文件中读取一行内容。

   This is the first line of the text file:
 <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) Response.Write(f.ReadLine) f.Close Set f=Nothing Set fs=Nothing %>

读取文本文件的所有行
本例演示如何从文本流文件中读取所有的行。

   This is all the lines in the text file:
 <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) do while f.AtEndOfStream = false Response.Write(f.ReadLine) Response.Write("
") loop f.Close Set f=Nothing Set fs=Nothing %>

略过文本文件中的一部分
本例演示如何在读取文本流文件时跳过指定的字符数。

   The first four characters in the text file are skipped:
 <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) f.Skip(4) Response.Write(f.ReadAll) f.Close Set f=Nothing Set fs=Nothing %>

略过文本文件中的一行
本例演示如何在读取文本流文件时跳过一行。

   The first line in the text file is skipped:
 <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) f.SkipLine Response.Write(f.ReadAll) f.Close Set f=Nothing Set fs=Nothing %>

返回行数
本例演示如何返回在文本流文件中的当前行号。

   This is all the lines in the text file (with line numbers):
 <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) do while f.AtEndOfStream = false Response.Write("Line:" & f.Line & " ") Response.Write(f.ReadLine) Response.Write("
") loop f.Close Set f=Nothing Set fs=Nothing %>

取得列数
本例演示如何取得在文件中当前字符的列号。

   <% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1) Response.Write(f.Read(2)) Response.Write("The cursor is now standing in position " & f.Column & " in the text file.
") f.Close Set f=Nothing Set fs=Nothing %>

Article précédent： Article suivant：