<p>如何使用ASP TextStream对象</p>
<p>在下面的例子，我们将创建一个新的文本文件test.txt和写一些文本。首先，我们创建一个FileSystemObject对象的实例，然后使用CreateTextFile方法创建一个新的文本文件。的CreateTextFile返回一个TextStream对象，我们将用来写一些文本文件。</p>
<p><%<br />
Dim objFSO, objTStream<br />
'Create an instance of the FileSystemObject object<br />
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")<br />
'Create a text file named myFile.txt, replacing any existing one with the same name<br />
Set objTStream = objFSO.CreateTextFile("C:test.txt", True)<br />
'Write some text to the file<br />
objTStream.WriteLine("WebCheatSheet ASP Tutorials!")<br />
objTStream.WriteBlankLines(1)<br />
objTStream.WriteLine("The TextStream Object")<br />
objTStream.WriteBlankLines(2)<br />
objTStream.WriteLine("The TextStream object provides sequential access to the contents of text files.")<br />
'Close the TextStream object<br />
objTStream.Close<br />
'Free up resources<br />
Set objTStream = nothing<br />
Set objFSO = nothing<br />
%><br />
在下面的例子中，我们会认真阅读Test.txt文件内容。首先，我们创建FileSystemObject对象的实例，然后使用OpenTextFile方法打开Test.txt文件进行读取。此方法返回一个TextStream对象，我们将用来从文件中读取数据。我们会遍历每次读一行文件。</p>
<p><%<br />
Dim objFSO, objTStream<br />
'Create an instance of the FileSystemObject object<br />
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")<br />
'Opens for reading a text file named myFile.txt<br />
Set objTStream = objFSO.OpenTextFile("C:test.txt", 1)<br />
'Read one line at a time until the end of the file is reached<br />
Do Until objTStream.AtEndOfStream<br />
Response.Write "Line " & objTStream.Line & ": " & objTStream.ReadLine & "<br />"<br />
Loop<br />
'Close the Textstream object<br />
objTStream.Close<br />
'Free up resources<br />
Set objTStream = nothing<br />
Set objFSO = nothing<br />
%></p>