Applies ToAccess za Microsoft 365 Access 2021 Access 2019 Access 2016

Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".

Vraća dugu vrijednost koja određuje trenutni položaj čitanja/pisanja unutar otvorene datoteke.

Sintaksa

Loc( brojdatoteka )

Obavezni brojargument valjani cijeli broj broj datoteke.

Napomene

U nastavku je opisana povratna vrijednost za svaki način pristupa datoteci:

Mod

Vraćena vrijednost

Slučajno

Broj posljednjeg zapisa pročitanog iz datoteke ili zapisanog u datoteku.

Sekvencijalni

Trenutni položaj bajta u datoteci podijeljen s 128. No informacije koje loc vraća za uzastopne datoteke ne koriste se ni ne moraju se koristiti.

Binary

Položaj zadnjeg bajta pročitanog ili napisanog.

Primjer

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru funkcija Loc koristi za vraćanje trenutnog položaja čitanja/pisanja unutar otvorene datoteke. U ovom se primjeru TESTFILE je tekstna datoteka s nekoliko redaka oglednih podataka.

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; MyLocationLoopClose #1    ' Close file.

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.