www.techinf1.fora.pl

isar

a wiec na poczatek program robiacy plik i zapisujacy do niego dane:)

program pliki_tekstowe;
var plik: text;
nazwa, linia : string;
begin
writeln('podaj nazwe pliku jaki mam utworzyc');
readln(nazwa);
assign(plik,nazwa);
rewrite(plik);
writeln('ok, zrobilem plik, teraz wprowadz jakis txt do niego');
writeln([kropka zakancza wpisywanie]);
while linia <> '.' do begin
readln(linia);
if linia <> '.' then writeln(plik,linia);
end;

close(plik);
writeln('thx, dane zapisane do pliku : ',nazwa);
readln;
end.

*************************************************************
w klamrach bede pisal o ktorej lini mowie:)

na poczatek wczytujemy nazwe pliku {readln(nazwa);}

podczas dalszych operacji na pliku nie mozemy odwolywac sie do zmiennej 'nazwa' dlatego musimy (najprosciej mowiac) przypisac pod zmienna "plik" nazwe tego pliku. nie jest to przypisywanie ale tak chyba najlatwiej wytlumaczyc(trudniejsza wersja: program nie moze odwolywac sie do nazwy tylko do zmiennej "plik" (nazwa tej zmiennej oczywiscie moze byc dowolna) .) {assign(plik,nazwa)}

otwieramy plik, abysmy mogli do niego wpisywac dane {rewrite(plik);}

petla wprowadzajaca dane do pliku, ktora konczy sie gdy wpiszemy kropke. {while linia <> '.' do begin}

jezeli zmienna linia bedzie zawierac cos innego niz kropke to wpisujemy do otwartego wczesniej pliku dane. jesli zas bedzie kropka to program idzie dalej({ if linia <> '.' then writeln(plik, linia); }

zamyka plik(musimy zamknac plik przed otwarciem nowego.) {close(plik);}

mam nadzieje ze wszystko jest zrozumiale jesli nie , piszcie nizej, bede odpowiadal (na gg tez mozecie pisac)