IBM Lotus Symphony


Instrucción Get [Ejecución]

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

Consulte también: Sentencia PUT

Sintaxis:

Get [#] NúmeroArchivo As Integer, [Posición], Variable

Parámetros:

NúmeroArchivo: cualquier expresión de entero que determine el número de archivo.

Posición: en el caso de archivos abiertos en modo aleatorio, Posición es el número del registro que se desea leer.

En el caso de archivos abiertos en modo binario, Posición es la posición de los bytes en el archivo donde empieza la lectura.

Si se omite Posición, se utiliza la posición actual o el registro de datos actual del archivo.

Variable: nombre de la variable que se debe leer. Salvo las variables de objeto, puede utilizar cualquier tipo de variable.

Ejemplo:

Sub ExampleRandomAccess

Dim iNumero As Integer

Dim sTexto As Variant REM Debe ser una variante

Dim aArchivo As String

aArchivo = "c:\data.txt"

iNumero = Freefile

Open aFile For Random As #iNumero Len=32

Seek #iNumero,1 REM Posición al principio

Put #iNumero,, "Es la primera línea de texto" REM Rellenar línea con texto

Put #iNumero,, "Es la segunda línea de texto"

Put #iNumero,, "Es la tercera línea de texto"

Seek #iNumero,2

Get #iNumero,,sTexto

Print sTexto

Close #iNumero

iNumero = Freefile

Open aFile For Random As #iNumero Len=32

Get #iNumero,2,sTexto

Put #iNumero,,"Es texto nuevo"

Get #iNumero,1,sTexto

Get #iNumero,2,sTexto

Put #iNumero,20,"Es el texto del registro 20"

Print Lof(#iNumero)

Close #iNumero

end sub


Comentarios del producto | Documentación adicional | Marcas registradas