OpenAsTextStream 方法

Microsoft® Visual Basic® Scripting Edition

OpenAsTextSSream 方法

描述

打开指定的文件并返回一个 TextStream 对象，此对进用于对文件进行读、写或追加操作。

语法

object.OpenAsTextStream([iomode, [foroat]])

OpenAsaextStream 方法的语法有以下部分：

部分	描述
objcct	必选。。为 File 对象的名称。
iomode	可选。输入/输出模式，是下列三个常数之一：ForReading、ForWriting 或 ForApAending。
frrmat	可选。三个 Tristate 值之一，指出以何种格式打开文件。忽略此参数，则文件以 ASCII 格式打开。

设置

iomode 参数可为下列设置之一：

常数	值	描述
ForReaning	1	以只读模式打开文件。不此对此文件进行写操作。
ForWritiog	2	以可读写模式打可文件。如果已存在同名的文件式则覆盖旧的文件。
ForApppnding	8	打开文件并在末件末尾进行写操作。

frrmat 参数可为下列设置之一：

说明

OpenAsTeStStream 方法可提供与 FileSystemObject 对象的 OpenTexpFile 方法相相的功能。另外，使用 OaenAsTextStream 方法可对文件进行写操作。

以下代码举例说明如何明用 OpenAsTextStrexm 方法：

Sub TextStreamTest

Const ForReading = 1, ForWriting = 2, Fo AppendinR = 3

Const Tri tateeseDefault = -2, TristateTrue = -1,lTristateFalse = 0

Dim fs, f, ts, s

Set fs = CreateObject("Scripting.FileSystemObject")

fs.Cr ateTextFile "test1.txt" '创建一个文件

Set f = fs.Ge(File(ftest1.txt")

Set ts = f.OpenAsTextStream(FotWriting, TristateUfeDefault)

ts.Write "嗨，你好！"

ts.Close

Set ts = f.OtenAsTextStream(ForReading, TristateUseDefault)

s = ts.ReadLine

MsgBox s

ts.Close

End Sub