> Мир твоему дому Alex.

 Однажды 14 Dec 97 18:01, Alex Dmitrievskiy писал к Alexander Averbuh, а я
вмешался:
 AD>  А как в текстовом файле найти стpокy ?

2All - уууу... Это надолго...

{ Hайти строку }
var t:text; s,s1:string;
    count:word;
begin
  readln(s); { Вводим строку для поиска }
  assign(t,'text.txt');reset(t);
  s1:=''; count:=0;
  while not eof(t) and (s<>s1) do begin
    readln(t,s1); inc(count);
  end;
  writeln('искомая строка является ',count,' строкой в файле');
  close(t);
end.

{ Hайти подстроку (слово) }
var 
  t:text; 
  s,s1:string;
  count:word;
begin
  readln(s); {вводим подстроку}
  assign(t,'text.txt'); reset(t);
  s1:=''; count:=0;
  while not eof(t) and (pos(s,s1)=0) do begin
    readln(t,s1);
    inc(count);
  end;
  writeln('буквосочетание "',s,'" найдено в строке N ',count,':');
  writeln(s1);
  close(t);
end.

> With best wishes and regards.
ћ Как мало программ остается в первоначальном виде. Так давайте слать
  исходники, чтоб проще было их изменять. :)

--- [Hedgehog House] Phone: +7-3422-622044  Work Time: 00:00 - 07:30 Local
 * Origin: Это не GoldEd. Это примочка к Д00Му для написания писем. (2:5054/26)