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 olmayabilecek 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 dosyadaki geçerli okuma/yazma konumunu belirten Uzun döndürür.
Söz dizimi
Loc(dosyanumarası)
Gerekli dosya numarasıbağımsız değişkeni, geçerli herhangi 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 kullanılmaz ve gerekli değildir. |
| İkili | Okunan veya yazılan son baytın 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 dosyada geçerli okuma/yazma konumunu döndürmek için Loc işlevini kullanır. Bu örnekte, TESTFILE birkaç satırlık örnek veriler içeren bir metin dosyası olduğu varsayılmıştır.
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.