共用方式為

Loc 函式

  • 發行項

會傳回 Long ，指定開啟檔案內目前的讀取/寫入位置。

語法

Loc (filenumber)

必要的 filenumber 自變數是任何 有效的 整數檔案編號。

註解

下列描述每個檔案存取模式的傳回值：

Mode 傳回值
隨機 從檔案讀取或寫入檔案的最後一筆記錄數目。
順序 檔案中的目前位元組位置除以128。 不過， Loc 針對循序檔案所傳回的資訊既不使用也不必要。
二進位 最後讀取或寫入的位元組位置。

範例

此範例會使用 Loc 函式傳回開啟檔案內目前的讀取/寫入位置。 此範例假設 TESTFILE 是具有幾行資料範例的文字檔。

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
Do While MyLocation < LOF(1)    ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)    ' Read character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。