Saludos! y me disculpan la insistencia, pero esta incertidumbre me tiene de un hilo, resulta que he googleado y aún no encuentro la salida al uso del GET y el PUT en los archivos "random" usando OObasic.
'---------------------------------- Mensaje inicial # 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 '---------------------------------- fin de Mensaje inicial -------------------------------------------- !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]
