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 ;)
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
Es litstbox
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
esta bien pero ,para que usar FSO??
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.
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
Ahora necesito otro que haga
MsgBox ("La linea uno del listbox")
MSgBOX ("La linea 2 del listbox") asi sucesivamente.
y porque no intentas hacerlo?...es muy facil...de la misma forma que lo cargas podes mostrar cual es cada linea..pensa..
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...