Conteúdo

# Instrução Get

Lê um registo de um ficheiro relativo, ou uma sequência de bytes de um ficheiro binário, para uma variável.

Consulte também: Instrução PUT

### Sintaxe:

    Obter [#]fileNum, [recordNum|filePos], variável

### Parâmetros:

fileNum: Qualquer expressão inteira que determine o número do ficheiro.

recordNum: Para ficheiros abertos no modo aleatório, recordNum é o número do registo que pretende ler.

Para ficheiros abertos no modo binário, filePos é a posição em bytes no ficheiro onde a leitura começa.

Se recordNum e filePos forem omitidos, é utilizada a posição atual ou o registo de dados atual do ficheiro.

variável: Nome da variável a ser lida. Com exceção das variáveis de objeto, pode utilizar qualquer tipo de variável.

### Exemplo:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Deve ser uma variante
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Posição no inicio
          Put #iNumber, , "Esta é a primeira linha de texto" ' Preencher a linha com texto
          Colocar #iNumber, , "Esta é a segunda linha de texto"
          Colocar #iNumber, , "Esta é a terceira linha de texto"
          Seek #iNumber,2
          Get #iNumber, , sText
          Print sText
          Close #iNumber
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Get #iNumber, 2, sText
          Imprimir #iNumber, , "Este é um novo texto"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Colocar #iNumber, 20, «Este é o texto do registo 20»
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Tem de ser um Variant
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Procurar #iNumber,1 ' Posição no início
          Put #iNumber, , "Esta é a primeira linha de texto" ' Preencher a linha com texto
          Colocar #iNumber, , "Esta é a segunda linha de texto"
          Colocar #iNumber, , "Esta é a terceira linha de texto"
          Seek #iNumber,2
          Get #iNumber, , sText
          Print sText
          Close #iNumber
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Get #iNumber, 2, sText
          Imprimir #iNumber, , "Este é um novo texto"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Colocar #iNumber, 20, «Este é o texto do registo 20»
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

Tópicos relacionados

Declaração de abertura

Declaração Put#

Declaração de encerramento

Necessitamos da sua ajuda!