Функція Seek

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Примітка : Функції, метод об'єкта або властивість у цьому розділі описано буде вимкнуто, якщо вираз служби Microsoft Jet працює у режимі ізольованого програмного середовища, що запобігає обчислення потенційно небезпечних виразів. Додаткові відомості про режим ізольованого програмного середовища знайдіть «режим пісочниці» у вікні довідки.

Повертає значення типу Long, указавши поточне читання та записування у файлі, відкритому за допомогою оператора Open .

Синтаксис

Переходу ( 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. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×