PASCAL - jak odczytać dane z pliku i wyświetlić na ekranie?

Question

Witam!

Nie mam za wiele pojęcia o Pascalu ale muszę napisać program który wczyta i potem odczyta (wypisze na ekranie) dane z pliku:

Część dotyczącą zapisu w zaszadzie mam zakończoną. Nie wiem niestety jak odczytać dane. Chciałbym żeby program zapytał "czy odczytać dane z pliku" - jeśli tak to odczyt. Jeśli nie to koniec programu. Czy możecie mi pomóc? (podać ten kawałek kodu z małym wytłumaczeniem)

mietekn · Answer

Odsyłam do lektury: .

Albert486 · Answer

Proszę bardzo:

Program Odzczyt;

uses
crt;

var
plik : Text;          {zmienna pliku}
wiersz : String;
znak : Char;

begin
ClrScr;           {czyszczenie ekranu}
writeln ('Czy odcvzytac plik? (T/N)');

znak := ReadKey; {Czytanie znaku}
if Znak = 't' then    {Warunek czy ma odczytac plik}
begin 

Assign (Plik, 'c:\plik.txt');       
Reset (plik);

while not eof (plik) do      {Powtarzaj pętle do konca pliku}
begin

readln (plik, Wiersz);
writeln (Wiersz);

end;

end 

readln;
Close (plik);

else
Exit;
end.

Kod proszę umieszczać w znacznikach code - krzychoocpp

Aaron21 · Answer

Wielkie dzięki Albert!! Jeszcze tylko jeden mały mankament. dopisałem sobie linijke żeby ładnie wyglądało: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka writeln('ZAWARTOŚĆ PLIKU:  ');  chciałbym żeby ta linijka pojawiła się przed wyświetleniem zawartości pliku. Niestety na razie pojawia mi się przed każdą nową linijką.. jak to zmienić: Na razie mój kod wygląda tak: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka {....} while not eof(plik) do begin readln(plik,wiersz); writeln('ZAWARTOŚĆ PLIKU:  ');  writeln(wiersz); end; readln; close(plik); exit; end; end. Czy można jakoś zrobić żeby wyświetlane dane były oddzielone np. przecinkiem albo były wypisane np w formie: Imie1: {tutaj wprowadzone imie1} Nazwisko1: {tutaj wprowadzone nazwisko1} itd. ?? Na razie wszystko wyświetla mi się w jednej linijce oddzielone spacją..

mietekn · Answer

I tak to jest gdy zamiast wędki daje się ryby. Poczytaj w helpach o write, writeln itp a sam dojdziesz ( ).

Aaron21 · Answer

kolego.. przeczytałem już wiele takich stron..i jak widzisz kombinuje cały czas ale nie wszystko mi wychodzi.. na tych stronach zazwyczaj są omówione poszczególne funkcje, albo skrawki kodów, a ja nie zawsze wiem co dokładnie oznaczają i gdzie dokładnie je wstawić.. wydaje mi się że forum jest po to by szukać na nim pomocy.. Nie wszystko jest zrozumiałe od razu a ja wole np. jak mi ktoś wytłumaczy na jakimś konkretnym przykładzie..co mi po tym że czytam jakieś zadanie gdzie jest użyta interesująca mnie funkcja jak połowy z tego co tam jeszcze dołączyli nie rozumiem..idąc Twoim tokiem myślenia równie dobrze można by zrobić odnośnik: = www.google.pl (i przeglądaj sobie miliony stron - nie zawsze na temat) Także bardzo proszę.. WYROZUMIAŁOŚCI... Dziękuje!

Albert486 · Answer

Po prostu musisz writeln ('ZAWARTOSC PLIKU: '); wstawic przed pętlą while not eof (plik); czyli tak: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka {...} writeln ('ZAWARTOSC PLIKU: '); while not eof (plik) do begin readln (plik, wiersz); writeln (wiersz); {...} Jeśli chcesz po przecinku to tak: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka {...} writeln ('ZAWARTOSC PLIKU: '); while not eof (plik) do begin readln (plik, wiersz); write (wiersz,', ');              {

Aaron21 · Answer

to musiałbym przerobić aktualny program czy napisać nowy który by zapisał tablice do pliku?

Albert486 · Answer

Musiał byś trochę zmodyfikowac. Umieszczam ci program zapisujący tablicę do pliku + źródło z komentarzami. Jak będziesz miał jakieś pytania jeszcze to możesz pisac mi na GG lub email

PASCAL - jak odczytać dane z pliku i wyświetlić na ekranie?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Podsumowanie tematu