Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program sorto1;
- {$APPTYPE CONSOLE}
- uses
- SysUtils, Console, DateUtils;
- type typ_rok = ^integer;
- typ_bate = ^byte;
- var
- mie,dzi,god,rok,min: typ_rok;
- liczba, popr_wart:integer;
- wyjscie,nazwa,godzina,czas,aktdata: String;
- plik:text;
- zdarzenie:
- string;
- today: TDateTime;
- napis:char;
- obecny,nowy:text;
- s,ns,wy,s1,ns1,wy1:string;
- i,n,l,ln:integer;
- begin
- repeat
- writeln('Wprowadz nazwe pliku, np. terminarz.txt.');
- readln(nazwa);
- if fileexists(nazwa)=true then
- begin
- clrscr;
- writeln('Wybrano plik ',nazwa,'.');
- popr_wart:=1;
- end
- else
- begin
- clrscr;
- writeln('Plik o nazwie ', nazwa,' nie istnieje. Wpisz ponownie.');
- end;
- until popr_wart=1;
- //----------------------------------//
- popr_wart:=0;
- i:=1;
- assign(nowy, 'cache.txt');
- rewrite(nowy);
- assign(obecny,nazwa);
- reset(obecny);
- l:=0;
- repeat
- begin //liczy linijki
- l:=l+1;
- readln(obecny,s);
- writeln(s);
- read;
- end;
- until eof(obecny);
- writeln(l);
- readln;
- close(obecny);
- assign(obecny,nazwa);
- reset(obecny);
- readln(obecny, s); //pierwszy element
- begin
- while s[i]<>'|' do
- begin //data
- ns:=ns+s[i];
- i:=i+1;
- writeln(ns);
- readln;
- end;
- while i <> length(s)+1 do
- begin //tekst
- wy:=wy+s[i];
- i:=i+1;
- end;
- end;
- writeln(wy);
- writeln(ns);
- readln;
- writeln('koniec'); //koniec pierwszego elementu
- assign(plik,'yoyoyo.txt');
- rewrite(plik);
- write(plik,'elo');
- repeat
- begin
- ns1:='';
- wy1:='';
- i:=1;
- readln(obecny, s1);
- while s1[i]<>'|' do //kolejny element
- begin
- ns1:=ns1+s1[i]; //data elementu
- i:=i+1;
- writeln(ns1);
- readln;
- end;
- while i <> length(s1)+1 do //wydarzenie elementu
- begin
- wy1:=wy1+s1[i];
- i:=i+1;
- end;
- writeln(wy1);
- writeln(ns1);
- readln;
- writeln('koniec elementu'); //koniec drugiego elementu
- l:=l-1;
- writeln(l);
- end;
- if strtodatetime(ns) > strtodatetime(ns1) then
- begin
- writeln('zapisuje do pliku : ');
- writeln(ns1,wy1);
- writeln(nowy,ns1,wy1);
- writeln('zamian');
- if l=1 then writeln(nowy,ns,wy);
- end;
- if strtodatetime(ns) <= strtodatetime(ns1) then
- begin
- writeln('zapisuje do pliku: ');
- if popr_wart=0 then
- begin
- writeln(ns,wy);
- writeln(nowy,ns,wy);
- popr_wart:=1;
- end;
- if popr_wart=1 then
- begin
- writeln(ns1,wy1);
- writeln(nowy,ns1,wy1);
- end;
- writeln('bez zminay');
- end;
- until l=1;
- writeln('koniec');
- readln;
- close(obecny);
- close(nowy);
- close(plik);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement