Забележка: Функцията, методът, обекта или свойството, описани в тази тема, е забранена, ако услугата Microsoft Jet Expression се изпълнява в ограничителен режим, което не позволява оценка на потенциално опасни изрази. За повече информация относно режима на таксуване, потърсете "режим на таксуване" в "Помощ".
Връща стойност от тип Long, която указва текущата позиция за четене/запис в отворен файл.
Синтаксис
Loc ( filenumber )
Изискваното filenumberаргумент е валидно цяло число номер на файл.
Забележки
По-долу е описана върнатата стойност за всеки режим на достъп до файлове:
|
"Мода" |
Върната стойност |
|
Случайно |
Номер на последния запис, който се чете от или е записан във файла. |
|
Последователни |
Текуща позиция на байт във файла, разделена на 128. Но информацията, върната от Loc за последователни файлове, не се използва нито изисква. |
|
Двоичен |
Позиция на последния байт за четене или писмена работа. |
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример използва функцията Loc , за да върне текущата позиция за четене/запис в отворен файл. Този пример предполага, че TESTFILE е текстов файл с няколко реда примерни данни.
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.
