Not
Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması yapın.
Açık bir dosya içinde geçerli okuma/yazma konumunu belirten Bir Uzun döndürür.
Söz dizimi
Loc(dosyasayısı)
Gerekli dosyasayısıbağımsız değişkeni geçerli bir Tamsayı dosya numarasıdır.
Açıklamalar
Aşağıda her dosya erişim modu için dönüş değeri açıklanmaktadır:
| Mod | Döndürülen Değer |
|---|---|
| Rasgele | Dosyadan okunan veya dosyaya yazılan son kaydın numarası. |
| Sıralı | Dosyadaki geçerli bayt konumu 128'e bölünür. Ancak, sıralı dosyalar için Loc tarafından döndürülen bilgiler ne kullanılmaz ne de gerekli olur. |
| Ikili | Okunan veya yazılan son bayt konumu. |
Örnek
Not
Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnek, açık bir dosya içinde geçerli okuma/yazma konumunu döndürmek için Loc işlevini kullanır. Bu örnekte, birkaç satır örnek veri içeren bir metin dosyası olduğu varsayılır TESTFILE .
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.