FileSystem.Seek Метод

Исходный код:

FileSystem.vb

Исходный код:

FileSystem.vb

Исходный код:

FileSystem.vb

public:
 static long Seek(int FileNumber);

public static long Seek (int FileNumber);

static member Seek : int -> int64

Public Function Seek (FileNumber As Integer) As Long

Параметры

Возвращаемое значение

Значение типа Long, указывающее текущую позицию ввода-вывода в файле, открытом функцией FileOpen, или устанавливает позицию для следующей операции ввода-вывода в файле, открытом с помощью функции FileOpen.

Исключения

Примеры

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

Structure Record   ' Define user-defined type.
    Dim ID As Integer
    Dim Name As String
End Structure

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

FileOpen(1, "TESTFILE", OpenMode.Random)
Do While Not EOF(1)
    WriteLine(1, Seek(1))   ' Write record number.
    FileGet(1, MyRecord, -1)   ' Read next record.
Loop
FileClose(1)

Для файлов, открытых в режимах, отличных от Random режима , возвращает позицию байтов, Seek в которой выполняется следующая операция. Предположим TestFile , что это файл, содержащий несколько строк текста.

' Report character position at beginning of each line.
Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file for reading.
While Not EOF(1)
    ' Read next line.
    TextLine = LineInput(1)
    ' Position of next line.
    MsgBox(Seek(1))
End While
FileClose(1)

В этом примере функция используется Seek для задания позиции для следующего чтения или записи в файле.

Для файлов, открытых в режимах, отличных от Random режима , Seek задает позицию байтов, с которой выполняется следующая операция. Предположим TestFile , что это файл, содержащий несколько строк текста.

Dim someText As String = "This is a test string."
' Open file for output.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Move to the third character.
Seek(1, 3)
Input(1, someText)
Console.WriteLine(someText)
FileClose(1)

Комментарии

Seek возвращает значение от 1 до 2 147 483 647 (эквивалентно 2^31 –1), включительно.

Ниже описаны возвращаемые значения для каждого режима доступа к файлам.

См. также раздел

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Чтение из файлов в Visual Basic
• Запись в файлы в Visual Basic

Исходный код:

FileSystem.vb

Исходный код:

FileSystem.vb

Исходный код:

FileSystem.vb

public:
 static void Seek(int FileNumber, long Position);

public static void Seek (int FileNumber, long Position);

static member Seek : int * int64 -> unit

Public Sub Seek (FileNumber As Integer, Position As Long)

Параметры

Исключения

Примеры

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

Structure Record   ' Define user-defined type.
    Dim ID As Integer
    Dim Name As String
End Structure

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

FileOpen(1, "TESTFILE", OpenMode.Random)
Do While Not EOF(1)
    WriteLine(1, Seek(1))   ' Write record number.
    FileGet(1, MyRecord, -1)   ' Read next record.
Loop
FileClose(1)

Для файлов, открытых в режимах, отличных от Random режима , возвращает позицию байтов, Seek в которой выполняется следующая операция. Предположим TestFile , что это файл, содержащий несколько строк текста.

' Report character position at beginning of each line.
Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file for reading.
While Not EOF(1)
    ' Read next line.
    TextLine = LineInput(1)
    ' Position of next line.
    MsgBox(Seek(1))
End While
FileClose(1)

В этом примере функция используется Seek для задания позиции для следующего чтения или записи в файле.

Для файлов, открытых в режимах, отличных от Random режима , Seek задает позицию байтов, с которой выполняется следующая операция. Предположим TestFile , что это файл, содержащий несколько строк текста.

Dim someText As String = "This is a test string."
' Open file for output.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Move to the third character.
Seek(1, 3)
Input(1, someText)
Console.WriteLine(someText)
FileClose(1)

Комментарии

Seek возвращает значение от 1 до 2 147 483 647 (эквивалентно 2^31 –1), включительно.

Ниже описаны возвращаемые значения для каждого режима доступа к файлам.

См. также раздел

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Чтение из файлов в Visual Basic
• Запись в файлы в Visual Basic