Função Loc

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

Nota: A função, método, objeto ou propriedade descritas neste tópico é desativada se o serviço do Microsoft Jet expressão estiver em execução no modo sandbox, que impede a avaliação de expressões potencialmente inseguros. Para obter mais informações sobre o modo sandbox, procure "o modo sandbox" na ajuda.

Devolve um valor longo especificando a posição atual da leitura/escrita dentro de um ficheiro aberto.

Sintaxe

Loc ( númeroficheiro )

O necessários númeroficheiroargumento é qualquer número inteiro válido número de ficheiro.

Comentários

A seguinte tabela descreve o valor de retorno para cada modo de acesso de ficheiro:

Mode

Valor Devolvido

Aleatório

Número do último registo de leitura ou escrita para o ficheiro.

Sequenciais

Posição byte atual no ficheiro dividido por 128. No entanto, informações devolvidas pela Loc para ficheiros sequenciais não são utilizadas nem necessário.

Binário

Posição do último byte leitura ou escrita.


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 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 da leitura/escrita dentro de um ficheiro aberto. Este exemplo assume 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.
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×