Seek 函數

重要:  本文係由機器翻譯而成,請參閱免責聲明。本文的英文版本請見這裡,以供參考。

附註: 如果在沙箱模式中,可避免可能不安全的運算式的評估執行的 Microsoft Jet 運算式服務,就會停用函數、 方法、 物件或在本主題中所述的屬性。如需有關沙箱模式的詳細資訊,搜尋 「 沙箱模式 」 的說明。

會傳回一個 Long,指定目前的讀/寫位置中使用Open陳述式開啟的檔案。

語法

搜尋 ( filenumber )

必要的filenumber引數是包含有效的檔案編號的整數。

備註

搜尋會傳回介於 1 到 2147483647 (等於 2 ^31-1) 之間,內含。

下列說明每個檔案存取模式的傳回值。

模式

傳回值

隨機

下一筆記錄讀取或寫入的數字

二進位
輸出
附加
輸入

[下一步] 作業發生的位元組位置。檔案中的第一個位元組位於位置 1,第二個位元組是位置 2,依此類推。


範例

附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊,請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考],並在 [搜尋] 方塊中輸入一個或多個字詞。

此範例使用Seek函數,傳回目前的檔案位置。假設TESTFILE是包含使用者定義類型Record記錄的檔案。

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

在 [隨機] 模式中開啟的檔案,搜尋會傳回下一筆記錄的數的字。

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

隨機模式以外的模式中開啟的檔案,搜尋會傳回發生位元組位置的下一個作業。假設TESTFILE包含幾行文字的檔案。

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

附註: 機器翻譯免責聲明︰本文係以電腦系統翻譯而成,未經人為介入。Microsoft 提供此等機器翻譯旨在協助非英語系使用者輕鬆閱讀 Microsoft 產品、服務及技術相關內容。基於本文乃由機器翻譯而成,因此文中可能出現詞辭、語法、文法上之錯誤。

擴展您的技能
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與其中一位 Office 支援專員連絡以深入了解您的意見。

×