OpenTextFile是asp語言中的一個方法,打開指定的文件并返回一個 TextStream 對象，可以通過這個對象對文件進行讀、寫或追加

OpenTextFile是asp語言中的一個方法

打開指定的文件并返回一個 TextStream 對象，可以通過這個對象對文件進行讀、寫或追加。

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

1、方法編輯打開指定的文件并返回一個 TextStream 對象，可以通過這個對象對文件進行讀、寫或追加。

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

2、參數(shù)編輯object

必選項。 object 應為 FileSystemObject 的名稱。

filename

必選項。 指明要打開文件的字符串表達式。

iomode

可選項。 可以是三個常數(shù)之一： ForReading 、 ForWriting 或 ForAppending 。

create

可選項。 Boolean 值，指明當指定的 filename 不存在時是否創(chuàng)建新文件。 如果創(chuàng)建新文件則值為 True ，如果不創(chuàng)建則為 False 。 如果忽略，則不創(chuàng)建新文件。

format

可選項。 使用三態(tài)值中的一個來指明打開文件的格式。 如果忽略，那么文件將以 ASCII 格式打開。

3、設置編輯iomode 參數(shù)可以是下列設置中的任一種：

常數(shù) 值 描述

ForReading 1 以只讀方式打開文件。 不能寫這個文件。

ForWriting 2 以寫方式打開文件

ForAppending 8 打開文件并從文件末尾開始寫。

format 參數(shù)可以是下列設置中的任一種：

值 描述

TristateTrue 以 Unicode 格式打開文件。

TristateFalse 以 ASCII 格式打開文件。

TristateUseDefault 使用系統(tǒng)默認值打開文件。

4、說明編輯下面的代碼說明了如何使用 OpenTextFile 方法打開文件并追加文本：

var fs, a, ForAppending;

ForAppending = 8;

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

//可以是三個常數(shù)之一： ForReading 、 ForWriting 或 ForAppending

//分別是 1 ，2 ，8

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

...

a.Close();

在vbs腳本中的用例

打開指定的文件并返回一個TextStream對象，可以讀取、寫入此對象或?qū)⑵渥芳拥轿募?/p>

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

參數(shù)

object

必選項。應為FileSystemObject對象的名稱。

filename

必選項。字符串表達式，指明要打開的文件名稱。

iomode

可選項。輸入/輸出模式，是下列三個常數(shù)之一：ForReading，F(xiàn)orWriting,或ForAppending。

create

可選項。Boolean值，指出當指定的filename不存在時是否能夠創(chuàng)建新文件。允許創(chuàng)建新文件時為True，否則為False。默認值為False。

format

可選項。三個Tristate值之一，指出以何種格式打開文件。若忽略此參數(shù)，則文件以ASCII格式打開。

iomode參數(shù)可為下列設置之一：

format參數(shù)可為下列設置之一：

用法舉例：

1. Sub OpenTextFileTest 
2. Const ForReading =1, ForWriting =2, ForAppending =8 
3. Dim fso, f 
4. Set fso =CreateObject("Scripting.FileSystemObject") 
5. Set f =fso.OpenTextFile("c:/testfile.txt",ForWriting,True) 
6. f.Write "嗨，你好！" 
7. f.Close 
8. End Sub 
9. Call OpenTextFileTest 

武林網(wǎng)寫的一個函數(shù)

1. Dim fso 
2. Set fso = CreateObject("Scripting.FileSystemObject") 
3. set fn2=fso.GetFile("E:/webroot/vevb/index2.htm") 
4. flsize2=fn2.size 
5. fldate2=fn2.datelastmodified 
6. set fn=fso.GetFile("E:/webroot/vevb/index.htm") 
7. flsize1=fn.size 
8. fldate1=fn.datelastmodified 
9. If fso.FileExists("E:/webroot/vevb/index2.htm") and flsize2>50000 and fldate2>fldate1 Then 
10. '判斷文件的大小，如果html文件重新生成需要判斷是否更新過且文件不能小于50K 
11. fso.getfile("E:/webroot/vevb/index2.htm").copy("E:/webroot/vevb/index.htm") 
12. if err.number=0 then WriteHistory "成功"&now()&".........","log.txt" 
13. end if 
14. '日志寫入函數(shù) 
15. Sub WriteHistory(hisChars, path) 
16. Const ForReading = 1, ForAppending = 8 
17. Dim fso, f 
18. Set fso = CreateObject("Scripting.FileSystemObject") 
19. Set f = fso.OpenTextFile(path, ForAppending, True) 
20. f.WriteLine hisChars  
21. f.Close 
22. End Sub