Função Loc

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

Sintaxe

Loc(filenumber)

O argumento de número de arquivo necessário é qualquer número de arquivoInteger válido.

Comentários

O seguinte descreve o valor retornado para cada modo de acesso de arquivo:

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

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

• 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.