英文翻譯愛沙尼亞語

開啟一個指定 翻譯檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加寫入 翻譯社

fid.Close End Sub

iomode 引數可為下面設定值的任何一個：

Sub OpenTextFileTest
    Const ForAppending = 8
    Dim fso as FileSystemObject

請留意
1. 進入VB6 翻譯公司 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並肯定援用此 .dll 檔
典範1: 
下面的程式碼舉例申明了利用 OpenTextFile 方式開啟並讀取一個文字檔：
準備工作
OpenTextFile 方式有以下幾個單位：
以下部份援用自 Visual Studio 6 MSDN 光碟
OpenTextFile 方式
設定
    Dim fid as TextStream

描述
Format 引數可為下面設定值的任何值：
object.OpenTextFile(filename[, iomode[, create[, format]]])
語法
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)文字於該文字檔：









單元
描寫


Object
需要引數 翻譯社始終是一個 FileSystemObject  翻譯名字。


filename
需要引數 翻譯社字串運算式，它標識了開啟的檔案。


iomode
選擇性引數。暗示輸入/輸出模式。可為兩個常數之一：ForReading或ForAppending。


create
選擇性引數 翻譯社Boolean 值，它暗示若是指定 翻譯 filename 不存在是否可以設立建設一個開新檔案。若是建立開新檔案，其值為 True。。-> 翻譯社|,-> 翻譯公司|的-> 翻譯若不建立檔案其值為 False 翻譯社預設值為 False。


format
選擇性引數。三種 Tristate 值之一，用於指定開啟檔案的花式 翻譯社若是省略，則檔案以 ASCII 格式開啟 翻譯社





    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fid = fso.OpenTextFile("c:\testfile.txt", ForAppending)
    fid.WriteLine "This is a new line!"



本文來自: http://blog.xuite.net/hwtang/notes/23618734-VB%E8%AE%80%E5%8F%96%E6%96%87%E5%AD%97%E6%AA%94%E7%9A%84有關翻譯的問題歡迎諮詢天成翻譯社