Huomautus
Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.
Palauttaa pitkän arvon, joka määrittää nykyisen luku-/kirjoituskohdan avoimessa tiedostossa.
Syntaksi
Loc(tiedostonumero)
Pakollinen tiedostonumeroargumenttion mikä tahansa kelvollinen kokonaisluvun tiedostonumero.
Huomautuksia
Seuraavassa kuvataan kunkin tiedoston käyttötilan palautusarvo:
| Moodi | Palautusarvo |
|---|---|
| Satunnainen | Viimeisen tiedostosta luetun tai tiedostoon kirjoitetun tietueen numero. |
| Peräkkäinen | Nykyinen tavusijainti tiedostossa jaettuna 128:lla. Locin peräkkäisille tiedostoille palauttamia tietoja ei kuitenkaan käytetä eikä vaadita. |
| Binaari | Viimeisen luetun tai kirjoitetun tavun sijainti. |
Esimerkki
Huomautus
Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Tässä esimerkissä Loc-funktion avulla palautetaan nykyinen luku-/kirjoitussijainti avoimessa tiedostossa. Tässä esimerkissä oletetaan, että TESTFILE se on tekstitiedosto, jossa on muutama rivi mallitietoja.
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.