Código que lea .txt

[& eDu &]

Bueno, necesitó un codigo que lea un archivo llamado abece.txt
lo que contiene abece.txt es:

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

a b c d e^No

Código [Seleccionar] Expandir

a
b
c
d
e
^SI


Gracias

[chrominum]

Código (vb) [Seleccionar] Expandir

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

[& eDu &]

Es litstbox

[cobein]

Código (vb) [Seleccionar] Expandir


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



[seba123neo]

esta bien pero ,para que usar FSO??

Código (vb) [Seleccionar] Expandir

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.

[dsr]

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

[& eDu &]

Ahora necesito otro que haga

MsgBox ("La linea uno del listbox")
MSgBOX ("La linea 2 del listbox") asi sucesivamente.

[seba123neo]

y porque no intentas hacerlo?...es muy facil...de la misma forma que lo cargas podes mostrar cual es cada linea..pensa..

[krackwar]

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...