Guardar un TextBox en un archivo de texto (Visual Basic)
Visual Basic 13 agosto 2007
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
Vota este artículo:
(1 votes, average: 5,00 out of 5)
Loading ...Posts anterior y posterior:
- Previo: « Determina si el archivo o la carpeta existe (Visual Basic)
- Siguiente: Leer y escribir en un archivo INI (Visual Basic) »
septiembre 20th, 2007 a las 3:33 am
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.
septiembre 20th, 2007 a las 10:56 am
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.
abril 17th, 2008 a las 2:36 am
esta muy bueno esto
lo estaba buscando
abril 17th, 2008 a las 2:39 am
pero como lo guardo donde quiera ?
abril 17th, 2008 a las 9:06 pm
Hola H4x05t,
Pues cuando llamas a guardar archivo lo haces así:
dim sRuta as string
sRuta=”C:\Temp\miarchivo.txt”
GuardarArchivo(sRuta,Text1)
abril 24th, 2008 a las 2:34 am
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
abril 24th, 2008 a las 12:44 pm
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
junio 2nd, 2008 a las 7:04 pm
Me sale un error en los dos puntos despues de c aldar la ruta
junio 2nd, 2008 a las 10:53 pm
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.
octubre 9th, 2008 a las 11:56 pm
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
octubre 10th, 2008 a las 1:07 am
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]
junio 2nd, 2009 a las 1:05 am
David.. gracias por la ayuda.
julio 31st, 2009 a las 8:40 pm
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
marzo 28th, 2010 a las 4:09 pm
excelente codigo me ayudo mucho para un proyecto que estoy realizando… gracias
enero 18th, 2011 a las 5:59 pm
hayyyyyyyyyyyyyy no me funciona en visual basic 2010 :’( auxiliooooooooo
octubre 10th, 2011 a las 7:35 pm
QUERIA SAVER COMO SE PUEDE ORDENAR LA INFORMACION EN UN ARCHIVO DE TEXTO POR FAVOR
octubre 10th, 2011 a las 7:39 pm
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
octubre 17th, 2011 a las 7:50 am
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
octubre 23rd, 2011 a las 1:57 pm
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