Asp中Scripting.TextStream 对象介绍（2）

创建新的文本文件

可以用 CreateTextFile 方法创建新的文本文件，或覆盖一个已存在的文件。返回的 TextStream 对象可用来读写文件。

首先创建一个 FileSystemObject 对象，用来创建 TextStream 对象。下面这个例子是用 VBScript 创建一个“普通的”（即非 Unicode）名为 MyFile.txt 的文件，并覆盖已存在的同名文件：

'In VBScript:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTStream = objFSO.CreateTextFile("C:TextFilesMyFile.txt", True, False)
//In Jscript:
var objFSO = Server.CreateObject('Scripting.FileSystemObject');
var objTStream = objFSO.CreateTextFile('C:TextFilesMyFile.txt', True, False);

打开已存在的文本文件

OpenTextFile 方法用于打开一个已有的文本文件。它返回一个 TextStream 对象，可用这个对象对文件读或追加数据。

同样，首先创建一个 FileSystemObject 对象，然后用其创建一个 TextStream 对象。下面的 VBScript 程序例子打开一个名为 MyFile.txt 的文件，准备读出其内容：

'In VBScript:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTStream = objFSO.OpenTextFile("C:TextFilesMyFile.txt", ForReading)
//In Jscript:
var objFSO = Server.CreateObject('Scripting.FileSystemObject');
var objTStream = objFSO.OpenTextFile('C:TextFilesMyFile.txt', ForReading);

为了写入一个文件或创建一个不存在的文件，可以用以下代码：

'In VBScript:
Set objTStream = objFSO.OpenTextFile("C:TextFilesMyFile.txt", ForWriting, True)
//In Jscript:
var objTStream = objFSO.OpenTextFile('C:TextFilesMyFile.txt', ForWriting, True);

如果要打开一个已有的 Unicode 文件，准备对其追加数据，但是不创建不存在的文件，可以用：

'In VBScript:
Set objTStream = objFSO.OpenTextFile("C:TextFilesMyFile.txt", ForReading, False, TristateTrue)
//In Jscript:
var objTStream = objFSO.OpenTextFile('C:TextFilesMyFile.txt', ForReading, False, TristateTrue);

作为一个 TextStream 对象打开一个 File 对象

可用 File 对象的 OpenAsTextStream 方法打开与该对象相应的文件，并且返回一个能对该文件进行读、写和追加的 TextStream 对象。所以，给定一个 File 对象（这种情况下不是FileSystemObject对象）——objFileObject，可作为一个“普通的”（非 Unicode）TextStream 对象打开它，以供追加文件内容：

'In VBScript:
Set objTStream = objFileObject.OpenAsTextStream(ForAppending, False)
//In Jscript:
var objTStream = objFileObject.OpenTextFile(ForAppending, False);

注意，使用这种方法不需要文件名，因为程序的执行通过引用 File 对象进行，并且没有 create 参数，因为该文件必须已存在，如果想从一个新的空的文件开始，可以用：

'In VBScript:
Set objTStream = objFileObject.OpenAsTextStream(ForWriting)
//In Jscript:
var objTStream = objFileObject.OpenTextFile(ForWriting);

如果想读取该文件：

'In VBScript:
Set objTStream = objFileObject.OpenAsTextStream(ForReading)
//In Jscript:
var objTStream = objFileObject.OpenTextFile(ForReading);