Função Loc
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 |
---|---|---|
FileNumber não existe. |
||
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)
Anotações Developer Dispositivo Inteligente
Não há suporte para esta função.
Requisitos
Namespace: Microsoft.VisualBasic
**Módulo:**FileSystem
Assembly: Visual Basic Runtime Library (em Microsoft.VisualBasic.dll)