Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: ZAPIS (I ODCZYT Z PLIKU) ZAWARTOŚCI LISTBOXA
anonim




Typ: Nie zarejestrowany
ZAPIS (I ODCZYT Z PLIKU) ZAWARTOŚCI LISTBOXA

Potrzebuję kod programika, który polnp.naciśnięciu  CommandButtona1 zapisywałby do pliku zwartość listbox'a, a np. po naciśnięciu CommandButtona2 odcxzytywałby zawaretość tego pliku do listbox'A

10-11-2002 21:13
  
err404



Typ: neutral
Postów: 14
Zarejestrowany: Nov 2002
Bułka z masłem

'Skopiuj cały ten tekst do swojego kompilatora Basica będziesz wszystko lepiej widział
' Definiujemy Zmienna odpowiedzialna za sciezke do pliku
Dim FilePath as string
'Zmienna Pentli
Dim i as integer
'Przypisujemy zmiennej sciezke
FilePath="C:\Plik.txt"
'Otwieramy plik do zapisu
open FilePath for output as #1
'wykonujemy pentle dla wszystkich elementow listy(dlugosc - 1 bo elementy indeksowane sa od 0)
for i=0 to List.ListCount-1
'"Drukujemy" do pliku linia po lini
print #1, list.list(i)

next i
'Zamykamy plik
close #1

' To był zapis do pliku a teraz odczyt
'Czyscimy liste
List.clear
'Deklarujemy zmienna lokalna ktora bedzie przechowywac text
Dim Text as string
Otwieramy ten plik do odczytu
open FilePath For Input as #1
'I to co najdziwniejsze
'Petla warunkowa(wykonywana do momentu kiedy warunek osiagnie wartosc logiczna 0)
' W tym przypadku eof ma zawsze wartosc zero
'dopiero na koncu osiaga wartosc 1
'Eof(1)=End of File 1 czy wystapil koniec pliku 1
'ale jak latwo zauwazyc EOF jest zanegowane
'tzn gdy ma wartosc 0(czyli przez caly czas)
'wyrazenie not Eof ma wartosc 1 czyli petla wykonuje sie dalej
'Gdy osiagnie koniec pliku eof przyjmuje wartosc 1
'a wyrazenie not eof wartosc 0 i w tym momencie petla juz nie jest wykonywana
do while not eof(1)
'Wczytuje jedna linie tekstu z pliku do zmiennej text
line input #1, Text
'Dodaje zawartosc text do listy
List.addItem Text
'powtarza petle
loop
'zamyka plik
close #1
'Wystarczy ze gorna czesc podwiesisz sobie pod jeden przycisk a dolna pod drugi i gotowe zapis i odczyt z i do listy gotowy!!!

[Post edytowany dnia 11-11-2002 10:47 przez err404]

11-11-2002 10:41
Pokaż profil err404  Wyślij email do err404        1306176
anonim




Typ: Nie zarejestrowany
jest OK

dzięki błędzie
Wszystko dziala ok.

11-11-2002 19:01
  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1