Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.

Vrne dolgo določanje trenutnega položaja za branje/pisanje v odprti datoteki.

Sintaksa

Loc ( filenumber )

Zahtevana filenumberargument je katero koli veljavno celo število številka datoteke.

Opombe

V nadaljevanju je opisana vrnjena vrednost za vsak način dostopa do datotek:

Način

Vrnjena vrednost

Naključno

Številka zadnjega zapisa, ki je bil prebran ali napisan v datoteki.

Zaporednih

Trenuten položaj bajta v datoteki, deljeno s 128. Vendar podatki, ki jih je funkcija Loc vrnila za sekvenčne datoteke, niso uporabljeni niti zahtevani.

Dvojiško

Položaj zadnjega prebranega ali pisanega bajta.


Primer

Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

V tem primeru je uporabljena funkcija Loc , da vrne trenutni položaj za branje/pisanje v odprti datoteki. V tem primeru se predvideva, da je TESTFILE besedilna datoteka z nekaj vrsticami vzorčnih podatkov.

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.

Ali potrebujete dodatno pomoč?

Razširite svoja znanja
Oglejte si izobraževanje

Vam je bila informacija v pomoč?

Kako ste zadovoljni s kakovostjo prevoda?
Kaj je vplivalo na vašo izkušnjo?

Zahvaljujemo se vam za povratne informacije.

×