asp 操作 txt 文本文件

今天药忘吃喽~ 2022-08-04 12:46 264阅读 0赞

创建指定的文件名并返回一个 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