Lưu ý: Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này sẽ bị vô hiệu hóa nếu Dịch vụ Biểu thức Phản lực của Microsoft đang chạy trong chế độ hộp cát, điều này ngăn không cho đánh giá các biểu thức không an toàn tiềm ẩn. Để biết thêm thông tin về chế độ hộp cát, hãy tìm kiếm "chế độ hộp cát" trong Trợ giúp.
Trả về một giá trị kiểu Dài xác định vị trí đọc/ghi hiện tại trong một tệp đang mở.
Cú pháp
Loc( filenumber )
Số tệp bắt buộctham đối là bất kỳ số nguyên hợp lệ số tệp.
Chú thích
Dưới đây là mô tả giá trị trả về cho mỗi chế độ truy nhập tệp:
|
Mode |
Giá trị Trả về |
|
Ngẫu nhiên |
Số lượng bản ghi cuối cùng được đọc hoặc ghi vào tệp. |
|
Sequential |
Vị trí byte hiện tại trong tệp chia cho 128. Tuy nhiên, thông tin mà Loc trả về cho các tệp tuần tự không được sử dụng cũng không được yêu cầu. |
|
Nhị phân |
Vị trí của byte cuối cùng được đọc hoặc viết. |
Ví dụ
Lưu ý: Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này sử dụng hàm Loc để trả về vị trí đọc/ghi hiện tại trong tệp đang mở. Ví dụ này giả TESTFILE là một tệp văn bản với một vài dòng dữ liệu mẫu.
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.
