Função Loc

Devolve um Valor Longo especificando a posição de leitura/escrita atual num ficheiro aberto.

Sintaxe

Loc(filenumber)

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

Comentários

O seguinte descreve o valor devolvido para cada modo de acesso a ficheiros:

Modo	Valor de retorno
Aleatório	Número do último registo lido ou escrito no ficheiro.
Sequencial	Posição de byte atual no ficheiro dividido por 128. No entanto, as informações devolvidas pelo Loc para ficheiros sequenciais não são utilizadas nem necessárias.
Binária	Posição do último byte lido ou escrito.

Exemplo

Este exemplo utiliza a função Loc para devolver a posição de leitura/escrita atual num ficheiro 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.