Visual Basic, .NET, ASP, VBA, VBScript
 
  Справочники  
  Справочник по Windows API Справочник по Visual Basic  
     
  Функция Seek  
 

Функция

Seek

Синтаксис

Seek(filenumber)

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

Параметры

Наименование

Описание

FileNumber

Обязательный. Аргумент является выражением типа Integer, содержащим любой допустимый номер файла

Замечания

Возвращаемое значение зависит от режима, в котором открыт файл:
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

 
     
  VBNet online (всего: 51524)  
 

Логин:

Пароль:

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


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам