Observação: Desejamos fornecer o conteúdo da Ajuda mais recente no seu idioma da forma mais rápida possível. Esta página foi traduzida de forma automatizada e pode conter imprecisões ou erros gramaticais. Nosso objetivo é que este conteúdo seja útil para você. As informações foram úteis? Dê sua opinião no final desta página. Aqui está o artigo em inglês para facilitar a referência.
Observação: A função, método, objeto ou propriedade descrito neste tópico será desabilitada se o Microsoft Jet Expression Service está em execução no modo de área restrita, o que impede a avaliação das expressões possivelmente não seguras. Para obter mais informações sobre o modo seguro, procure por "modo seguro" na Ajuda.
Retorna um longo que especifica a posição de leitura/gravação atual em um arquivo aberto.
Sintaxe
Loc ( filenumber )
O necessário filenumberargumento é qualquer inteiro válido número do arquivo.
Comentários
A tabela a seguir descreve o valor de retorno para cada modo de acesso de arquivo:
Modo | Valor de retorno |
|---|---|
|
Aleatório |
Número do último registro lido ou gravado para o arquivo. |
|
Sequenciais |
Posição de byte atual no arquivo dividida por 128. No entanto, informações retornadas por Loc para arquivos sequenciais não são usadas nem requeridas. |
|
Binário |
Posição do último byte lido ou gravado. |
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um Visual Basic para módulo Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione a Referência do desenvolvedor na lista suspensa ao lado de pesquisa e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função Loc para retornar a posição atual de leitura/gravação em um arquivo aberto. Este exemplo pressupõe que TESTFILE é um arquivo 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.
