有兩種主要的文件處理類型:
創(chuàng)建、添加或刪除數(shù)據(jù),以及讀取文件 移動、復制和刪除文件
創(chuàng)建文件 創(chuàng)建空文本文件(有時被叫做“文本流”)有三種方法。 第一種方法是用 CreateTextFile 方法。 下面的示例示范了在 VBScript 中如何用這種方法來創(chuàng)建文本文件:
Dim fso, f1 Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
要在 JScript 中用這種方法,則使用下面的代碼:
var fso, f1; fso = new ActiveXObject("Scripting.FileSystemObject"); f1 = fso.CreateTextFile("c:\\testfile.txt", true);
創(chuàng)建文本文件的第二種方法是,使用 FileSystemObject 對象的 OpenTextFile 方法,并設(shè)置 ForWriting 標志。在 VBScript 中,代碼就像下面的示例一樣:
Dim fso, ts Const ForWriting = 2 Set fso = CreateObject("Scripting. FileSystemObject") Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True)
要在 JScript 中使用這種方法來創(chuàng)建文本文件,則使用下面的代碼:
var fso, ts; var ForWriting= 2; fso = new ActiveXObject("Scripting.FileSystemObject"); ts = fso.OpenTextFile("c:\\test.txt", ForWriting, true);
創(chuàng)建文本文件的第三種方法是,使用 OpenAsTextStream 方法,并設(shè)置 ForWriting 標志。要使用這種方法,在 VBScript 中使用下面的代碼:
Dim fso, f1, ts Const ForWriting = 2 Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateTextFile ("c:\test1.txt") Set f1 = fso.GetFile("c:\test1.txt") Set ts = f1.OpenAsTextStream(ForWriting, True)
在 JScript 中,則使用下面示例中的代碼:
var fso, f1, ts; var ForWriting = 2; fso = new ActiveXObject("Scripting.FileSystemObject"); fso.CreateTextFile ("c:\\test1.txt"); f1 = fso.GetFile("c:\\test1.txt"); ts = f1.OpenAsTextStream(ForWriting, true);
添加數(shù)據(jù)到文件中 一旦創(chuàng)建了文本文件,使用下面的三個步驟向文件添加數(shù)據(jù):
打開文本文件。 寫入數(shù)據(jù)。 關(guān)閉文件。 要打開現(xiàn)有的文件,則使用 FileSystemObject 對象的 OpenTextFile 方法或 File 對象的 OpenAsTextStream 方法。 要寫數(shù)據(jù)到打開的文本文件,則根據(jù)下表所述任務(wù)使用 TextStream 對象的 Write、WriteLine 或 WriteBlankLines 方法。
任務(wù) 方法 向打開的文本文件寫數(shù)據(jù),不用后續(xù)一個新行字符。 Write 向打開的文本文件寫數(shù)據(jù),后續(xù)一個新行字符。 WriteLine 向打開的文本文件寫一個或多個空白行。 WriteBlankLines
要關(guān)閉一個打開的文件,則使用 TextStream 對象的 Close 方法。
注意新行字符包含一個或幾個字符(取決于操作系統(tǒng)),以把光標移動到下一行的開始位置(回車/換行)。注意某些字符串末尾可能已經(jīng)有這個非打印字符了。
下面的 VBScript 例子示范了如何打開文件,和同時使用三種寫方法來向文件添加數(shù)據(jù),然后關(guān)閉文件:
Sub CreateFile() Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("c:\testfile.txt", True) ' 寫一行,并且?guī)в行滦凶址?br>tf.WriteLine("Testing 1, 2, 3.") ' 向文件寫三個新行字符。 tf.WriteBlankLines(3) ' 寫一行。 tf.Write ("This is a test.") tf.Close End Sub 這個示例示范了在 JScript 中如何使用這三個方法:
function CreateFile() { var fso, tf; fso = new ActiveXObject("Scripting.FileSystemObject"); tf = fso.CreateTextFile("c:\\testfile.txt", true); // 寫一行,并且?guī)в行滦凶址?br>tf.WriteLine("Testing 1, 2, 3.") ; // 向文件寫三個新行字符。 tf.WriteBlankLines(3) ; // 寫一行。 tf.Write ("This is a test."); tf.Close(); }
|