Função Seek

Importante :  Este artigo foi traduzido por um sistema de tradução automática, leia o aviso de isenção de responsabilidade. Para sua referência, veja a versão em inglês deste artigo aqui.

Observação : A função, método, objeto ou propriedade descrito neste tópico será desabilitada se o Microsoft Jet Expression Service está em execução no modo de área restrita, o que impede a avaliação das expressões possivelmente não seguras. Para obter mais informações sobre o modo seguro, procure por "modo seguro" na Ajuda.

Retorna um longo que especifica a posição de leitura/gravação atual em um arquivo aberto usando a instrução Abrir .

Sintaxe

Seek ( filenumber )

O necessário filenumberargument é um inteiro que contém um válido file number.

Comentários

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

A seguir descreve os valores de retorno para cada modo de acesso de arquivo.

Modo

Valor de retorno

Aleatório

Número do próximo registro lido ou gravado

Binário,
saída,
Acrescentar,
entrada

Posição do byte na qual a próxima operação ocorre. O primeiro byte em um arquivo está na posição 1, o segundo byte está na posição 2 e assim por diante.


Exemplo

Observação : Exemplos a seguir demonstram o uso dessa função em um Visual Basic para módulo Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione a Referência do desenvolvedor na lista suspensa ao lado de pesquisa e insira um ou mais termos na caixa de pesquisa.

Este exemplo usa a função Seek para retornar a posição atual do arquivo. O exemplo supõe TESTFILE é um arquivo contendo registros do tipo definido pelo usuário Record.

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

Para arquivos abertos em modos aleatório, Seek retorna a posição do byte na qual a próxima operação ocorre. Suponha que TESTFILE é 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.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Observação : Aviso de Isenção de Tradução Automática: Este artigo foi traduzido por computador, sem intervenção humana. A Microsoft oferece essas traduções automáticas para ajudar as pessoas que não falam inglês a aproveitar os textos escritos sobre produtos, serviços e tecnologias da Microsoft. Como este artigo foi traduzido automaticamente, é possível que contenha erros de vocabulário, sintaxe ou gramática.

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×