FileSystem.Seek Método

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

Parâmetros

Retornos

Uma Long especificação da posição de leitura/gravação atual em um arquivo aberto usando a FileOpen função ou define a posição para a próxima operação de leitura/gravação em um arquivo aberto usando a FileOpen função.

Exceções

Exemplos

Este exemplo usa a Seek função para retornar a posição do arquivo atual. O exemplo pressupõe TestFile ser um arquivo que contém registros da estrutura Record.

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

Para arquivos abertos no Random modo, Seek retorna o número do próximo registro.

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)

Para arquivos abertos em modos diferentes do Random modo, Seek retorna a posição de byte na qual a próxima operação ocorre. Suponha TestFile que seja um arquivo que contenha várias linhas de texto.

' 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)

Este exemplo usa a Seek função para definir a posição para a próxima leitura ou gravação em um arquivo.

Para arquivos abertos em modos diferentes do Random modo, Seek define a posição de byte na qual a próxima operação ocorre. Suponha TestFile que seja um arquivo que contenha várias linhas de texto.

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)

Comentários

Seek retorna um valor entre 1 e 2.147.483.647 (equivalente a 2^31 - 1), inclusive.

O seguinte descreve os valores retornados para cada modo de acesso ao arquivo:

Modo	Valor de retorno
Random	Número do registo seguinte lido ou escrito
Binary, Input, , OutputAppend	Posição de byte na qual a próxima operação ocorre. O primeiro byte num ficheiro está na posição 1, o segundo byte está na posição 2 e assim sucessivamente.

Confira também

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Reading from Files in Visual Basic
• Writing to Files in Visual Basic

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)

Parâmetros

Exceções

Exemplos

Este exemplo usa a Seek função para retornar a posição do arquivo atual. O exemplo pressupõe TestFile ser um arquivo que contém registros da estrutura Record.

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

Para arquivos abertos no Random modo, Seek retorna o número do próximo registro.

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)

Para arquivos abertos em modos diferentes do Random modo, Seek retorna a posição de byte na qual a próxima operação ocorre. Suponha TestFile que seja um arquivo que contenha várias linhas de texto.

' 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)

Este exemplo usa a Seek função para definir a posição para a próxima leitura ou gravação em um arquivo.

Para arquivos abertos em modos diferentes do Random modo, Seek define a posição de byte na qual a próxima operação ocorre. Suponha TestFile que seja um arquivo que contenha várias linhas de texto.

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)

Comentários

Seek retorna um valor entre 1 e 2.147.483.647 (equivalente a 2^31 - 1), inclusive.

O seguinte descreve os valores retornados para cada modo de acesso ao arquivo:

Modo	Valor de retorno
Random	Número do registo seguinte lido ou escrito
Binary, Input, , OutputAppend	Posição de byte na qual a próxima operação ocorre. O primeiro byte num ficheiro está na posição 1, o segundo byte está na posição 2 e assim sucessivamente.

Confira também

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Reading from Files in Visual Basic
• Writing to Files in Visual Basic