Contenido

# 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:

    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

Temas relacionados

Instrucción Open

Instrucción Put#

Instrucción Close

¡Necesitamos su ayuda!