Функція Seek

Примітка.:  Ми хочемо надавати найновіший вміст довідки рідною мовою користувачів якомога швидше. Цю сторінку перекладено за допомогою засобу автоматичного перекладу, тому вона може містити смислові, синтаксичні або граматичні помилки. Ми вважаємо, що цей вміст стане вам у пригоді. Повідомте нас, чи була інформація корисною, унизу цієї сторінки. Для зручності цю статтю можна переглянути англійською мовою .

Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".

Повертає значення типу 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.
Удосконалення навичок роботи з Office
Ознайомтеся з навчальними матеріалами
Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

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

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

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

×