同步英語口譯翻譯社

Private Sub Command1_Click()

Const ForReading = 1




唯讀屬性，若是檔案指標在 TextStream 檔案末尾，則該屬性傳回 True；不然傳回 False翻譯
Wend

fid.Close

End Sub

Dim fso As FileSystemObject
Set fid = fso.OpenTextFile("C:\testfile.txt", ForReading)

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

AtEndOfStream 屬性

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

    MsgBox fid.ReadLine         '將讀取到的文字檔內容(一行)顯示出來
Set fso = CreateObject("Scripting.FileSystemObject")

下面程式碼為 AtEndOfStream 屬性的用法典範榜樣：

AtEndOfStream 屬性僅合用於已開啟供讀取的 TextStream 檔案；否則就會犯錯。

object 始終是一個 TextStream 物件的名稱。

object.AtEndOfStream

描寫

語法

請注重

Dim fid As TextStream

While Not fid.AtEndOfStream     '判定是否已讀到檔案結尾

準備工作


文章出自: http://blog.xuite.net/hwtang/notes/23618123-VB%E5%88%A4%E6%96%B7%E6%96%87%E5%AD%97%E6%AA%94%E7%B5%90有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931