Função Loc

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

Sintaxe

Loc(filenumber)

O argumentofilenumber necessário é qualquer número de arquivointeiro válido.

Comentários

A seguir, descrevemos o valor de retorno para cada modo de acesso ao arquivo:

Modo Valor de retorno
Aleatório Número do último registro lido ou gravado no arquivo.
Sequencial Posição atual do byte no arquivo dividida por 128. No entanto, as informações retornadas por Loc para arquivos sequenciais não são usadas nem obrigatórias.
Binária Posição do último byte lido ou gravado.

Exemplo

Este exemplo usa a função Loc para retornar a posição atual de leitura/gravação em um arquivo aberto. Esse exemplo supõe que TESTFILE é um arquivo de texto com poucas linhas de dados de exemplo.

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
Do While MyLocation < LOF(1)    ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)    ' Read character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
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.

  • Last updated on