Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/26: Рейтинг темы: голосов - 26, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 63
1

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

17.02.2010, 15:18. Показов 4962. Ответов 5
Метки нет (Все метки)

помогите пожалуйста решить задачу...
условие:дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово
очень надо заранее большое спасибо
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2010, 15:18
Ответы с готовыми решениями:

Дан текстовый файл A.TXT. Найти и вывести на экран строки, содержащие слово PROGRAM
Дан текстовый файл A.TXT. Найти и вывести на экран строки, содержащие слово PROGRAM. Помогите...

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

Дан текстовый файл f. Получите все его строки, содержащие более 20 символов
Дан текстовый файл f. Получите все его строки, содержащие более 20 символов.

Дан текстовый файл. Удалить из него все строки, содержащие указанную подстроку
{$IFDEF FPC} {$MODE DELPHI} {$ENDIF} program primer; const cFileName = 'File.txt'; ...

5
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
17.02.2010, 15:35 2
в новый текстовый файл?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.
0
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 63
17.02.2010, 15:51  [ТС] 3
7 и 8 строка. для них нужно создать два текстовых файла через блокнот. так ведь?
0
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
17.02.2010, 15:55 4
Никуся, 7-я - обязательно, 8-я - нет
0
0 / 0 / 0
Регистрация: 17.02.2010
Сообщений: 63
17.02.2010, 15:57  [ТС] 5
спасибо)))
0
40 / 3 / 2
Регистрация: 08.11.2011
Сообщений: 30
13.12.2011, 15:28 6
А куда куда перетащить текст?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2011, 15:28

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дан текстовый файл и слово. Выведите все строки файла, начинающиеся с заданного слова
Дан текстовый файл и слово. Выведите все строки файла, начинающиеся с заданного слова. ...

Дан текстовый файл f и две строки s1 и s2. Получить текстовый файл g заменой ввода в файл f строки s1 на s2
Дан текстовый файл f и две строки s1 и s2. Получить текстовый файл g заменой ввода в файл f строки...

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный
Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в...

Пусть дан текстовый файл. Перенесите в новый файл все строки, содержащие заданное слово
Задание: Пусть дан текстовый файл. Перенесите в новый файл все строки, содержащие заданное слово. ...

Дан текстовый файл. Перенести в новый файл все текстовые строки, не содержащие заданного слова.
нужна помощь. нужно написать на php это задание. я не знаю как. помогите пожалуйста, срочно. Вот...

Дан текстовый файл F. Переписать в другой файл G все строки, содержащие цифры.
народ помогите сессия началась, задачи не могу сделать на С+ в билдере в консоле, не научился пока...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.