Подсчет количества вхождения строки в текстовом файле
program sch; procedure search(var cnt:integer;var FromF,pattern:string); var bb:byte; begin
bb:=pos(pattern,fromf); while bb<>0 do begin
delete(fromf,pos(pattern,fromf),length(pattern));
cnt:=cnt+1;
bb:=pos(pattern,fromf) end; end; var slovo,tmp:string;
f1:text;
count:integer; begin
readln(slovo);
assign (f1,'File1.txt');
reset(f1); while not eof(f1) do begin
readln(f1,tmp);
search(count,tmp,slovo); end;
writeln(count);
close(f1); end.
Опубликовал Kest
December 03 2009 20:40:51 ·
0 Комментариев ·
9373 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
