Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: & eDu & en 2 Agosto 2008, 12:06 PM

Título: Código que lea .txt
Publicado por: & eDu & en 2 Agosto 2008, 12:06 PM
Bueno, necesitó un codigo que lea un archivo llamado abece.txt
lo que contiene abece.txt es:
a
b
c
d
e
....

Quiero que refleje lo que contiene abece.txt en un ListBox, pero que lo refleje separado por espacios es decir de esta forma NO
a b c d e^No
a
b
c
d
e

^SI


Gracias ;)
Título: Re: Código que lea .txt
Publicado por: chrominum en 2 Agosto 2008, 12:26 PM
Código (vb) [Seleccionar]
Dim fso As Object, Fil As Object, Contenido As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fil = fso.OpenTextFile(App.Path & "\abece.txt", 1)
textbox.text = Fil.ReadAll 'Almacenamos las letras en el textbox
Fil.Close 'Cerramos el archivo


Y agregas la propiedad multiline al textbox
Título: Re: Código que lea .txt
Publicado por: & eDu & en 2 Agosto 2008, 12:38 PM
Es litstbox
Título: Re: Código que lea .txt
Publicado por: cobein en 2 Agosto 2008, 13:39 PM
Código (vb) [Seleccionar]

Option Explicit
Private Sub Form_Load()
    Dim sText As String

    sText = "a" & vbCrLf & "b" '// Esto seria el contenido del archivo

    Dim vItem  As Variant

    For Each vItem In Split(sText, vbCrLf)
        List1.AddItem vItem
    Next
End Sub

Título: Re: Código que lea .txt
Publicado por: seba123neo en 2 Agosto 2008, 22:00 PM
esta bien pero ,para que usar FSO??

Código (vb) [Seleccionar]
Option Explicit

Private Sub Command1_Click()
Dim Archivo As String
Dim Num As Integer
Dim Linea As String
Archivo = "c:\archivo.txt"
fnum = FreeFile
Open Archivo For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, Linea
List1.AddItem Linea
Loop
End Sub


saludos.
Título: Re: Código que lea .txt
Publicado por: dsr en 4 Agosto 2008, 16:20 PM
yo diria que esto es muy largo XD.

Dim car As String
On Error Resume Next
Open "LIVECONFIG.txt" For Input As #1
Do Until EOF(1)
  car = car & Input(1, #1)
Loop
txtmsn.Text = car
Close #1
Título: Re: Código que lea .txt
Publicado por: & eDu & en 18 Agosto 2008, 17:08 PM
Ahora necesito otro que haga

MsgBox ("La linea uno del listbox")
MSgBOX ("La linea 2 del listbox") asi sucesivamente.
Título: Re: Código que lea .txt
Publicado por: seba123neo en 18 Agosto 2008, 17:33 PM
y porque no intentas hacerlo?...es muy facil...de la misma forma que lo cargas podes mostrar cual es cada linea..pensa..
Título: Re: Código que lea .txt
Publicado por: krackwar en 20 Agosto 2008, 06:22 AM
Cita de: seba123neo en 18 Agosto 2008, 17:33 PM
y porque no intentas hacerlo?...es muy facil...de la misma forma que lo cargas podes mostrar cual es cada linea..pensa..
Laa respuesta a esto es por que es flojo...