Функция

Seek

Синтаксис

Seek(filenumber)

Возвращает значение типа Long, определяющее текущее положение указателя чтения/записи внутри файла, открытого с помощью инструкции Open. Функция Seek возвращает значение в интервале от 1 до 2 147 483 647 (т.е. 2^31 – 1) включительно.

Параметры

Замечания

Возвращаемое значение зависит от режима, в котором открыт файл:
Random - Номер записи, которая будет считана или записана следующей.
Binary, Output, Append, Input - Номер байта, с которого начинается выполнение следующей операции ввода/вывода. Первому байту файла соответствует номер 1, второму 2 и т.п.

Пример использования

'в данном примере функция Seek используется для определения
'текущего положения указателя внутри файла, предположим, что
'файл TESTFILE содержит несколько записей определенного
'пользователем типа Record

Type Record 'тип, определенный пользователем
  ID As Integer
  Name As String * 20
End Type

'для файлов, открытых в режиме Random,
'Seek возвращает номер следующей записи

Dim MyRecord As Record 'объявляет переменную
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) 'цикл до конца файла
  Get #1, , MyRecord 'читает следующую запись
  Debug.Print Seek(1) 'выводит номер записи в окно "Отладка"
Loop
Close #1 'закрывает файл

'для файлов, открытых в других режимах, Seek возвращает номер
'байта, с которого будет начато выполнение следующей операции,
'предположим, что файл TESTFILE содержит несколько строк текста

Dim MyChar
Open "TESTFILE" For Input As #1 'открывает файл для чтения
Do While Not EOF(1) 'цикл до конца файла
MyChar = Input(1, #1) 'читает следующий символ данных
Debug.Print Seek(1) 'выводит номер байта в окно "Отладка"
Loop
Close #1 'закрывает файл

Дополнительная информация

Категория: Работа с файловой системой

Еще функции: CurDir, Dir, EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Input, Loc, LOF, Seek

Логин:

Пароль:

Регистрация, забыли пароль?