{ PUMPSUB.PAS Copyright (c) TrSek alias Zdeno Sekerak } { Su dane dva textove subory f1 a f2. Zapiste prvky suboru f1 zo } { zachovanim poradia hodnot do suboru f2 na koniec a prvky suboru } { f2 na koniec suboru f1. Je mozne pouzit pomocny subor. } { } { Datum:23.05.2004 http://www.trsek.com } program pump_file; var f:text; meno1,meno2,meno3:string; { procedura na koniec suboru meno2 pripoji subor meno1 } procedure Pripoj(meno1,meno2:string); var slovo:string; f,g:text; begin Assign(f,meno1); Assign(g,meno2); ReSet(f); Append(g); { presun sa na koniec } while(not(Eof(f))) do begin ReadLn(f,slovo); WriteLn(g,slovo); end; { zavrieme } Close(f); Close(g); end; begin WriteLn('Pripojim subor 1 na koniec suboru 2 a naopak.'); Write('Zadaj meno prveho suboru:'); ReadLn(meno1); Write('Zadaj meno druheho suboru:'); ReadLn(meno2); { nazov tmp suboru } meno3:='tmp.$$$'; { zmazeme tmp suboru } Assign(f,meno3); ReWrite(f); Close(f); Pripoj(meno1,meno3); Pripoj(meno2,meno1); Pripoj(meno3,meno2); { zmazem meno3 } Assign(f,meno3); Erase(f); WriteLn('Hotovo'); ReadLn; end.