国产探花免费观看_亚洲丰满少妇自慰呻吟_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 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 玛沁县| 高邮市| 淄博市| 和硕县| 东莞市| 海兴县| 永顺县| 嘉荫县| 巫溪县| 东丰县| 上犹县| 广昌县| 越西县| 桂林市| 沙坪坝区| 阿克陶县| 龙南县| 沙湾县| 鲁甸县| 清镇市| 麻城市| 雷州市| 娄底市| 永新县| 溆浦县| 大悟县| 竹溪县| 邮箱| 志丹县| 二连浩特市| 巴林右旗| 治多县| 安康市| 渑池县| 潮安县| 新竹县| 利津县| 巴楚县| 梅河口市| 弥渡县| 威信县|