Ayuda para GUARDAR y ABRIR textos *.txt en una TextBox.

[CRAB]

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.

[Crack_X]

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.

[{_The_Alwar_}]

Tio mirate un pokito el foro que sobre esto hay mazo! yo tambien pregunte hace poco sobre estas cosas

[kakinets]

holaa
Pon dos botones Abrir y Guardar...No te olvides de poner un CommonDialog1

y pone este code

Ese es para Abrir

Código [Seleccionar] Expandir

Dim strOpen As String
   CommonDialog1.ShowOpen
   strOpen = CommonDialog1.FileName
   Text1.LoadFile strOpen
   Text1.LoadFile strClose

Ese para guardar

Código [Seleccionar] Expandir


Dim strNewFile As String
   CommonDialog1.ShowSave
   strNewFile = CommonDialog1.FileName
   Text1.SaveFile strNewFile


Espero q te sirva

[{_The_Alwar_}]

umm esto no lo conocia yo!

[kakinets]

Lee un poquito mas el MSDN (la ayuda di VB)


Chau

[sorcerer]

holaa
Pon dos botones Abrir y Guardar...No te olvides de poner un CommonDialog1

y pone este code

Ese es para Abrir

Código [Seleccionar] Expandir

Dim strOpen As String
   CommonDialog1.ShowOpen
   strOpen = CommonDialog1.FileName
   Text1.LoadFile strOpen
   Text1.LoadFile strClose

Ese para guardar

Código [Seleccionar] Expandir


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!!!!

[xavierote]

Pero lo que ha posteado sorcerer sólo sirve utilizando RichTextBox. Para los TextBox sería:

Para abrir:

Código [Seleccionar] Expandir

    Dim foo As Integer
   
    foo = FreeFile
    Open "C:\Archivo.txt" For Input As #foo
        Text1.Text = Input(LOF(foo), #foo)
    Close #foo

Para guardar:

Código [Seleccionar] Expandir

    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!!

[{_The_Alwar_}]

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?

[xavierote]

Si, también vale para los RichTextBox.

Saludos!!