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