close

亞塞拜然文翻譯

以下部分援用自 Visual Studio 6 MSDN 光碟

OpenTextFile 方法

請留意

Dim fid as TextStream

OpenTextFile 方法有以下幾個單元：

常數   描寫
ForReading 1 開啟一個唯讀檔案。無法對此檔案進行寫入。
ForAppending 8 開啟一個檔案並寫輸出至檔案的尾部。

描寫

語法

單位 描述
Object 需要引數。始終是一個 FileSystemObject 的名字 翻譯社
filename 必要引數。字串運算式，它標識了開啟的檔案 翻譯社
iomode。-> 翻譯社|,-> 翻譯公司|的-> 翻譯 選擇性引數 翻譯社暗示輸入/輸出模式。可為兩個常數之一：ForReading或ForAppending。
create 選擇性引數。Boolean 值，它表示假如指定的 filename 不存在是不是可以創設一個開新檔案。若是豎立開新檔案，其值為 True。若不設立建設檔案其值為 False。預設值為 False 翻譯社
format 選擇性引數。三種 Tristate 值之一，用於指定開啟檔案的花樣。若是省略，則檔案以 ASCII 格局開啟 翻譯社

fid.Close End Sub

常數   描述
TristateUseDefault –2 使用系統預設開啟檔案。
TristateTrue –1 以 Unicode 花式開啟檔案 翻譯社
TristateFalse   0 以 ASCII 格局開啟檔案。

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

準備工作

Sub OpenTextFileTest
    Const ForAppending = 8
    Dim fso as FileSystemObject


設定



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. 進入VB6 翻譯公司 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並確定援用此 .dll 檔


開啟一個指定 翻譯檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加寫入 翻譯社
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fid = fso.OpenTextFile("c:\testfile.txt", ForAppending)
    fid.WriteLine "This is a new line!"


object.OpenTextFile(filename[ 翻譯公司 iomode[, create[, format]]])
Format 引數可為下面設定值 翻譯任何值：
範例1: 
下面的程式碼舉例說明了使用 OpenTextFile 方式開啟並讀取一個文字檔：


以下內文出自: 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有關翻譯的問題歡迎諮詢天成翻譯社
arrow
arrow
    文章標籤
    翻譯社
    全站熱搜

    howardrid1h 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄