Função Loc

Artigo
08/25/2010

Retorna um valor Long especificando a atual posição de leitura/gravção dentro de um arquivo aberto.

Public Function Loc(ByVal FileNumber As Integer) As Long

Parâmetros

FileNumber
Obrigatório.Qualquer número Integer válido de arquivo

Exceções

Tipo de exceção	Número de erro	Condição
IOException	52	FileNumber não existe.
IOException	54	Modo de arquivo é inválido.

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

A função Loc é baseada no zero ; usá-la para obter o primeiro byte num arquivo irá retornar 0.

A função Loc é fornecida para compatibilidade com versões anteriores e pode impactar a performance.Para aplicações novas, o objeto My.Computer.FileSystem fornece melhor performance.Para obter mais informações, consulte Access de Arquivo com o Visual Basic.

A tabela a seguir descreve os valores retornados para cada modo de acesso em arquivos.

Modo	Valor de Retorno
Random	Número do último registro lido ou gravado no arquivo
Sequential	Posição de byte corrente no arquivo dividida por 128.No entanto, as informações retornadas por Loc para arquivos seqüenciais não é usadas nem necessárias.
Binary	Posição do último byte lido ou gravado.

Exemplo

Essa exemplo usa a função Loc para retornar a atual posição de leitura/escrita dentre de um arquivo aberto.Esse exemplo assume que MyFile é um aquivo de texto com algumas linhas com dados de teste.

Dim location As Long
Dim oneChar As Char
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Binary)
While location < LOF(1)
   Input(1, oneChar)
   location = Loc(1)
   WriteLine(1, location & ControlChars.CrLf)
End While
FileClose(1)