Foro de elhacker.net

Hola aqui de nuevo molestando quisiera saber si un archivo de texto como un notepad c puede cargar a un listbox como si fuera un ritchtexbox en su evento .load se puede cargar  cual quier fichero .txt o los que les establescas se puede hacer lo mismo con un listbox?

Option Explicit
Const FILTRO_EXTENSIONES As String = "Archivos de texto (txt)|*.txt|" & _
                                     "Rich Text Formato (RTF)|*.rtf|" & _
                                     "Archivos INI|*.ini|Archivos HTML|" & _
                                      "*.htm|Todos los archivos|*.*"
 
Private Sub abrir_Click()
    With CommonDialog1
        .DialogTitle = "Abrir Archivo"
        .Filter = FILTRO_EXTENSIONES
        .ShowOpen
        If .FileName = "" Then Exit Sub
        RichTextBox1.LoadFile .FileName
    End With
End Sub
 

se puede hacer lo mismo pero con un listbox?

adaptalo a lo que queres...

 
Option Explicit
 
Private Sub Command1_Click()
 
    Dim vArchivo As String
    Dim i As Integer
    Dim vLinea As String
 
    vArchivo = App.Path & "\archivo.txt"
 
    i = FreeFile
 
    Open vArchivo For Input As i
 
    Do While Not EOF(i)
        Line Input #i, vLinea
        List1.AddItem vLinea
    Loop
 
    Close #i
End Sub
 

otra forma es cargar todo el archivo directamente y con un Split() ir añadiendo las lineas.

Option Explicit
 
Private Sub Form_Load()
    Dim vLineas() As String
    Dim i As Integer
    Dim vArchivo As Integer
 
    vArchivo = FreeFile
 
    Open "C:\archivo.txt" For Binary Access Read As #vArchivo
        vLineas = Split(Input(LOF(vArchivo), vArchivo), vbNewLine)
        For i = 0 To UBound(vLineas)
            List1.AddItem vLineas(i)
        Next i
    Close #vArchivo
End Sub

wow muchas gracias amigo estoy muy agradecido men saludos

disculpa que habra dps de tanto un tema...

en visual studio como seria??

para abrir un txt en un listbox....

haciendo clic en un boton y q salga biste el buscar como cuando queremos adjuntar una imagen...

Visual Studio?  :-(

para que lenguaje  (Visual C++, Visual C#, Visual J#, y Visual Basic .NET)


No revivas el tema. Puedes Crear uno en la sección respectiva.

Saludos

visual basic. net :D

perdon voy a crear un nuevo tema... pero como ai taba el codigo pense q era mas facil ... pq en windows 7 no puedo instalar el 6 que funcione correctamente...

desde ya mil gracias...