Loc function
Returns a Long specifying the current read/write position within an open file.
Syntax
Loc(filenumber)
The required filenumber argument is any valid Integer file number.
Remarks
The following describes the return value for each file access mode:
Mode | Return value |
---|---|
Random | Number of the last record read from or written to the file. |
Sequential | Current byte position in the file divided by 128. However, information returned by Loc for sequential files is neither used nor required. |
Binary | Position of the last byte read or written. |
Example
This example uses the Loc function to return the current read/write position within an open file. This example assumes that TESTFILE
is a text file with a few lines of sample data.
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.
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
피드백
https://aka.ms/ContentUserFeedback
출시 예정: 2024년 내내 콘텐츠에 대한 피드백 메커니즘으로 GitHub 문제를 단계적으로 폐지하고 이를 새로운 피드백 시스템으로 바꿀 예정입니다. 자세한 내용은 다음을 참조하세요.다음에 대한 사용자 의견 제출 및 보기