Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Wczytywanie do listboxa
głowa




Typ: neutral
Postów: 7
Zarejestrowany: Apr 2004
Wczytywanie do listboxa

Dam taki przykład:
W 3e jest 22 uczniów. Nauczyciel może wpisać max 30 do listboxa. Jak wczytać kilka pozycji z pliku txt od listboxa aby ten sprawdzał, czy pozycja, np. 23 jest pusta i jej nie wczytywał? Potem zostają puste miejsca i głupio wygląda jak coś dodam.

Aha - pytanie to samo ale chodzi o zapis do pliku. Żeby program nie zapisywał pustych linii!

03-04-2004 23:21
Pokaż profil głowa  Wyślij email do głowa   
andrey
Łódź



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

Najczęściej takie zadania wykonuje się petlą Jeżeli w pliku txt pozycje poukładane sa jedna pod druga to możesz skorzystać z polecenia LineInput czyta ona dane liniami oraz wstawia do zmiennej typu string

LineInput #(tutaj musisz wstawic liczbe oznaczajacą plik jak nie wiesz ktora liczba jest wolna skorzystaj z funkcji FreeFile) , nazwa_zmiennej_do_przechowywania_wartości

Mozesz skorzystac tez z takiego sposobu odczytywania danych:

Dim Zmienna As String ' w niej sa wpisy
Input #1 , Zmienna ' czyta pierwszy rekord
Do Until (Eof(sciezka_z_nazwa_pliku) = True)
  Input #1, Zmienna ' czyta nastepne rekordy
Loop

Teraz mozesz te dwa sposoby obrobic i dodac sprawdzanie czy Zmienna jest ciageim znakow, pustym ciagiem znakow, numerem i w zaleznosci od tego dodawac do listboxa
np.: w podanym przykładzie w pętli Do Loop po instrukcji Input wpisac If Zmienna <> "" Then List1.AddItem Zmienna

Powienies sobie poradzic Ale jak by co to pytaj
Powodzenia


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

04-04-2004 09:25
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
głowa




Typ: neutral
Postów: 7
Zarejestrowany: Apr 2004

nie działa. pojawia się błąd!

04-04-2004 17:02
Pokaż profil głowa  Wyślij email do głowa   
andrey
Łódź



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

Chce wrócić do tego post-u bo chciałbym dowiedzieć się co nie działa lubię dobrze zakończone sprawy


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

27-04-2004 08:15
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

.....
Dim Zmienna As Variant ' w niej sa wpisy
Dim NazwaPliku As String
Dim WskPliku

WskPliku = FreeFile
' tylko przykładowa nazwa i ścieżka do pliku
NazwaPliku = App.path & "\" & "uczniowie.txt"

Open NazwaPliku For Input As #WskPliku

'poniższe nie może  być bo plik może być pusty
'Input #WskPliku, Zmienna  ' czyta pierwszy rekord


Do Until EOF(WskPliku)
'poniżej było: sciezka_z_nazwa_pliku , a powinien być uchwyt pliku tu zmienna WskPliku

  Input #WskPliku, Zmienna ' czyta nastepne rekordy
  If Len(Zmienna) > 0 Then
    LstUczniowie.AddItem (Zmienna)
  End If
Loop
Close #WskPliku
.....


_____________________________________________
Karolina

29-04-2004 16:58
Pokaż profil karolinavb  Wyślij email do karolinavb   
andrey
Łódź



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


Do Until EOF(WskPliku)
'poniżej było: sciezka_z_nazwa_pliku , a powinien być uchwyt pliku tu zmienna WskPliku

Już widzę teraz mi głupio że tego wcześniej nie zauważyłem To tak jest jak człowiek przestaje myśleć o tym co pisze. Bardzo ładnie Karolino. Powodzenia


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

30-04-2004 13:21
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1