Entrada de linha n.º # Declaração

Conteúdo

# Entrada de linha n.º: Instrução

Lê uma linha de um ficheiro sequencial e atribui-a a uma variável.

### Sintaxe:

    Line Input #fileNum, variable

### Parâmetros:

fileNum: Número do ficheiro que contém os dados que pretende ler. O ficheiro deve ter sido aberto previamente com a instrução Open, utilizando a palavra-chave INPUT.

variável: O nome da variável que armazena o resultado.

Através da instrução Line Input#, é possível ler cadeias de um ficheiro aberto para uma variável. As variáveis de cadeia são lidas linha a linha até à primeira mudança de linha (Asc=13) ou avanço de linha (Asc=10). As marcas de fim de linha não estão incluídas na cadeia resultante.

### Exemplo:

      Sub ExampleWorkWithAFile
          Dim iNumber As Integer
          Dim sLine As String
          Dim aFile As String
          Dim sMsg As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Output As #iNumber
          Print #iNumber, "Esta é uma linha do texto"
          Print #iNumber, "Esta é outra linha de texto"
          Close #iNumber
          iNumber = Freefile
          Open aFile For Input As iNumber
          While Not eof(iNumber)
              Line Input #iNumber, sLine
              If sLine <>"" Then
                  sMsg = sMsg & sLine & chr(13)
              End If
          Wend
          Close #iNumber
          MsgBox sMsg
      End Sub

      Sub ExampleWorkWithAFile
          Dim iNumber As Integer
          Dim sLine As String
          Dim aFile As String
          Dim sMsg As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Output As #iNumber
          Print #iNumber, "Esta é uma linha de texto"
          Print #iNumber, "Esta é outra linha de texto"
          Close #iNumber
          iNumber = Freefile
          Open aFile For Input As iNumber
          While Not eof(iNumber)
              Line Input #iNumber, sLine
              If sLine <>"" Then
                  sMsg = sMsg & sLine & chr(13)
              End If
          Wend
          Close #iNumber
          MsgBox sMsg
      End Sub

Tópicos relacionados

Declaração de abertura

Declaração Print#

Instrução Write#

Necessitamos da sua ajuda!