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

@Никуся · Регистрация: 17.02.2010

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

помогите пожалуйста решить задачу...
условие:дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово
очень надо

заранее большое спасибо

@Vladiator · 17.02.2010, 15:35

в новый текстовый файл?

Pascal

var
 s,i:string;
 f,g:text;
begin
 write('Слово: ');
 readln(i);
 assign(f,'in.txt');
 assign(g,'out.txt');
 reset(f);
 rewrite(g);
 while not (Eof(f)) do begin
  readln(f,s);
  if pos(i,s)<>0 then writeln(g,s);
 end;
 close(f);
 close(g);
end.

@Никуся · 17.02.2010, 15:51 **[ТС]**

7 и 8 строка. для них нужно создать два текстовых файла через блокнот. так ведь?

@Vladiator · 17.02.2010, 15:55

Никуся, 7-я - обязательно, 8-я - нет

@Никуся · 17.02.2010, 15:57 **[ТС]**

спасибо)))

@a1nur · 13.12.2011, 15:28

А куда куда перетащить текст?

@Никуся 0 / 0 / 0 Регистрация: 17.02.2010 Сообщений: 63
		1
	дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово 17.02.2010, 15:18. Показов 6201. Ответов 5 Метки нет (Все метки) помогите пожалуйста решить задачу... условие:дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово очень надо заранее большое спасибо 0

@Никуся 0 / 0 / 0 Регистрация: 17.02.2010 Сообщений: 63
	17.02.2010, 15:51 [ТС]	3
	7 и 8 строка. для них нужно создать два текстовых файла через блокнот. так ведь? 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	17.02.2010, 15:55	4
	Никуся, 7-я - обязательно, 8-я - нет 0

@Никуся 0 / 0 / 0 Регистрация: 17.02.2010 Сообщений: 63
	17.02.2010, 15:57 [ТС]	5
	спасибо))) 0

@a1nur 40 / 3 / 2 Регистрация: 08.11.2011 Сообщений: 30
	13.12.2011, 15:28	6
	А куда куда перетащить текст? 0

Опции темы