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.
Open deyimi kullanılarak açılan bir dosyada geçerli okuma/yazma konumunu belirten bir Long döndürür.
Söz dizimi
Ara(dosyanumarası)
Gerekli dosya numarasıbağımsız değişkeni, geçerli bir dosya numarası içeren bir Tamsayıdır.
Açıklamalar
Ara , 1 ile 2.147.483.647 (2^31 – 1'e eşdeğer) (dahil) arasında bir değer döndürür.
Aşağıda her dosya erişim modu için dönüş değerleri açıklanmaktadır.
| Mod | Döndürülen Değer |
|---|---|
| Rasgele | Okunan veya yazılan bir sonraki kaydın numarası |
|
İkili, Çıktı, ekle'yi seçin, Giriş |
Bir sonraki işlemin gerçekleştiği bayt konumu. Dosyadaki ilk bayt 1 konumunda, ikinci bayt 2 konumundadır ve bu şekilde devam eder. |
Ö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, geçerli dosya konumunu döndürmek için Seek işlevini kullanır. Örnekte, kullanıcı tanımlı türde Recordkayıtlar içeren bir dosya olduğu varsayılmaktadırTESTFILE.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Rasgele modda açılan dosyalar için, Ara işlevi bir sonraki kaydın numarasını döndürür.
Dim MyRecord As Record ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.
Rastgele mod dışındaki modlarda açılan dosyalar için, Arama bir sonraki işlemin gerçekleştiği bayt konumunu döndürür. Diyelim TESTFILE ki birkaç satır metin içeren bir dosyadır.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.