Nota: A função, método, objeto ou propriedade descrita neste tópico está desativada se o Serviço Microsoft Jet Expression estiver em execução no 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" na Ajuda.
Devolve um Valor Longo especificando a posição de leitura/escrita atual num ficheiro aberto.
Sintaxe
Loc( filenumber )
O número de ficheiro necessárioargumento é qualquer número inteiro válido número de ficheiro.
Observações
O seguinte descreve o valor devolvido para cada modo de acesso a ficheiros:
|
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 pelo 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 de leitura/escrita atual num ficheiro aberto. Este exemplo pressupõe que TESTFILE é um ficheiro de texto com algumas linhas de dados de exemplo.
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.
