英古什文翻譯

請注意

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

AtEndOfStream 屬性

Wend

fid.Close

End Sub

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

描述

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

唯讀屬性，假如檔案指標在 TextStream 檔案末尾，則該屬性傳回 True；否則傳回 False翻譯

下面程式碼為 AtEndOfStream 屬性的用法範例：

準備工作

Dim fso As FileSystemObject

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


Const ForReading = 1
Dim fid As TextStream
語法
object.AtEndOfStream
Set fid = fso.OpenTextFile("C:\testfile.txt", ForReading)

Set fso = CreateObject("Scripting.FileSystemObject")

While Not fid.AtEndOfStream     '判定是否已讀到檔案結尾
    MsgBox fid.ReadLine         '將讀取到的文字檔內容(一行)顯示出來


以下內文出自: 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