Текстовый файл. В новый файл поместить те строки файла, которые содержат заданное слово

01.06.2012, 15:52. **Показов** 2435. **Ответов** 1

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

Дан текстовый файл и некоторое слово. В новый файл поместить те строки файла, которые содержат данное слово.

помогите пожалуйста!!!!

@КонецСвета · 03.06.2012, 02:41

Pascal

uses crt;
var f,g: text;
    s,sl: string;
 
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f); rewrite(g);
write('Слово: '); readln(sl);
while not (eof(f)) do
      begin
      readln(f,s);
      if (pos(' '+sl+' ',s)<>0)
         or (copy(s,1,length(sl)+1)=sl+' ')
            or (copy(s,length(s)-length(sl),length(sl)+1)=' '+sl)
               then writeln(g,s);
      end;
close(f);
close(g);
end.

JIy4ik
		1
	Текстовый файл. В новый файл поместить те строки файла, которые содержат заданное слово 01.06.2012, 15:52. Показов 2435. Ответов 1 Метки нет (Все метки) Дан текстовый файл и некоторое слово. В новый файл поместить те строки файла, которые содержат данное слово. помогите пожалуйста!!!!

	03.06.2012, 02:41

Опции темы

Текстовый файл. В новый файл поместить те строки файла, которые содержат заданное слово

Решение