Nota: A função, método, objeto ou propriedade descrito neste tópico é desativada se o Microsoft Jet Expression Service estiver a funcionar em modo sandbox, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" em Ajuda.

Retorna um Long especificando a posição atual de leitura/escrita dentro de um ficheiro aberto.

Sintaxe

Loc ( número de ficheiros)

O número deargumento de ficheiros necessário é qualquer número de ficheiro de Inteiro válido .

Observações

O seguinte descreve o valor de devolução de cada modo de acesso ao ficheiro:

Moda

Valor Devolvido

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 pela Loc para ficheiros sequenciais não são utilizadas nem necessárias.

Binário

Posição do último byte lido ou escrito.


Exemplo

Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo utiliza a função Loc para devolver a posição atual de leitura/escrita dentro de um ficheiro aberto. Este exemplo pressupõe que TESTFILE é um ficheiro de texto com algumas linhas de dados de amostra.

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

Precisa de mais ajuda?

Aumente os seus conhecimentos

Explore as formações >

Seja o primeiro a obter novas funcionalidades

Aderir ao Microsoft insiders >

As informações foram úteis?

Quão satisfeito está com a qualidade do idioma?
O que afetou a sua experiência?

Obrigado pelo seu feedback!

×