Menu , prace s textovymi soubory - závěrečná práce , nevim si rady :( – Pascal – Fórum – Programujte.com

Zdravim , chtěl bych se zeptat jestli by byl někdo schopny vytvořit program kde bude menu , které bude obsahovat otevření textového souboru , zápis do něho zjištění počtu slov v tom textu , mám to jako závěrečnou práci :( . Tohle sem zatim udělal .

program soubory;

uses crt;

procedure Menu;

Begin

clrscr;

textcolor(yellow);

writeln(' ...::HLAVNI MENU::... ');

writeln('');

textcolor(white);

writeln(' Stiskni "c"...k otevreni textoveho souboru ');

writeln(' Stiskni "o"...k ');

writeln('');

writeln('');

write(' Stiskni "x"...pro konec');

end;

procedure Soubor;

Var f: text;

s:string;

begin

ClrScr;

textcolor(red);

writeln(' Zadejte cestu k souboru :');

writeln('');

textcolor(white);

readln(s);

assign(f,s);

reset (f);

while not Eof (f) do

begin

textcolor(yellow);

readln(f,s);

writeln('');

writeln(s);

end;

textcolor(white);

writeln('');

writeln(' ...........Stisknete libovolnou klavesu pro navrat do menu..........');

readkey;

end;

procedure zpracovani;



end;

var c:char;

Begin

repeat

menu;

C:=readkey;

case c of

'c','C':soubor;

'o','O':zpracovani;

end;

until c='x';

end.

Otevřeš ho pro zápis procedurou Rewrite (nebo Append, pokud chceš připisovat na konec) a píšeš do něj přes Write a Writeln stejným způsobem, jako kdybys psal na obrazovku. Jenom ještě přidej jako první parametr ten soubor, podobně jako při čtení.

To Mircosoft : Nebyl bys tak hodny a napsal mi to prosim ? jinak diky za odpoved


Edit : uz sem na to prisel , dik moc