Função Seek

Retorna um Long especificando a posição atual de leitura/gravação em um arquivo aberto usando a instrução Open .

Sintaxe

Seek(filenumber)

O argumentofilenumber necessário é um inteiro contendo um número de arquivo válido.

Comentários

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

A seguir, são descritos os valores retornados para cada modo de acesso ao arquivo.

Exemplo

Este exemplo usa a função Seek para retornar a posição atual do arquivo. O exemplo pressupõe que é um arquivo que TESTFILE contém registros do tipo Recorddefinido pelo usuário .

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

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

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 arquivos abertos em modos diferentes do modo Aleatório, Seek retorna a posição de byte na qual a próxima operação ocorre. Suponha que TESTFILE seja um arquivo contendo 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

• Janela imediata
• Funções (Visual Basic for Applications)

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.