Cargar y Guardar archivos *.txt
Publicado por Jhonatan (1 intervención) el 02/10/2009 05:53:44
ayuda tengo q hacer un programa q carge y guarde un archivo de texto los objetos que voy a utilizar van a ser (text1, command1 y command2)
Text1.MultiLine = True
Command1.Caption = Cargar
Command2.Caption = Guardar
para que carge el archivo de texto que va ser caja1
Private Sub Command1_Click()
Dim x
x = FreeFile
Open App.Path & "\caja1.txt" For Input As x
Do While Not EOF(x)
Line Input #x, Txt
Text1 = Text1 & vbCrLf & Txt
Loop
Close x
End Sub
para que guarde el archivo de texto que va ser caja2
Private Sub Command2_Click()
Open App.Path & "\caja2.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
las formulas funcionan perfectamente pero tengo un problema con la segunda formula es q no me respeta los espacios entre lineas osea que en caja1 yo tengo el texto en varias lineas
que debo hacer para q me agrege linea por linea el contenido del text1 al archivo caja2.txt
para q caja1.txt y caja2.txt sean exactamente iguales
Text1.MultiLine = True
Command1.Caption = Cargar
Command2.Caption = Guardar
para que carge el archivo de texto que va ser caja1
Private Sub Command1_Click()
Dim x
x = FreeFile
Open App.Path & "\caja1.txt" For Input As x
Do While Not EOF(x)
Line Input #x, Txt
Text1 = Text1 & vbCrLf & Txt
Loop
Close x
End Sub
para que guarde el archivo de texto que va ser caja2
Private Sub Command2_Click()
Open App.Path & "\caja2.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
las formulas funcionan perfectamente pero tengo un problema con la segunda formula es q no me respeta los espacios entre lineas osea que en caja1 yo tengo el texto en varias lineas
que debo hacer para q me agrege linea por linea el contenido del text1 al archivo caja2.txt
para q caja1.txt y caja2.txt sean exactamente iguales
Valora esta pregunta
0