IBM Lotus Symphony
|
Lee un registro de un archivo relativo, o una secuencia de bytes de un archivo binario, a una variable.
Consulte también: Sentencia PUT
Get [#] NúmeroArchivo As Integer, [Posición], Variable
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.
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