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

Нуждаете ли се от още помощ?

Искате ли още опции?

Разгледайте ползите от абонамента, прегледайте курсовете за обучение, научете как да защитите устройството си и още.

Общностите ви помагат да задавате и отговаряте на въпроси, да давате обратна връзка и да получавате информация от експерти с богати знания.