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şken herhangi bir geçerli Tamsayı dosya numarası.
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. |
|
İkili |
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, TESTFILE birkaç satır örnek veri içeren bir metin dosyası olduğu varsayılı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.
