Test Foro de elhacker.net SMF 2.1

Programación => Programación General => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: llAudioslavell en 9 Septiembre 2011, 03:25 AM

Título: Cargar .TXT en un listbox ayuda !!!
Publicado por: llAudioslavell en 9 Septiembre 2011, 03:25 AM
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  :) !!!
Título: Re: Cargar .TXT en un listbox ayuda !!!
Publicado por: $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 ;)
Título: Re: Cargar .TXT en un listbox ayuda !!!
Publicado por: llAudioslavell en 9 Septiembre 2011, 20:15 PM
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 ^^ ;-)
Título: Re: Cargar .TXT en un listbox ayuda !!!
Publicado por: DaNuK en 9 Septiembre 2011, 22:55 PM
Es mas o  menos asi
Código (vbnet) [Seleccionar]

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
Título: Re: Cargar .TXT en un listbox ayuda !!!
Publicado por: hackertotal22 en 13 Septiembre 2011, 09:30 AM
Yo suelo usar este código:

Código (vbnet) [Seleccionar]
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()
Título: Re: Cargar .TXT en un listbox ayuda !!!
Publicado por: llAudioslavell en 14 Septiembre 2011, 01:24 AM
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? ?? :):):)
Título: Re: Cargar .TXT en un listbox ayuda !!!
Publicado por: hackertotal22 en 14 Septiembre 2011, 08:41 AM
Quizás esto te sirva:

Código (vbnet) [Seleccionar]
        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
Título: Re: Cargar .TXT en un listbox ayuda !!!
Publicado por: llAudioslavell en 15 Septiembre 2011, 20:45 PM
Cita de: hackertotal22 en 14 Septiembre 2011, 08:41 AM
Quizás esto te sirva:

Código (vbnet) [Seleccionar]
        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