Compartilhar via

Função Seek

  • Artigo

Devolve um Valor Longo especificando a posição de leitura/escrita atual num ficheiro aberto através da instrução Abrir .

Sintaxe

Seek(filenumber)

O argumentofilenumber necessário é um Número Inteiro que contém um número de ficheiro válido.

Comentários

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

O seguinte descreve os valores devolvidos para cada modo de acesso a ficheiros.

Modo Valor de retorno
Aleatório Número do registo seguinte lido ou escrito.
Binário, Saída, Acrescentar, Entrada 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.

Exemplo

Este exemplo utiliza a função Seek para devolver a posição atual do ficheiro. O exemplo pressupõe que TESTFILE se trata de um ficheiro que contém registos do tipo Recorddefinido pelo utilizador .

Type Record    ' Define user-defined type.
    ID As Integer
    Name As String * 20
End Type

Para ficheiros abertos no modo Aleatório, Procurar devolve o número do registo seguinte.

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.
    Debug.Print Seek(1)    ' Print record number to the Immediate window.
Loop
Close #1    ' Close file.

Para ficheiros abertos em modos diferentes do modo Aleatório, Procurar devolve a posição de byte na qual a operação seguinte ocorre. Suponha que TESTFILE é um ficheiro que contém algumas linhas de texto.

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.
    Debug.Print Seek(1)    ' Print byte position to the Immediate window.
Loop
Close #1    ' Close file.

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.