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.

Sintaxe:

Diagrama da instrução Get


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

Declaração de abertura

Declaração Put#

Declaração de encerramento