Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ładowanie pliku do listboxa
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
Ładowanie pliku do listboxa

Jak wczytać liniowo plik do list? Czyli jak mam zawartość pliku:

Test1
Test2
Test3

i chcę, aby wpisał mi ten plik do listy. Jedna linijka na jedną pozycję


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

21-04-2003 14:08
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

List1.Enabled = True
    List1.Clear
     
    Open Z For Input As #1
        Do While Not (EOF(1))
            Line Input #1, X
            List1.AddItem X
        Loop
    Close #1


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

23-04-2003 13:59
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

Sub ReadFile(ByVal FileName As String, ByRef ListBox As ListBox)

Dim strLine As String

Open FileName For Input As #1

    Do While Not EOF(1)
        Line Input #1, strLine
        ListBox.AddItem strLine
    Loop

Close #1
End Sub

taka procedurka... a potem:

ReadFile "c:\test.txt", List1

i jazda


_____________________________________________
www.KURDE.pl

23-04-2003 14:04
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

o Jelcyn mnie ubiegl


_____________________________________________
www.KURDE.pl

23-04-2003 14:10
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
:-)

Dzięx za helpa! :-)


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

23-04-2003 17:28
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1