OpenTextFile是asp語言中的一個方法
打開指定的文件並返回一個 TextStream 對象,可以通過這個對象對文件進行讀、寫或追加。
object.OpenTextFile(filename[, iomode[, create[, format]]])
1、方法編輯打開指定的文件並返回一個 TextStream 對象,可以通過這個對象對文件進行讀、寫或追加。
object.OpenTextFile(filename[, iomode[, create[, format]]])
2、參數編輯object
必選項。 object 應為 FileSystemObject 的名稱。
filename
必選項。 指明要打開文件的字符串表達式。
iomode
可選項。 可以是三個常數之一: ForReading 、 ForWriting 或 ForAppending 。
create
可選項。 Boolean 值,指明當指定的 filename 不存在時是否創建新文件。 如果創建新文件則值為 True ,如果不創建則為 False 。 如果忽略,則不創建新文件。
format
可選項。 使用三態值中的一個來指明打開文件的格式。 如果忽略,那麼文件將以 ASCII 格式打開。
3、設置編輯iomode 參數可以是下列設置中的任一種:
常數 值 描述
ForReading 1 以只讀方式打開文件。 不能寫這個文件。
ForWriting 2 以寫方式打開文件
ForAppending 8 打開文件並從文件末尾開始寫。
format 參數可以是下列設置中的任一種:
值 描述
TristateTrue 以 Unicode 格式打開文件。
TristateFalse 以 ASCII 格式打開文件。
TristateUseDefault 使用系統默認值打開文件。
4、說明編輯下面的代碼說明了如何使用 OpenTextFile 方法打開文件並追加文本:
var fs, a, ForAppending;
ForAppending = 8;
fs = new ActiveXObject("Scripting.FileSystemObject");
//可以是三個常數之一: ForReading 、 ForWriting 或 ForAppending
//分別是 1 ,2 ,8
a = fs.OpenTextFile("c:\\testfile.txt", 2, false);
...
a.Close();
在vbs腳本中的用例
打開指定的文件並返回一個TextStream對象,可以讀取、寫入此對象或將其追加到文件。
object.OpenTextFile(filename[,iomode[,create[,format]]])
參數
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格式打開文件。
用法舉例:
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 "嗨,你好!" f.Close End Sub Call OpenTextFileTest
寫的一個函數
Dim fso Set fso = CreateObject("Scripting.FileSystemObject") set fn2=fso.GetFile("E:\webroot\jb51\index2.htm") flsize2=fn2.size fldate2=fn2.datelastmodified set fn=fso.GetFile("E:\webroot\jb51\index.htm") flsize1=fn.size fldate1=fn.datelastmodified If fso.FileExists("E:\webroot\jb51\index2.htm") and flsize2>50000 and fldate2>fldate1 Then '判斷文件的大小,如果html文件重新生成需要判斷是否更新過且文件不能小於50K fso.getfile("E:\webroot\jb51\index2.htm").copy("E:\webroot\jb51\index.htm") if err.number=0 then WriteHistory "成功"&now()&".........","log.txt" end if '日志寫入函數 Sub WriteHistory(hisChars, path) Const ForReading = 1, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(path, ForAppending, True) f.WriteLine hisChars f.Close End Sub