Função LineInput
Lê uma única linha de um arquivo sequencial aberto e a atribui para uma variável String.
Public Function LineInput(ByVal FileNumber As Integer) As String
Parâmetros
- FileNumber
Obrigatório.Qualquer número de arquivo válido.
Exceções
Tipo de exceção |
Número de erro |
Condição |
|---|---|---|
Fim de arquivo alcançado. |
||
FileNumber não existe. |
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 LineInput é 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.
Dados lidos com LineInput geralmente são escritos em um arquivo com Print.
.gif "Observação de segurança") Observação de segurança: |
|---|
Quando ler arquivos, não faça decisões sobre o conteúdo do arquivo baseado no nome de sua extensão.Por exemplo, o arquivo Form1.vb pode não ser um arquivo fonte do Visual Basic. |
A função LineInput lê de um arquivo um caracter por vez até encontrar um retorno do carro (Chr(13) ou sequência retorno do carro/alimento de linha (Chr(13) + Chr(10)).Sequências Retorno de carro/alimento de linha são descartadas em vez de serem adcionadas à string de caracteres.
| Observação de segurança: |
|---|
Reading um arquivo com o LineInput função requer Read acesso das FileIOPermissionAccess enumeração. |
Exemplo
Esse exemplo usa a função LineInput para ler uma linha de um arquivo sequencial e atribuí-la para uma variável.Esse exemplo assume que TestFile é um aquivo de texto com algumas linhas com dados de teste.
Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
While Not EOF(1)
' Read line into variable.
TextLine = LineInput(1)
' Print to the console.
WriteLine(1, TextLine)
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)
Consulte também
Tarefas
Como: Gravar texto em arquivos com um StreamWriter no Visual Basic
Como: Gravar texto em arquivos no Visual Basic