Funcția Loc

Notă:  Dorim să vă oferim cel mai recent conținut de ajutor, cât mai rapid posibil, în limba dvs. Această pagină a fost tradusă automatizat și poate conține erori gramaticale sau inexactități. Scopul nostru este ca acest conținut să vă fie util. Vă rugăm să ne spuneți dacă informațiile v-au fost utile, în partea de jos a acestei pagini. Aici se află articolul în limba engleză , ca să îl puteți consulta cu ușurință.

Notă: Funcția, metodă, obiecte sau proprietatea cum este descris în acest subiect este dezactivat dacă serviciul de expresie Microsoft Jet se execută în modul sandbox, ceea ce împiedică evaluarea expresii potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în ajutor.

Returnează un lung care specifică poziția curentă citire/scriere într-un fișier deschis.

Sintaxă

Loc ( filenumber )

Necesară filenumberargument este orice număr întreg validă număr fișier.

Observații

Următoarele descrie valoarea returnată pentru fiecare mod de acces de fișier:

Modul

Valoarea returnată

Aleatoare

Numărul de ultima înregistrare citiți din sau scrise fișierul.

Secvențiale

Poziția curentă octet în fișierul împărțit 128. Cu toate acestea, informații returnate de Loc pentru fișierele secvențiale este utilizat nici obligatoriu.

Binar

Poziția ultimul octet 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ă 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.
Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×