Applies ToAccess за Microsoft 365 Access 2021 Access 2019 Access 2016

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

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

Синтаксис

Seek( filenumber )

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

Забележки

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 * 20End Type

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

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)    LoopClose #1    ' Close file.

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

Dim MyCharOpen "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) LoopClose #1    ' Close file.

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

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

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

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