Loc İşlevi

Önemli : Bu makale makine çevisidir. Bkz. yasal uyarı. Bu makalenin İngilizce sürümüne buradan ulaşabilirsiniz.

Not : Microsoft Jet ifade hizmeti güvenli olmayabilecek deyimleri engeller korumalı alan modunda çalışıyorsa işlevi, yöntemi, nesne veya bu konuda açıklanan özelliğini devre dışı bırakılır. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu için" arayın.

Açık bir dosya içindeki geçerli okuma/yazma konumunu belirten bir Uzun döndürür.

Söz dizimi

Loc ( filenumber )

Gerekli filenumberbağımsız değişken geçerli herhangi bir tamsayı dosya numarasıolur.

Açıklamalar

Dönüş değeri her dosya erişim modu açıklanmaktadır:

Modu

Dönüş Değeri

Rastgele

Okunan veya dosyaya yazılan son kaydı sayısı.

Sıralı

Geçerli bayt konumda tarafından 128 bölünen dosya. Bununla birlikte, sıralı dosyaları Loc tarafından döndürülen bilgileri kullanılan gerekli ne.

İkili

Okuma veya yazılmış 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 örnekte, açık bir dosyayı içindeki geçerli okuma/yazma konumuna dönmek için Loc işlevi kullanılmaktadır. Bu örnekte, o TESTFILE birkaç örnek veri satırlarını 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.

Not : Makine Çevirisi Yasal Uyarısı: Bu makale, insan müdahalesi olmadan bir bilgisayar sistemi tarafından çevrilmiştir. Microsoft bu makine çevirilerini İngilizce bilmeyen kullanıcıların Microsoft ürünleri, hizmetleri ve teknolojileriyle ilgili içeriklerden yararlanmasına yardımcı olmak için sunar. Bu makale makine çevirisi olduğundan sözcük, cümle dizilimi ve gramer hataları içerebilir.

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×