Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата 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; MyLocationLoopClose #1 ' Close file.
