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 Long-arvon, joka määrittää nykyisen luku-/kirjoitussijainnin avoimessa tiedostossa.
Syntaksi
Loc(filenumber)
Pakollinen tiedostonumero-argumenttion mikä tahansa kelvollinen Kokonaisluku-tiedostonumero.
Huomautuksia
Seuraavassa kuvataan kunkin tiedoston käyttötilan palautusarvo:
| Moodi | Palautusarvo |
|---|---|
| Satunnainen | Tiedostosta luettavan tai tiedostoon kirjoitetun viimeisen tietueen numero. |
| Peräkkäinen | Tiedoston nykyinen tavukohta jaettuna 128:lla. Loc:n peräkkäisille tiedostoille palauttamia tietoja ei kuitenkaan käytetä eikä vaadita. |
| Binary | Viimeisen tavun sijainti luettuna tai kirjoitettuna. |
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ä kyseessä TESTFILE 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.