国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

asp OpenTextFile文本讀取與寫入實例代碼

2024-05-04 11:09:15
字體:
來源:轉載
供稿:網友
打開指定的文件并返回一個 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 格式打開文件。 
說明 
以下代碼舉例說明如何使用 OpenTextFile 方法打開寫文件:
復制代碼代碼如下:

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 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 金华市| 合阳县| 丰县| 衡南县| 达孜县| 潢川县| 恭城| 安远县| 霍城县| 兴城市| 台东县| 济南市| 临城县| 林西县| 无锡市| 南京市| 肃北| 庄浪县| 芜湖县| 富裕县| 黎城县| 海南省| 柳江县| 遂昌县| 津南区| 合肥市| 广元市| 沈阳市| 黔南| 洛宁县| 商洛市| 天台县| 定南县| 英吉沙县| 南和县| 光山县| 嫩江县| 化州市| 裕民县| 澎湖县| 怀来县|