asp OpenTextFile文本讀取與寫(xiě)入實(shí)例代碼
當(dāng)前位置:點(diǎn)晴教程→知識(shí)管理交流
→『 技術(shù)文檔交流 』
打開(kāi)指定的文件并返回一個(gè) TextStream 對(duì)象,可以讀取、寫(xiě)入此對(duì)象或?qū)⑵渥芳拥轿募?
object.OpenTextFile(filename[, iomode[, create[, format]]])
參數(shù) object :必選項(xiàng)。應(yīng)為 FileSystemObject 對(duì)象的名稱。 filename :必選項(xiàng)。字符串表達(dá)式,指明要打開(kāi)的文件名稱。 iomode :可選項(xiàng)。輸入/輸出模式,是下列三個(gè)常數(shù)之一:ForReading,F(xiàn)orWriting,或 ForAppending。 create :可選項(xiàng)。Boolean 值,指出當(dāng)指定的 filename 不存在時(shí)是否能夠創(chuàng)建新文件。允許創(chuàng)建新文件時(shí)為 True,否則為 False。默認(rèn)值為 False。 format :可選項(xiàng)。三個(gè) Tristate 值之一,指出以何種格式打開(kāi)文件。若忽略此參數(shù),則文件以 ASCII 格式打開(kāi)。 設(shè)置 iomode 參數(shù)可為下列設(shè)置之一: 常數(shù) 值 描述 ForReading 1 以只讀模式打開(kāi)文件。不能對(duì)此文件進(jìn)行寫(xiě)操作。 ForWriting 2 以只寫(xiě)方式打開(kāi)文件。不能對(duì)此文件進(jìn)行讀操作。 ForAppending 8 打開(kāi)文件并在文件末尾進(jìn)行寫(xiě)操作。 format 參數(shù)可為下列設(shè)置之一: 常數(shù) 值 描述 TristateUseDefault -2 以系統(tǒng)默認(rèn)格式打開(kāi)文件。 TristateTrue -1 以 Unicode 格式打開(kāi)文件。 TristateFalse 0 以 ASCII 格式打開(kāi)文件。 說(shuō)明 以下代碼舉例說(shuō)明如何使用 OpenTextFile 方法打開(kāi)寫(xiě)文件: 代碼如下: 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 The OpenTextFile method opens a specified file and returns a TextStream object that can be used to access the file. Syntax
|
FileSystemObject.OpenTextFile(fname,mode,create,format) |
Parameter參數(shù) | Description描述 |
---|---|
fname | Required. The name of the file to open 必要參數(shù)。指定需要打開(kāi)文件的名稱 |
mode | Optional. How to open the file 可選組件。規(guī)定打開(kāi)文件的方式 1=ForReading - Open a file for reading. You cannot write to this file. |
create | Optional. Sets whether a new file can be created if the filename does not exist. True indicates that a new file can be created, and False indicates that a new file will not be created. False is default 可選組件。設(shè)置是否可以建立一個(gè)原本不存在的新文件。如果為true真,則可以建立一個(gè)新的文件,如果為false假,則不可以建立一個(gè)新的文件。默認(rèn)情況是false假。 |
format | Optional. The format of the file 可選組件。規(guī)定文件的格式 0=TristateFalse - Open the file as ASCII. This is default. |
<% dim fs,f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.OpenTextFile(Server.MapPath("testread.txt"),8,true) f.WriteLine("This text will be added to the end of file") f.Close set f=Nothing set fs=Nothing %> |