Foro de elhacker.net

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 ;)

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

intentare haber si me funka !!! gracias x la ayuda hermano ^^ !1