Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Visual Basic
Code

Visual Basic - Grabar el contenido de un textbox en un .txt

Códigos Visual Basic

Este pequeño codido consigue Grabar el contenido de un textbox en un archivo de texto txt. Solo debemos de crear en un formulario el textbox y un boton, por default este boton se llamará Command1 Hay que tener cuidado con el archivo de texto que utilicemos, puesto que sobreescribirá el contenido.
Visitas: 56,558 - 19/04/2004 22:11:35
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. Private Sub Command1_Click()
  2.     Dim mitexto As Integer
  3.     mitexto = FreeFile
  4.     Open "c:ejemplo.txt" For Output As #mitexto
  5.         Print #mitexto, Text1
  6.     Close #mitexto
  7. End Sub



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Grabar el contenido de un textbox en un .txt" href="http://www.tutores.org/codigo/1049/" target="_blank">Grabar el contenido de un textbox en un .txt</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
xephiro
3 5
Holas ... bueno mi duda es si alguien sabe como hacer para que se lea de un archivos de texto 1 sola linea determinada EJ: que se cargue la linea 7 en un textbox....
Comentario usuario
sandra rodriguez
2 5
Y para grabar el contenido de una etiqueta seria igual solo cambiando el valor del text por label??
Comentario usuario
19/04/2003
5 5
Hola
No tendria que plantear ningun problema, solo debes poner
nombre_label.caption en vez de text1
Saludos
Comentario usuario
xephiro
3 5
lo que quiero es que mi texto.txt tiene un texto:

Text1
Text2
Text3
Text4

Todo eso en el archivo de texto y queiro que solo se habra la linea text3 o text2 depende de lo que le ordene....
Comentario usuario
09-12-2007 00:44:40
2 5
Muy bueno y censillo el código... gracias
Comentario usuario
kaka
5 5
Como Es El Codigo Para Que Siga Poniendo Lo Introducido la segunda vez ke se apriete el boton sin borrar lo que ya tenia?? :S
Comentario usuario
Echeva
5 5
Hola, tengo una consulta:
Cuando ingreso un dígito por un TextBox para grabarlo en un archivo lo grabo con extensión ".txt" (Block de Notas) pero cuando quiero que en ves de que aparesca el número que ingresé grabado en el Block aparesca una operación matemática con ese número.
Gracias
Comentario usuario
12-08-2008 20:22:36
3 5
estoy realizando un programa de inscripción y necesito traer informacion a un listview de dos tablas de una base de datos bajo access estan relacionadas pero nesecito hacer una consulta que me traiga las notas menores de 10 de una tabla y el nombre de la asignatura de otra tabla pero no se como realizar la consulta de doble seleccion.Tengo el campo clave de la asignatura en la tabla de donde extraigo las notas menores de 10 pero nesito extraer el nombre de esas asignaturas de esa notas menores. No se si se reliza un inner join pero no si se realiza en acces y no se los parametros de consultas dobles. y tambien como utlizo el chekbox en el listview se como colocarlo pero no como codificar para que tome la información que selecciono para mandarle a la base de datos. se le agradece de antemano un poco de colaboracion con lo que puedan por favor tengo fe que alguna informacion me servirá
Comentario usuario
23/09/2005 22.53.03
5 5
Hola que tal me pueden echar la mano es que quiero simular un cajero y no se como mandar todos los numeros del NIP a un text con botones simulando el teclado del cajero, lo intente pero solo puedo mandar de un numero a la vez, si me pueden ayudar por favor, gracias
Comentario usuario
01-12-2007 02:22:42
5 5
como inserto los dos codigos en una pagina html. disculpa conozco poco como lo hago paso a paso.
gracias
Comentario usuario
RBdouaihi
2 5
me dice que no esta declarado el open, que hago?
Comentario usuario
11/08/2005 23.03.51
2 5
UNA CONSULTA SI YO TENGO QUE GRABAR EL ARCHIVO EN LA MISMA CARPETA DE INSTALACION Y NO EN C... COMO SERIA.... ESTOY USANDO VISUAL STUDIO 2008 ???

GRACIAS
Comentario usuario
Nicasio Colchado
1 5
Xephiro que tal... mm tengo la solucion a tu problema!:
Bueno aqui te dejo un metodo too es manejado por codigo,
y tieenes que implementar el paquete de archivos en la zona de nobres:
Imports System.IO


Dim archivo As String = "Nombre del Bloc de notas donte esta la informacion que deseas sacar!"

Dim existe As Boolean = False
Dim buscarD As String = InputBox("Ingrese Código o DNI para realizar Búsqueda")

Try
Dim sr As StreamReader = New StreamReader(archivo)
While sr.Peek() >= 0
Dim token() As String = Split(sr.ReadLine, ",") 'Split devuelve una matriz unidimensional..quiere decir que cada dato lo va a almacenar en el indice q io decida mendiante un token...
Dim cod As String = token(0).Trim 'Almacena variable "cod" en indice 0 de la matriz
Dim orq As String = token(1).Trim
Dim repre As String = token(2).Trim
Dim dni As String = token(3).Trim
Dim cel As String = token(4).Trim
Dim mail As String = token(5).Trim
Dim fecha As String = token(6).Trim
Dim monto As String = token(7).Trim
Dim tiempo As String = token(8).Trim

' If cod.Equals(buscarD) Or dni.Equals(buscarD.ToUpper) Then 'Verifico si Código o Dni son Iguales con los elementos guardados/Convirtiendo en mayusculas con el ToUpper
If cod.Equals(buscarD.ToUpper) Or dni.Equals(buscarD.ToUpper) Then 'Verifico si Código o Dni son Iguales con los elementos guardados/Convirtiendo en mayusculas con el ToUpper
Me.txtNumContrato.Text = cod
Me.txtNombreOrquesta.Text = orq 'lo q escriba en la caja de texto se almacena en la variable
Me.txtRepresentante.Text = repre
Me.txtDni.Text = dni
Me.txtCelular.Text = cel
Me.txtMail.Text = mail
Me.dtpFN.Text = fecha
Me.txtMonto.Text = monto
Me.txtTiempo.Text = tiempo
existe = True
Dim nuevo As ListViewItem
nuevo = ListView1.Items.Add(cod) 'Añade Elemento al ListView1..
nuevo.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, orq))
nuevo.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, repre))
nuevo.SubItems.Insert(3, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, dni))
nuevo.SubItems.Insert(4, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, cel))
nuevo.SubItems.Insert(5, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, mail))
nuevo.SubItems.Insert(6, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, fecha))
nuevo.SubItems.Insert(7, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, monto))
' nuevo.SubItems.Insert(8, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, fecha))
nuevo.SubItems.Insert(8, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, tiempo))
' nuevo.SubItems.Insert(8, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, tiempo))
End If
End While
sr.Close()
cboCorreo.Visible = False
txtOtroCorreo.Visible = False

Catch ex As Exception
End Try
Comentario usuario
28-08-2008 13:42:32
1 5
hola, como hago para grabar varios TextBox y MaskedTextoBox en un archivo especifico sin preguntarle el usuario y q no se sobreescriba el archivo? gracias
Comentario usuario
luis andres
1 5
excelente me sirvio mucho el ejemplo grasias
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.