asp 操作 txt 文本文件

创建指定的文件名并返回一个 TextStream 对象，可以使用这个对象对文件进行读写。

object.CreateTextFile(filename[, overwrite[, unicode]])

参数

object

必选项。应为 FileSystemObject 或 Folder 对象的名称。

filename

必选项。指明所要创建文件的字符串表达式。

overwrite

可选项。Boolean 值，指明能否覆盖已有文件。如果文件可以覆盖，则值为 true ，否则为 false。如果忽略，则已有文件不能被覆盖。

unicode

可选项。Boolean 值，指明文件是否以 Unicode 或 ASCII 文件方式创建。如果文件作为 Unicode 文件创建，则值为 true ，如果作为 ASCII 文件创建，则为 false。如果忽略，则假定为 ASCII 文件。

说明

下面的代码说明了如何使用 CreateTextFile 方法来创建和打开一个文本文件。

[JScript]

var fso = new ActiveXObject("Scripting.FileSystemObject");

var a = fso.CreateTextFile("c://testfile.txt", true);

a.WriteLine("This is a test.");

a.Close();

[VBScript]

Sub CreateAfile

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile("c:/testfile.txt", True)

MyFile.WriteLine("This is a test.")

MyFile.Close

End Sub

如果 overwrite 参数是 false ，或者没有提供这个参数，那么对于已有的 filename 将产生一个错误。

打开指定的文件并返回一个 TextStream 对象，可以通过这个对象对文件进行读、写或追加。

object.OpenTextFile(filename[, iomode[, create[, format]]])

参数

object

必选项。object 应为 FileSystemObject 的名称。

filename

必选项。指明要打开文件的字符串表达式。

iomode

可选项。可以是三个常数之一：ForReading 、 ForWriting 或 ForAppending 。

create

可选项。Boolean 值，指明当指定的 filename 不存在时是否创建新文件。如果创建新文件则值为 True ，如果不创建则为 False 。如果忽略，则不创建新文件。

format

可选项。使用三态值中的一个来指明打开文件的格式。如果忽略，那么文件将以 ASCII 格式打开。

设置

iomode 参数可以是下列设置中的任一种：

常数 值 描述

ForReading 1 以只读方式打开文件。不能写这个文件。

ForWriting 2 以写方式打开文件

ForAppending 8 打开文件并从文件末尾开始写。

format 参数可以是下列设置中的任一种：

值 描述

TristateTrue 以 Unicode 格式打开文件。

TristateFalse 以 ASCII 格式打开文件。

TristateUseDefault 使用系统默认值打开文件。

说明

下面的代码说明了如何使用 OpenTextFile 方法打开文件并追加文本：

[JScript]

var fs, a, ForAppending;

ForAppending = 8;

fs = new ActiveXObject("Scripting.FileSystemObject");

a = fs.OpenTextFile("c://testfile.txt", ForAppending, false);

...

a.Close();

[VBScript]

Sub OpenTextFileTest

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("c:/testfile.txt", ForWriting, True)

f.Write "Hello world!"

f.Close

End Sub

----------------------------------------------------------------------------------------------------------------

例子：读取

function Readpwd()
dim fsObj,txtsObj,FilePath
set   fsObj=CreateObject("Scripting.FileSystemObject")
FilePath=Server.MapPath("userpwdkey.dat")
IF   fsObj.FileExists(FilePath)   Then
set   txtsObj=fsObj.OpenTextFile(FilePath)
Readpwd=txtsObj.readline
End   if
end function

写入：

'//总数加1写入文本
dim fsObj,txtsObj,FilePath
set   fsObj=CreateObject("Scripting.FileSystemObject")
FilePath=Server.MapPath("txtcounter.txt")
set   fsObj=fsObj.OpenTextFile(FilePath, 2, True)
fsObj.Write(“写入文本”)
fsObj.Close