Поиск слова в текстовом файле. Перезапись в новый файл по правилу

@Djuu · Регистрация: 27.09.2013

Author24 — интернет-сервис помощи студентам

Приветствую.
Ни как не могу решить кое какую задачку. Надеюсь на вашу помошь.
Задача.
Сделать программку которая открывает файл находит опредленное слово COPY и если оно там есть то в новом( в втором файле) при перезаписе нужно поставить 2 пустые строчки перед COPY.

Задачка вроде простая но хоть ты тресни не доперает. Заранее спасибо

Добавлено через 1 час 12 минут
Если задачу плохо обьяснил скажите, попробую уточнить если надо что то.

@Francleene · 23.02.2014, 14:00

Pascal

var s:string;
i:integer;
begin
assign(input,'f1.txt');
reset(input);
assign(output,'f2.txt');
rewrite(output);
read(s);
i:=1;
while length(s)<>0 do begin
if (s[i]='c') and (s[i+1]='o') and (s[i+2]='p') and (s[i+3]='y') then begin
write(#13#10,#13#10);
delete(s,i,4);
end
else begin
write(s[i])
inc(i);
end;
end;
end.

@Djuu 0 / 0 / 0 Регистрация: 27.09.2013 Сообщений: 11
		1
	Поиск слова в текстовом файле. Перезапись в новый файл по правилу 23.02.2014, 12:43. Показов 1257. Ответов 1 Метки нет (Все метки) Приветствую. Ни как не могу решить кое какую задачку. Надеюсь на вашу помошь. Задача. Сделать программку которая открывает файл находит опредленное слово COPY и если оно там есть то в новом( в втором файле) при перезаписе нужно поставить 2 пустые строчки перед COPY. Задачка вроде простая но хоть ты тресни не доперает. Заранее спасибо Добавлено через 1 час 12 минут Если задачу плохо обьяснил скажите, попробую уточнить если надо что то. 0

	23.02.2014, 14:00

Поиск слова в текстовом файле. Перезапись в новый файл по правилу

Решение