+Guardar y Leer Datos desde un Archivo de Texto con Visual Basic (VB.NET)
Se trata de una pequeña aplicacion que muestra una forma de Guardar y Leer Datos desde un Archivo de Texto (.txt). Los datos estan registrados uno por linea.
Podrías hacer un proyecto para poner margenes a un richtextbox y que al guardar el texto con los margenes en el richtextbox y al abrirlo en office word esten eso margenes y la letra el texto, el color del texto, el tamaño de la fuente... todo igual
Hola: Yo no tengo Office utilizo Wordpad. Supongo que es similar. ¿Has visto esto?: http://visualbasictutoriales.blogspot.com.es/search/label/RICHTEXTBOX ¿No sirve para lo que planteas?.¿ Le falta algo?. Saludos.
Dim DATOS As String = "DATOS.TXT" 'RUTA EN LA QUE ESTA EL ARCHIVO DE TEXTO
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click For Each LINEA In IO.File.ReadAllLines(DATOS) ListBox1.Items.Add(LINEA) Next End Sub
Muchas gracias amigo esta muy bueno pero estoy guardando directorios y cuando me muestra en el listbox se lo ve asi C:\Users\Public\Documentos\REGISTO.doc habria alguna forma de que se muestre solo REGISTRO en el listbox
Hola: Y supongo que cuando selecciones un elemento en el listbox querras acceder al documento para hacer lo que sea. Necesitas un Arraylist como variable global (por ejemplo MIARRAY)
Dim MIARRAY As Arraylist'PARA GUARDAR LA RUTA COMPLETA DEL DOCUMENTO Dim DATOS As String = "DATOS.TXT" 'RUTA EN LA QUE ESTA EL ARCHIVO DE TEXTO
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click MIARRAY=New Arraylist For Each LINEA In IO.File.ReadAllLines(DATOS) MIARRAY.Add(LINEA) Dim NOMBRE as String=LINEA NOMBRE=NOMBRE.Remove(0,NOMBRE.LastIndexOf("\")+1) NOMBRE=NOMBRE.Substring(0,NOMBRE.IndexOf(".")'SE SUPONE QUE NO PONDRAS NINGUN PUNTO DENTRO DEL NOMBRE) ListBox1.Items.Add(NOMBRE) Next End Sub Y en Listbox_SelectedIndexChanged Podras obtener la ruta completa con: Lo que quieras hacer= MIARRAY(Listbox.SelectedIndex) Ejemplo: Dim Ruta As String=MIARRAY(Listbox.SelectedIndex) Ya me diras si funciona o tienes problemas.
No me muestra nada en el listbox la primera respuesta que me diste esta bien lo único es que me muestra una lista en el listbox asi: C:\Users\Public\Documentos\registro.doc C:\Users\Public\Documentos\casos.ppt C:\Users\Public\Documentos\estadisticas.pdf Y solo quisiera que aparezca en el listbox asi: registro.doc casos.ppt estadisticas.pdf
Hola: Me parece que me estoy perdiendo algo. La aplicacion de esta pagina muestra una forma de guardar y leer datos guardados en un archivo de texto (.txt) y tu parece que estas hablando de poner en un Listbox los nombres de los documentos que hay en un directorio. ¿Que es exactamente lo que quieres hacer?. Si quieres enviame tu aplicacion a vb.tutoriales.abc@gmail.com y le echare un vistazo. Saludos.
Lo que quiero que haga es que con el boton guardar me extraiga la ruta del directorio y lo guarde en el .TXT y en el Listbox1 me muestre los directorios pero me los muestra asi: C:\Users\Public\Documentos\registro.doc C:\Users\Public\Documentos\casos.ppt C:\Users\Public\Documentos\estadisticas.pdf
Es imposible que la aplicacion que me has enviado genere la informacion que dices : C:\Users\Public\Documentos\registro.doc C:\Users\Public\Documentos\casos.ppt C:\Users\Public\Documentos\estadisticas.pdf Salvo que hayas escrito esos datos, previamente, en el archivo de texto DATOS.txt . El archivo DATOS.txt que me has enviado esta en blanco. A ver si lo que necesitas es una aplicacion que busque (con el Folderbrowserdialog) un directorio concreto, escriba la ruta de los archivos que hay en ese directorio en el archivo DATOS.txt y los muestre en el Listbox solo con el nombre (registro.doc,casos.ppt,estadisticas.pdf, etc).
Si lo que quieres que es la aplicacion haga lo que he mencionado ¿quieres incluir los archivos que haya en los subdirectorios del directorio que hayas elegido? Si guardas las rutas de un determinado directorio en el archivo DATOS.txt ¿donde guardaras las rutas de los archivos de otro directorio?¿o solo te interesan las rutas de un directorio concreto?
¿Puedes decirme que es lo que necesitas exactamente?. Cuantos mas detalles me des mas facil podre entenderte.
Hola: No entiendo para que necesitas esta aplicacion pero aqui tienes la modificacion que pides: https://drive.google.com/file/d/0ByTP_tX3Lc7PcGdpdFVucnVVRXc/view?usp=sharing
Si no vas a necesitar acceder a los archivos desde la aplicacion puedes eliminar las lineas que corresponden a MIARRAY (3 lineas). Saludos.
HOLA, PODRIAS AYUDARME CON UN PROGRAMA, LO QUE QUIERO HACER ES GUARDAR EN UN ARCHIVO DATOS POR EJEMPLO: nOMBRE:_ ALEX VENTA: 1000 COMISON: 100 Saario: 2100 eso que se archive en una base de datos y al volver abrilo rescatar por ejemplo el ultimop valor de comision (100) pra irle sumando mas comisiones y al momento de cerrar el programa que se quede archivado y asi secesivamente...
Dim DATOS As String = "G:\VISUAL B\LEERDATA\DATOS.txt" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'CARGAR LOS DATOS Try TextBox1.Text = File.ReadLines(DATOS)(0) TextBox2.Text = File.ReadLines(DATOS)(1) TextBox3.Text = File.ReadLines(DATOS)(2) Catch ex As Exception End Try
Ya con esa instrucciòn lee la data. Aun no he terminado pero creo que ya la voy a terminar, con el algoritmo. De todos modos muy agradecidos a todos por este foro
Podrías hacer un proyecto para poner margenes a un richtextbox y que al guardar el texto con los margenes en el richtextbox y al abrirlo en office word esten eso margenes y la letra el texto, el color del texto, el tamaño de la fuente... todo igual
ResponderEliminarPOdrIAs?
Hola: Yo no tengo Office utilizo Wordpad. Supongo que es similar.
Eliminar¿Has visto esto?:
http://visualbasictutoriales.blogspot.com.es/search/label/RICHTEXTBOX
¿No sirve para lo que planteas?.¿ Le falta algo?.
Saludos.
Cómo hago esto en excel?
EliminarHola me podrías decir que vercion de visuas basic usas
ResponderEliminarMuy buen tutorial amigo
ResponderEliminarPero como se puede hacer para que muestre los datos del .txt en un listbox
Hola:
EliminarEjemplo si haces la carga con un boton:
Dim DATOS As String = "DATOS.TXT" 'RUTA EN LA QUE ESTA EL ARCHIVO DE TEXTO
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For Each LINEA In IO.File.ReadAllLines(DATOS)
ListBox1.Items.Add(LINEA)
Next
End Sub
Saludos.
Muchas gracias amigo esta muy bueno
Eliminarpero estoy guardando directorios y cuando me muestra en el listbox se lo ve asi C:\Users\Public\Documentos\REGISTO.doc habria alguna forma de que se muestre solo REGISTRO en el listbox
Eso es correcto EGODITONICO, te la comiste, Muchas gracias por esa,, asì es mucho màs sencillo y funciona perfectamente
EliminarHola:
ResponderEliminarY supongo que cuando selecciones un elemento en el listbox querras acceder al documento para hacer lo que sea.
Necesitas un Arraylist como variable global (por ejemplo MIARRAY)
Dim MIARRAY As Arraylist'PARA GUARDAR LA RUTA COMPLETA DEL DOCUMENTO
Dim DATOS As String = "DATOS.TXT" 'RUTA EN LA QUE ESTA EL ARCHIVO DE TEXTO
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MIARRAY=New Arraylist
For Each LINEA In IO.File.ReadAllLines(DATOS)
MIARRAY.Add(LINEA)
Dim NOMBRE as String=LINEA
NOMBRE=NOMBRE.Remove(0,NOMBRE.LastIndexOf("\")+1)
NOMBRE=NOMBRE.Substring(0,NOMBRE.IndexOf(".")'SE SUPONE QUE NO PONDRAS NINGUN PUNTO DENTRO DEL NOMBRE)
ListBox1.Items.Add(NOMBRE)
Next
End Sub
Y en Listbox_SelectedIndexChanged
Podras obtener la ruta completa con:
Lo que quieras hacer= MIARRAY(Listbox.SelectedIndex)
Ejemplo:
Dim Ruta As String=MIARRAY(Listbox.SelectedIndex)
Ya me diras si funciona o tienes problemas.
Saludos.
No me muestra nada en el listbox la primera respuesta que me diste esta bien lo único es que me muestra una lista en el listbox asi:
EliminarC:\Users\Public\Documentos\registro.doc
C:\Users\Public\Documentos\casos.ppt
C:\Users\Public\Documentos\estadisticas.pdf
Y solo quisiera que aparezca en el listbox asi:
registro.doc
casos.ppt
estadisticas.pdf
Hola:
EliminarMe parece que me estoy perdiendo algo.
La aplicacion de esta pagina muestra una forma de guardar y leer datos guardados en un archivo de texto (.txt) y tu parece que estas hablando de poner en un Listbox los nombres de los documentos que hay en un directorio.
¿Que es exactamente lo que quieres hacer?.
Si quieres enviame tu aplicacion a vb.tutoriales.abc@gmail.com y le echare un vistazo.
Saludos.
https://drive.google.com/open?id=0B4w5b4GhjrFueGRJcm9BQkV5ams
EliminarLo que quiero que haga es que con el boton guardar me extraiga la ruta del directorio y lo guarde en el .TXT y en el Listbox1 me muestre los directorios pero me los muestra asi:
C:\Users\Public\Documentos\registro.doc
C:\Users\Public\Documentos\casos.ppt
C:\Users\Public\Documentos\estadisticas.pdf
Y quiero que me los muestre asi:
registro.doc
casos.ppt
estadisticas.pdf
Hola:
EliminarEs imposible que la aplicacion que me has enviado genere la informacion que dices :
C:\Users\Public\Documentos\registro.doc
C:\Users\Public\Documentos\casos.ppt
C:\Users\Public\Documentos\estadisticas.pdf
Salvo que hayas escrito esos datos, previamente, en el archivo de texto DATOS.txt .
El archivo DATOS.txt que me has enviado esta en blanco.
A ver si lo que necesitas es una aplicacion que busque (con el Folderbrowserdialog) un directorio concreto, escriba la ruta de los archivos que hay en ese directorio en el archivo DATOS.txt y los muestre en el Listbox solo con el nombre (registro.doc,casos.ppt,estadisticas.pdf, etc).
Si lo que quieres que es la aplicacion haga lo que he mencionado ¿quieres incluir los archivos que haya en los subdirectorios del directorio que hayas elegido?
Si guardas las rutas de un determinado directorio en el archivo DATOS.txt ¿donde guardaras las rutas de los archivos de otro directorio?¿o solo te interesan las rutas de un directorio concreto?
¿Puedes decirme que es lo que necesitas exactamente?.
Cuantos mas detalles me des mas facil podre entenderte.
Saludos.
Muchas gracias amigo los datos ya están escritos en el DATOS.txt, y solo quiero que me los muestre como te lo especifique
Eliminarhttps://drive.google.com/open?id=0B4w5b4GhjrFuc19EQk53RjFFT3M
C:\Users\Public\Documentos\registro.doc
C:\Users\Public\Documentos\casos.ppt
C:\Users\Public\Documentos\estadisticas.pdf
Y quiero que me los muestre asi:
registro.doc
casos.ppt
estadisticas.pdf
Hola:
EliminarNo entiendo para que necesitas esta aplicacion pero aqui tienes la modificacion que pides:
https://drive.google.com/file/d/0ByTP_tX3Lc7PcGdpdFVucnVVRXc/view?usp=sharing
Si no vas a necesitar acceder a los archivos desde la aplicacion puedes eliminar las lineas que corresponden a MIARRAY (3 lineas).
Saludos.
Muchas gracias amigo realmente no podía con esto muchas graciasssssssssssssssssssssssssssssssssssssssss
EliminarHOLA, PODRIAS AYUDARME CON UN PROGRAMA, LO QUE QUIERO HACER ES GUARDAR EN UN ARCHIVO DATOS POR EJEMPLO:
ResponderEliminarnOMBRE:_ ALEX
VENTA: 1000
COMISON: 100
Saario: 2100
eso que se archive en una base de datos y al volver abrilo rescatar por ejemplo el ultimop valor de comision (100) pra irle sumando mas comisiones y al momento de cerrar el programa que se quede archivado y asi secesivamente...
Imports System.IO
ResponderEliminarPublic Class Form1
Dim DATOS As String = "G:\VISUAL B\LEERDATA\DATOS.txt"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'CARGAR LOS DATOS
Try
TextBox1.Text = File.ReadLines(DATOS)(0)
TextBox2.Text = File.ReadLines(DATOS)(1)
TextBox3.Text = File.ReadLines(DATOS)(2)
Catch ex As Exception
End Try
End Sub
End Class
Ya con esa instrucciòn lee la data. Aun no he terminado pero creo que ya la voy a terminar, con el algoritmo. De todos modos muy agradecidos a todos por este foro
ResponderEliminarlisto, muy buena la codificaciòn y corre pefectamente
ResponderEliminar