ASP TextStream 学习笔记

ASP TextStream 对象可用于读取和写入文件。通过 TextStream，您可以轻松地打开、读取、写入和关闭文件。

打开文本文件

您可以使用 FileSystemObject 和 OpenTextFile 方法打开文本文件。例如：

Copy Code
<%
Dim fso, file, text
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\example.txt", 1)
text = file.ReadAll
Response.Write(text)
file.Close
%>

以上代码将打开位于 C 盘根目录下的 example.txt 文件，并将其内容读取到 text 变量中，最后通过 Response.Write 输出。

写入文本文件

要将数据写入文本文件，您可以使用 Write 或 WriteLine 方法。例如：

Copy Code
<%
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\example.txt", 2)
file.WriteLine("This is a new line of text.")
file.Close
%>

以上代码将在 example.txt 文件中添加一行新文本。

读取文本文件

要逐行读取文本文件，您可以使用 ReadLine 方法。例如：

Copy Code
<%
Dim fso, file, text
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\example.txt", 1)
Do While Not file.AtEndOfStream
  text = file.ReadLine
  Response.Write(text & "<br>")
Loop
file.Close
%>

以上代码将输出 example.txt 文件的每一行文本。

实例

下面是一个完整的示例，它将从文本文件中读取数据并在网页上显示出来：

Copy Code
<%
Dim fso, file, text
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\example.txt", 1)
text = file.ReadAll
Response.Write("<pre>" & text & "</pre>")
file.Close
%>

该示例将以预格式化文本形式显示 example.txt 文件的内容。