saludos !
bueno estaba intentando en cargar un archivo de texto en un listo box y en un textbox .. en el textbox ya lo hize pero el problema ahora es cargarlo en un listbox.. tengo este codigo fue lo que estuve intentando pero no funciona en el listbox talves sera por que lo estoy haciendo mal ...
Const ruta As String = "C:\Archivos de programa\data.txt"
Const resultado As String = "C:\Archivos de programa\resultado.txt"
Dim cargar As New System.IO.StreamReader(ruta)
Dim cargar2 As New System.IO.StreamReader(resultado)
ListBox1.Items.Add(cargar.ReadToEnd)
txt_resultado.Text = cargar2.ReadToEnd
cargar2.Close()
cargar.Close()
MsgBox("Valores Mostrados")
espero la ayuda de alguien :) !!!
txt_resultado tendra texto grande? asi como notepad o que?
El otro si me doy cuenta que cargara linea por linea pienso, entonces no uses en este ReadToEnd, sino usa Read simplemente y haces un bucle para que guarde las lineas del texto en items nuevos hasta que se termine el archivo ;)
Cita de: $Edu$ en 9 Septiembre 2011, 04:18 AM
txt_resultado tendra texto grande? asi como notepad o que?
El otro si me doy cuenta que cargara linea por linea pienso, entonces no uses en este ReadToEnd, sino usa Read simplemente y haces un bucle para que guarde las lineas del texto en items nuevos hasta que se termine el archivo ;)
mmm bueno por ahora solo trabajare con textos pequeños..... y ammmm vere la manera de hacer ese bucle.... si se me dificulta te aviso.... gracias ^^ ;-)
Es mas o menos asi
Dim cargar As New System.IO.StreamReader(ruta)
Dim linea As String
while (Not linea Nothing)
linea = cargar.ReadLine()
if (Not linea Nothing) Then
ListBox1.Items.Add(linea)
End If
End While
Saludos
Yo suelo usar este código:
Dim lector As New System.IO.StreamReader( _
ruta_del_archivo, _
System.Text.Encoding.Default, _
True)
' Leer el contenido mientras no se llegue al final
While lector.Peek() <> -1
' Leer una linea del fichero
Dim s As String = lector.ReadLine()
' Si no esta vacia, incluirla al control
' Si esta vacia, continuar el bucle
If String.IsNullOrEmpty(s) Then
Continue While
End If
ListBox1.Items.Add(s)
End While
' Cerrar el fichero
lector.Close()
weno tngo otra duda... como aria para guardar los items de un listview en un .txt :-\
Const ruta As String = "C:\data.txt"
Dim index As New System.IO.StreamWriter(ruta)
index.WriteLine(ListView1.Items)
index.Close()
se que esto esta pesimo......... alguien me podria corregir porfavor? ?? :):):)
Quizás esto te sirva:
Dim linea As Integer
Dim escritor As New System.IO.StreamWriter(ruta_del_archivo)
'Va recorriendo cada linea hasta llegar al final
For linea = 0 To (ListView1.Items.Count - 1)
' Guarda una linea del fichero
escritor.WriteLine(ListView1.Items.Item(linea))
Next
' Cerrar el fichero
escritor.Close()
escritor.Dispose() 'Eliminamos el objeto
Cita de: hackertotal22 en 14 Septiembre 2011, 08:41 AM
Quizás esto te sirva:
Dim linea As Integer
Dim escritor As New System.IO.StreamWriter(ruta_del_archivo)
'Va recorriendo cada linea hasta llegar al final
For linea = 0 To (ListView1.Items.Count - 1)
' Guarda una linea del fichero
escritor.WriteLine(ListView1.Items.Item(linea))
Next
' Cerrar el fichero
escritor.Close()
escritor.Dispose() 'Eliminamos el objeto
intentare haber si me funka !!! gracias x la ayuda hermano ^^ !1