Функция Seek

Важно : Тази статия е преведена машинно – вижте отказа от отговорност. Английската версия на тази статия за справка можете да намерите тук .

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

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

Синтаксис

Потърси ( filenumber )

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

Забележки

Потърсете връща стойност между 1 и 2,147,483,647 (еквивалентно на 2 ^ 31-1), включително.

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

Режим

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

Случайни

Брой на следващия запис прочетете или дадени

Двоични,
изхода,
за добавяне,
въвеждане на данни

Байт позиция, на която следващата операция се провежда. Първият байт в даден файл е в позиция 1, втори байт е позиция 2 и т.н.


Пример

Забележка : Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.

Този пример използва функцията за търсене да се върнете на текущата позиция на файл. Примерът предполага TESTFILE е файл, съдържащ записи на дефинирани от потребителя тип Record.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

За файлове, отворени в режим на случайни Потърсете връща номера на следващия запис.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

За файлове, отворени в режими на различни от случайна режим Потърсете връща байт позиция, на която следващата операция се провежда. Мислете TESTFILE е файл, съдържащ няколко реда текст.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Забележка : Отказ от отговорност за машинен превод: Тази статия е преведена от компютърна система без човешка намеса. Microsoft предлага тези машинни преводи, за да помогне на потребителите, които не говорят английски, да се възползват от съдържанието за продукти, услуги и технологии на Microsoft. Тъй като статията е преведена машинно, е възможно да съдържа грешки в речника, синтаксиса и граматиката.

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

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

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

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

×