home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / communic / tp55 / repltext.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-01  |  1.5 KB  |  64 lines
  1. program repltext;
  2.  
  3. uses crt,extend;
  4.  
  5. var
  6. ch                 :  char;
  7. p                  :  byte;
  8. i,l                :  integer;
  9. sp,fsize           :  longint;
  10. zeile              :  string[255];
  11. inrepl             :  text;
  12. infile             :  file of char;
  13.  
  14. begin
  15.   clrscr;
  16.   if not exist('suchtext.out') then
  17.   begin
  18.     writeln('SUCHTEXT.OUT nicht gefunden...');
  19.     writeln('SUCHTEXT.EXE vorher laufen lassen...');
  20.     halt;
  21.   end;
  22.   assign (inrepl,'suchtext.out');
  23.   reset  (inrepl);
  24.   readln (inrepl,zeile);
  25.   if not exist(zeile) then
  26.   begin
  27.     writeln(zeile,' nicht gefunden...');
  28.     halt;
  29.   end;
  30.   assign (infile,zeile);
  31.   reset  (infile);
  32.  
  33.   while (not eof(inrepl)) do
  34.   begin
  35.     readln (inrepl,zeile);
  36.     if length(zeile) < 9 then exit;
  37.  
  38.     p              := pos('/',zeile);
  39.     val(copy(zeile,1,p-1),sp,i);
  40.     zeile          := copy(zeile,p+1,length(zeile));
  41.  
  42.     p              := pos('/',zeile);
  43.     val(copy(zeile,1,p-1),l,i);
  44.     zeile          := copy(zeile,p+1,length(zeile)-p-1);
  45.  
  46.     writeln(sp:6,l:4,'  "',zeile,'"');
  47.     if l <> length(zeile) then
  48.     begin
  49.       writeln('Zeile hat falsche Länge (Soll=',l,'/Ist=',length(zeile),')...');
  50.       writeln('Zeile wird ignoriert, bitte eine Taste drücken...');
  51.       getkey;
  52.     end
  53.     else
  54.     begin
  55.       seek   (infile,sp);
  56.       for i        := 1 to l do
  57.         write  (infile,zeile[i]);
  58.     end;
  59.   end;
  60.  
  61.   close  (inrepl);
  62.   close  (infile);
  63. end.
  64.