Saludos
Estoy aprendiendo sobre el uso de archivos secuenciales y aleatorios.
en el segundo caso me he encontrado con un mensaje de error
Los ejemplos que uso (vienen en la ayuda del OpenOffice)
'-------------------------------------------------------
Sub EjemploAccesoAleatorio
Dim iNumero As Integer
Dim sTexto As Variant
Dim aArchivo As String
aArchivo = "/data.txt"
iNumero = Freefile
Open aArchivo For Random As #iNumero Len=32
'Seek #iNumero REM Posición al principio
Put #iNumero,1, "Esta es linea de texto 1"
Put #iNumero,2, "Esta es línea de texto 2 "
Put #iNumero,3, "Esta es línea de texto 3 "
Close #iNumero
end sub
Sub EjemploAccesoAleatRecupera
Dim iNumero As Integer
Dim sTexto As Variant REM Debe ser una variante
Dim aArchivo As String
aArchivo = "/data.txt"
iNumero = Freefile
Open aArchivo For random As #iNumero Len=32'
Seek #iNumero,1
Get #iNumero,1,sTexto
Close #iNumero
msgbox sTexto
end sub
'---------------------------------------------------------
La primera macro supongo que obra bien pues aparece el archivo.
La segunda es la que da el error en la linea:
Get #iNumero,1,sTexto
con el mensaje siguiente:
Error de ejecución Basic
Error de E/S de dispositivo
Hay poca info de este tema en internet. Encontré el mismo error referenciado
aquí:
http://www.oooforum.org/forum/viewtopic.phtml?t=58274&highlight=random
Cómo lo podría resolver.
De ser posible si me regalaran alguna información adicional específicamente
sobre leer y escribir en archivos de acceso aleatorio.
Gracias anticipadas
--------------------------------------------
!Navega con el Internet Gratis de AmNet!
Descarga el Programa de Instalación.
Visítanos en www.amnetcable.com
Para cualquier consulta llamanos al 2207-4000
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
