Hola, mi pregunta es:
Necesito abrir un archivo de texto, y que el texto del mismo se abra dentro de una TextBox.
También la función inversa, que el texto de una TextBox se guarde en un archivo *txt
Ya he puesto el cmd y ya se me abre la nueva ventana para guardar y abrir, pero no se como hacer lo que os he comentado antes.
Me sería de gran ayuda vuestra contestación, muchas gracias.
Google.com+Abrir ficheros en Visual Basic
Google.com+Tutorial de Visual Basic
Cualquier tutorial de Visual Basic deberia de hablar sobre como manejar archivos.
Tio mirate un pokito el foro que sobre esto hay mazo! yo tambien pregunte hace poco sobre estas cosas
holaa
Pon dos botones Abrir y Guardar...No te olvides de poner un CommonDialog1
y pone este code
Ese es para Abrir
Dim strOpen As String
CommonDialog1.ShowOpen
strOpen = CommonDialog1.FileName
Text1.LoadFile strOpen
Text1.LoadFile strClose
Ese para guardar
Dim strNewFile As String
CommonDialog1.ShowSave
strNewFile = CommonDialog1.FileName
Text1.SaveFile strNewFile
Espero q te sirva
umm esto no lo conocia yo!
Lee un poquito mas el MSDN (la ayuda di VB)
Chau
Cita de: pedronets en 15 Julio 2005, 23:30 PM
holaa
Pon dos botones Abrir y Guardar...No te olvides de poner un CommonDialog1
y pone este code
Ese es para Abrir
Dim strOpen As String
CommonDialog1.ShowOpen
strOpen = CommonDialog1.FileName
Text1.LoadFile strOpen
Text1.LoadFile strClose
Ese para guardar
Dim strNewFile As String
CommonDialog1.ShowSave
strNewFile = CommonDialog1.FileName
Text1.SaveFile strNewFile
Espero q te sirva
el kilombo que hice en muchsimos progs 20 lineas de codigo y se podia hacer asi??? huy mato!!!!
Pero lo que ha posteado sorcerer sólo sirve utilizando RichTextBox. Para los TextBox sería:
Para abrir:
Dim foo As Integer
foo = FreeFile
Open "C:\Archivo.txt" For Input As #foo
Text1.Text = Input(LOF(foo), #foo)
Close #foo
Para guardar:
Dim foo As Integer
foo = FreeFile
Open "C:\Archivo.txt" For Output As #foo
Print #foo, Text1.Text
Close #foo
Ese método sería el más sencillo, aunque se puede hacer de muchísimas formas.
Saludos!!
ah! coño! osea que para los text el que puse yo en un tema, osea el que as puesto tu, y para los richtext ese no? vale el otro tb para richtext?
Si, también vale para los RichTextBox.
Saludos!!
(http://img41.imageshack.us/img41/3783/signos.jpg)
Hola sobre el codigo de guardar, va perfecto lo unico es que salen dos simbolo algo extraños al lado del contendo ¿como se pueden quitar?
Saludos y Gracias.
coloca la propiedad multiline a true o filtra el contenido del txt de manera que evites los saltos de linea, también puedes validar el contenido antes de almacenarlo.
Perdona mi ignorancia en este campo, pero como se hace para filtrar el contenido y evitar los saltos de linea??
Gracias por la rapidez.
Text1 = Replace(Text1, Chr(10), vbNewLine)
o
Text1 = Replace(Text1, Chr(10), "")
o
cadena= Replace(cadena, Chr(10), "")
S2
Cita de: xavierote en 17 Julio 2005, 15:06 PM
Si, también vale para los RichTextBox.
Saludos!!
mmm la fecha es algo tardia unos 4 años?