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