Guardar un TextBox en un archivo de texto (Visual Basic)

Sub GuardarArchivo(Ruta As String, Texto As TextBox)
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open Ruta For Output As fnum
Print #fnum, Texto.Text
Close fnum
Exit sub
Ninguno:
Msgbox “Error al guardar el archivo”
End Sub

19 comentarios en “Guardar un TextBox en un archivo de texto (Visual Basic)

  1. gracias por el código pero me queda una duda,para que luego se cargue en otro text box como seria.Es que quería hacerlo para que guardase puntuaciones y luego las mostrase en otro text box
    gracias

  2. no se como guardar en office, copie lo que le comentaste a un chavo pero nada
    Dim sRuta As String
    sRuta = “C:\Temp\miarchivo.txt”

    hice un boton guardar, que le agrego, se llama botton4 su text es Guardar

  3. LE QUIERO DAR CLIK A UN COMANDO QUE DIGA GUARDAR Y DESEO QUE SE ALMACENE EN UN ARCHIVO DE TEXTO , COMO PUEDO HACER , QUE CODIGOS ME DARIAN, POR QUE YA HE PROBADO CON VARIAS FORMAS

  4. ME PARECE GNIAL NO LO HABIA PENSADO AL QUE DICE QUE COMO
    LO PUEDO GUARDAR DONDE QUIERA
    LO PODRIA HACER ASI

    PRIVATE SUB COMMAND1_CLICK()
    ON ERROR GOTO ERROR
    COMMONDIALOG1.SHOWSAVE
    CALL GuardarArchivo(COMMONDIALOG1.FILENAME,TEXT1)
    ERROR:
    EXIT SUB
    END SUB

  5. Alejandra me da la impresión de que no estas poniendo la llamada a la función en el sitio correcto.

    Llámala desde el botón en el evento Click.

    [vb]
    Private Sub Command1_Click()
    Call GuardarArchivo(“c:\goyo.txt”, Text1)
    End Sub
    Sub GuardarArchivo(Ruta As String, Text1 As TextBox)
    Dim fnum As Integer
    On Error GoTo Ninguno
    fnum = FreeFile
    Open Ruta For Append As fnum
    Print #fnum, Text1.Text
    Close fnum
    Exit Sub
    Ninguno:
    MsgBox “Error al guardar el archivo”
    End Sub

    [/vb]

  6. Hola a mi copie este codigo y le ise las modificaciones, pero no me agrega asta que cierre el form, a que se debe esto o que le puedo mover para que se lo guarde en cuando le aplaste al borton’???

    gracias

  7. Perdona PabloD, falta al final un End Sub en la linea siguiente a los dos puntos.

    Espero que eso te solucione el problema. Ahora mismo lo pongo.

    Ya me contarás.

  8. Hola “porque rayos me manda error en el print”,

    Tienes varias cosas mal, para empezar si utilizas Input el archivo tiene que existir.
    Te recomiendo:
    Open “c:\prueba.txt” For Append As #intArchivo que anexa si el fichero existe y si no existe lo crea.

    Por otra parte la linea Print #intArchivo, Text.Text debe ser:
    Print #intArchivo, Text1.Text

  9. Private Sub Command1_Click()
    Dim strArchivo As String
    Dim StrTexto As String
    Dim intArchivo As Integer
    intArchivo = FreeFile
    Open “c:\prueba.txt” For Input As #intArchivo
    While Not EOF(intArchivo)
    Line Input #intArchivo, StrTexto$
    Text1.Text = Text1.Text & StrTexto
    Wend
    Print #intArchivo, Text.Text
    End Sub

  10. Hola H4x05t,
    Pues cuando llamas a guardar archivo lo haces así:

    dim sRuta as string
    sRuta=”C:\Temp\miarchivo.txt”

    GuardarArchivo(sRuta,Text1)

  11. pues claro, para eso está por eso el titulo es “Guardar un TextBox en un archivo de texto”. Lo unico que tienes que hacer es llamar desde el botón a ese sub con el parámetros adecuados.

  12. hola me gustarria saber si con estos pasos ya puesdo guardar un texto escrito dentro de trexbox con la opcion de botton guardar o cancelar??? porfavor es urgente me puedena yudar. con esto se los agradesere mucho.

Los comentarios están cerrados.