close

泰文翻譯

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

類型1:
下面的程式碼舉例申明了利用 OpenTextFile 方式開啟並讀取一個文字檔：

fid.Close End Sub

語法

Format 引數可為下面設定值的任何值：

Dim fid as TextStream

描述

請注重

OpenTextFile 方式有如下幾個單位：

準備工作

設定

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)文字於該文字檔：

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

object.OpenTextFile(filename[, iomode[, create[翻譯社 format]]])

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

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

1. 進入VB6翻譯社 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並肯定引用此 .dll 檔

Sub OpenTextFileTest
    Const ForAppending = 8
    Dim fso as FileSystemObject


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






常數
 
描寫




TristateUseDefault
–2
使用系統預設開啟檔案。




TristateTrue
–1
以 Unicode 花式開啟檔案。




TristateFalse
  0
以 ASCII 格式開啟檔案。






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


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有關各國語文翻譯公證的問題歡迎諮詢華頓翻譯公司02-77260932
arrow
arrow
    文章標籤
    翻譯社
    全站熱搜
    創作者介紹
    創作者 griffik1xb1 的頭像
    griffik1xb1

    griffik1xb1@outlook.com

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

    E-mail轉寄