close
單位 | 描寫 |
Object | 必要引數翻譯始終是一個 FileSystemObject 的名字。 |
filename | 必要引數。字串運算式,它標識了開啟的檔案。 |
iomode | 選擇性引數翻譯表示輸入/輸出模式。可為兩個常數之一:ForReading或ForAppending。 |
create | 選擇性引數。Boolean 值,它暗示假如指定的 filename 不存在是不是可以創立一個開新檔案翻譯假如建立開新檔案,其值為 True。若不建立檔案其值為 False。預設值為 False翻譯 |
format | 選擇性引數。三種 Tristate 值之一,用於指定開啟檔案的格局翻譯若是省略,則檔案以 ASCII 格式開啟翻譯 |
Sub OpenTextFileTest Const ForAppending = 8 Dim fso as FileSystemObject
Format 引數可為下面設定值的任何值:
object.OpenTextFile(filename[, iomode[, create[翻譯社 format]]])
OpenTextFile 方式有以下幾個單位:
常數 描寫 TristateUseDefault –2 使用系統預設開啟檔案。 TristateTrue –1 以 Unicode 格式開啟檔案。 TristateFalse 0 以 ASCII 格局開啟檔案。 開啟一個指定的檔案並傳回一個 TextStream 物件,該物件可用於對檔案進行讀取或附加寫入翻譯
Sub OpenTextFileTest Const ForReading = 1 Dim fso as FileSystemObject
Dim fid as TextStream
Set fso = CreateObject("Scripting.FileSystemObject") Set fid = fso.OpenTextFile("c:\testfile.txt", ForReading) MsgBox fid.ReadLine
fid.Close End Sub範例2:
下面的程式碼舉例申明了利用 OpenTextFile 方式開啟並附加(Append)文字於該文字檔:
準備工作
請注意
規範1:
下面的程式碼舉例說明了利用 OpenTextFile 方式開啟並讀取一個文字檔:1. 進入VB6翻譯社 點選 MENU / Project / References
Dim fid as TextStream
2. 點選 Microsoft Scripting Runtime, 並肯定引用此 .dll 檔
語法
描寫
Set fso = CreateObject("Scripting.FileSystemObject") Set fid = fso.OpenTextFile("c:\testfile.txt", ForAppending) fid.WriteLine "This is a new line!"
常數 描寫 ForReading 1 開啟一個唯讀檔案。沒法對此檔案進行寫入。 ForAppending 8 開啟一個檔案並寫輸出至檔案的尾部。 設定
iomode 引數可為下面設定值的任何一個:
以下部份引用自 Visual Studio 6 MSDN 光碟
OpenTextFile 方法
fid.Close End Sub
文章來自: https://blog.xuite.net/hwtang/notes/23618734-VB%E8%AE%80%E5%8F%96%E6%96%87%E5%AD%97%E6%AA%94%E7%9A%8有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
文章標籤
全站熱搜
留言列表