Notă
Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează un Long care specifică poziția curentă de citire/scriere într-un fișier deschis.
Sintaxă
Loc(numărfișier)
Argumentul număr de fișierobligatoriu este orice număr de fișier întreg valid.
Observații
În cele ce urmează este descrisă valoarea returnată pentru fiecare mod de acces la fișiere:
| Mod | Valoarea returnată |
|---|---|
| Aleator | Numărul ultimei înregistrări citite din sau scrise în fișier. |
| Secvențial | Poziția octetului curent din fișier împărțit la 128. Cu toate acestea, informațiile returnate de Loc pentru fișierele secvențiale nu sunt nici utilizate, nici necesare. |
| binar | Poziția ultimului byte citit sau scris. |
Exemplu
Notă
Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția Loc pentru a returna poziția curentă de citire/scriere într-un fișier deschis. Acest exemplu presupune că TESTFILE este un fișier text cu câteva linii de date eșantion.
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.