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