Как найти строку в текстовом файле?
Рассмотрим простейший способ поиска строки в текстовом файле с помощью READLN и прямого сравнения строк, либо нахождения подстроки в строке.
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.