Seek 函數

附註: 如果 MicrosoftJet 運算式服務是在沙箱模式中執行,則本主題中所述的函數、方法、物件或屬性會停用,這可防止評估可能不安全的運算式。 有關沙箱模式的詳細資訊,在 「協助」中搜尋「沙箱模式」。

會返回 Long,指定使用 Open 語句開啟之檔案中的目前 讀/寫 位置。

語法

尋找 ( 編號)

所需的 檔案編號引數 整數,其中包含有效的 檔案編號。

註解

Seek 會返回介於 1 到 2,147,483,647 (相當於 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

針對以隨機模式開啟的檔案 ,Seek 會返回下一個記錄的數量。

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.

對於以隨機模式外模式開啟的檔案 ,Seek 會返回下一次作業的位元組位置。 假設 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.

需要更多協助?

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

這項資訊有幫助嗎?

感謝您的意見反應!

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

×