
saludos y gracias
| ||||
Muchas gracias... ya he logrado hacer algunas cosas con la instruccion PUT.... El problema es que no sé cómo hacer para agregar un nuevas lineas de texto (o registro) al final del texto: Put #1, LineaFinal, "Texto a agregar al final " ?? Saludos y espero el ejemplo :P |
| ||||
Perdon por la tardanza, han sido dias llenos de trabajo pero aqui esta el ejemplo que prometí ************************************* ESCRIBIR ARCHIVOS Dim fnum As Integer fnum = FreeFile 'se obtiene el numero de archivo Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura ' Escribe las lineas de texto Print #fnum, "LINEA 1" Print #fnum, "LINEA 2" Close fnum 'se cierra el archivo *********************************************** (Para esta seccion hay que agregar en PROYECTO -> REFERENCIAS la siguiente: Microsoft Scripting Runtime) LEER ARCHIVOS Dim Leer Dim MiRegistro as String Dim Maneja As New FileSystemObject Set Leer = Maneja.OpenTextFile("C:\Archivo.txt", ForReading) Do While Leer.AtEndOfStream <> True 'Mientras haya lineas para leer del archivo MiRegistro = Leer.ReadLine msgbox MiRegistro Loop Leer.Close 'Se cierra
__________________ Abraham Velasco Usuario # 516 en los Foros del Web. El hombre no vale por lo que sabe, sino por lo que transmite C'est parce qu'il y a un Dieu que nous sommes libres |