Instrucción Get

Lee un registro desde un archivo relativo o una secuencia de bytes desde un archivo binario a una variable.

Consulte también: Instrucción PUT

Sintaxis:

Diagrama de la instrucción Get


Get [#]fileNum, [recordNum|filePos], variable

Parámetros:

fileNum: cualquier entero que determina el número de archivo.

recordNum: para archivos abiertos en modo aleatorio, recordNum es el número del registro que desea leer.

Para archivos abiertos en modo binario, filePos es la posición del byte en el archivo donde comienza la lectura.

Si se omiten recordNum y filePos, se utiliza la posición actual o el registro de datos actual del archivo.

variable: Nombre de la variable a leer. Con la excepción de las variables de objeto, puede utilizar cualquier tipo de variable.

Ejemplo:


  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sText As Variant ' Debe ser un variant
      Dim aFile As String
      aFile = "C:\Users\ThisUser\data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Seek #iNumero,1 ' Posición al principio
      Put #iNumber, "Esta es la primera línea de texto" 'Rellena la línea con texto
      Put #iNumber, , "Esta es la segunda línea de texto"
      Put #iNumber, , "Esta es la tercera línea 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
      Put #iNumber, , "Este es un texto nuevo"
      Get #iNumber, 1, sText
      Get #iNumber, 2, sText
      Put #iNumber, 20, "Este es el texto del registro 20"
      Print Lof(#iNumber)
      Close #iNumber
  End Sub


  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sText As Variant ' Debe ser una variante
      Dim aFile As String
      aFile = "~/data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Seek #iNumber,1 ' Posición al principio
      Put #iNumber, , "Esta es la primera línea de texto" 'Rellena la línea con texto
      Put #iNumber, , "Esta es la segunda línea de texto"
      Put #iNumber, , "Esta es la tercera línea 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
      Put #iNumber, , "Este es un texto nuevo"
      Get #iNumber, 1, sText
      Get #iNumber, 2, sText
      Put #iNumber, 20, "Este es el texto del registro 20"
      Print Lof(#iNumber)
      Close #iNumber
  End Sub

Instrucción Open

Instrucción Put#

Instrucción Close