Забележка
Функцията, методът, обектът или свойството, описани в тази тема, са забранени, ако услугата за изрази Microsoft Jet се изпълнява в ограничителен режим, което пречи на изчисляването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща стойност от тип Long, указваща текущата позиция за четене/запис във файл, отворен с помощта на командата Open .
Синтаксис
Seek(номер на файл)
Задължителният аргумент "номер на файл" е цяло число, съдържащо валиден номер на файл.
Забележки
Търсене връща стойност между 1 и 2 147 483 647 (еквивалентно на 2^31 – 1), включително.
По-долу са описани върнатите стойности за всеки режим на достъп до файла.
| Мода | Върната стойност |
|---|---|
| Случайно | Номер на следващия прочетен или записан запис |
|
Двоично, Изход, Добавяне, Въвеждане |
Байтова позиция, в която се изпълнява следващата операция. Първият байт във файл е в позиция 1, вторият байт е в позиция 2 и т. н. |
Пример
Забележка
Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример използва функцията Seek , за да върне текущата позиция на файла. Примерът предполага, 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.