Функция Loc

Забележка: Бихме искали да ви осигурим най-новото помощно съдържание възможно най-бързо на вашия собствен език. Тази страница е преведена чрез автоматизация и може да съдържа граматически грешки и несъответствия. Нашата цел е това съдържание да ви бъде полезно. Можете ли да ни кажете дали информацията е била полезна за вас, в дъното на тази страница? Ето статията на английски за бърза справка.

Забележка: Функция, метод, обект или свойство, описани в тази тема е забранено, ако Microsoft Jet Expression Service се изпълнява в ограничителен режим, който не позволява на оценката на потенциално опасни изрази. За повече информация за ограничителен режим потърсете "ограничителен режим" в "Помощ".

Връща Long, указваща текущата позиция за четене/запис в отворен файл.

Синтаксис

Loc ( filenumber )

Необходими filenumberаргумент е всяко валидно цяло число номер на файл.

Забележки

Следното описва върнатата стойност за режим на достъп всеки файл:

"режим"

Върната стойност

Случайни

Брой на последния запис от или записана във файла.

Последователен

Текущата позиция на байт във файла, разделена на 128. Въпреки това информацията, върнати от Loc за пореден файлове се използва нито задължително.

Binary

Позицията на последния байт прочетете или дадени.


Пример

Забележка: Примерите по-долу илюстрират използването на тази функция във 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.
Разширете уменията си в Office
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×