葡萄牙語口譯職缺

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

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 方式開啟並讀取一個文字檔：

OpenTextFile 方式有以下幾個單位：

fid.Close End Sub

Sub OpenTextFileTest
    Const ForAppending = 8
    Dim fso as FileSystemObject
語法
描寫
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fid = fso.OpenTextFile("c:\testfile.txt", ForAppending)
    fid.WriteLine "This is a new line!"






常數
 
描述


TristateUseDefault
–2
利用系統預設開啟檔案翻譯


TristateTrue
–1
以 Unicode 格局開啟檔案翻譯


TristateFalse
  0
以 ASCII 花式開啟檔案。









常數
 
描述


ForReading
1
開啟一個唯讀檔案。沒法對此檔案進行寫入翻譯


ForAppending
8
開啟一個檔案並寫輸出至檔案的尾部。



準備工作
object.OpenTextFile(filename[, iomode[, create[, format]]])
iomode 引數可為下面設定值的任何一個：
    Dim fid as TextStream


請注意


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

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

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




本文引用自: 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