对该文本文件多次写入数据时不影响之前写入的数据; 读数据是只读取文本中指定行的部分数据? 谢谢
參考答案:用FileSystemObject对象创建一个TextStream便实现对文本文件的读写
---------------------------------------------------
创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。
语法
object.CreateTextFile(filename[, overwrite[, unicode]])
CreateTextFile 方法的语法有以下部分：
object 必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename 必选项。字符串表达式，指明要创建的文件。
overwrite 可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。如果省略该值，则不能覆盖现有文件。
unicode 可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。
说明
以下代码举例说明如何使用 CreateTextFile 方法创建并打开文本文件：
Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
End Sub
对于 filename 已经存在的文件，如果 overwrite 参数为 False，或未提供此参数时，则会出现错误。
-----------------------------------------------------------
描述
打开指定的文件并返回一个 TextStream 对象，可以读取、写入此对象或将其追加到文件。
语法
object.OpenTextFile(filename[, iomode[, create[, format]]])
OpenTextFile 方法的语法有以下部分：
object 必选项。应为 FileSystemObject 对象的名称。
filename 必选项。字符串表达式，指明要打开的文件名称。
iomode 可选项。输入/输出模式，是下列三个常数之一：ForReading，ForWriting,或 ForAppending。
create 可选项。Boolean 值，指出当指定的 filename 不存在时是否能够创建新文件。允许创建新文件时为 True，否则为 False。默认值为 False。
format 可选项。三个 Tristate 值之一，指出以何种格式打开文件。若忽略此参数，则文件以 ASCII 格式打开。
设置
iomode 参数可为下列设置之一：
ForReading 1 以只读模式打开文件。不能对此文件进行写操作。
ForWriting 2 以只写方式打开文件。不能对此文件进行读操作。
ForAppending 8 打开文件并在文件末尾进行写操作。
format 参数可为下列设置之一：
TristateUseDefault -2 以系统默认格式打开文件。
TristateTrue -1 以 Unicode 格式打开文件。
TristateFalse 0 以 ASCII 格式打开文件。
说明
以下代码举例说明如何使用 OpenTextFile 方法打开写文件：
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", For Writing, True)
f.Write "嗨，你好！"
f.Close
End Sub
-------------------------------------------------------------
另TextStream还有如下方法:
Close 方法
Read 方法
ReadAll 方法
ReadLine 方法
Skip 方法
SkipLine 方法
Write 方法
WriteLine 方法
WriteBlankLines 方法
详细可参阅VBScript 5.0 帮助文档
