0 / 0 / 0
Регистрация: 20.11.2015
Сообщений: 4
1

Переписать в другой текстовый файл строки исходного файла, кроме непустых строк, начинающихся с точки

06.01.2016, 16:54. Показов 2047. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан текстовый файл. Необходимо переписать в другой текстовый файл его содержимое,
кроме непустых строк, начинающихся с точки.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program s_2_2;
var
    SInFileName, SOutFileName, S: string;
    FIn, FOut: Text;
begin
    {    Ввод имён файлов       }
    Write('Имя входного файла: ');
    ReadLn(SInFileName);
    Write('Имя выходного файла: ');
    ReadLn(SOutFileName);
    {    Открытие файлов на чтение и запись   }
    Assign(FIn, SInFileName);
    Reset(FIn);
    Assign(FOut, SOutFileName);
  Rewrite(FOut);
  {    Копирование содержимого файла        }
  while not EOF(FIn) do          { пока не достигнут конец файла }
  begin
      ReadLn(FIn, S);            { чтение строки, пропуск перевода }
      if S <> '' then            { если считанная строка не пустая, }
        WriteLn(FOut, S)         { вывод строки и перевода строки }
  end;                           { while not EOF(FIn) }
  {    Закрытие файлов     }
  Close(FIn);
  Close(FOut)
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2016, 16:54
Ответы с готовыми решениями:

Переписать из исходного файла четные строки в другой файл
Ребята, помогите пожалуйста!!! 1. Напишите программу, которая формирует текстовый файл на диске,...

Переписать в другой файл строки исходного файла, в которых нет пробелов
Создать в редакторе текстовый файл, внести в него несколько строк произвольного текста. Разработать...

Переписать в другой файл строки исходного файла, в которых встречается заданный слог
Нужна помощь! Не получается сделать программу,которая формирует другой файл, в который переписывает...

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

2
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
06.01.2016, 18:34 2
Лучший ответ Сообщение было отмечено StepaDenisovich как решение

Решение

Pascal
1
2
3
4
5
6
while not EOF(FIn) do          { пока не достигнут конец файла }
  begin
      ReadLn(FIn, S);            { чтение строки, пропуск перевода }
      if S[1] <> '.' then            { если первый символ не точка }
        WriteLn(FOut, S)         { вывод строки и перевода строки }
  end;
1
0 / 0 / 0
Регистрация: 20.11.2015
Сообщений: 4
06.01.2016, 18:39  [ТС] 3
Спасибо, всё работает
0
06.01.2016, 18:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2016, 18:39
Помогаю со студенческими работами здесь

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

Из исходного текстового файла все повторяющиеся слова переписать в другой файл удалив их из исходного
из исходного текстового файла все повторяющиеся слова переписать в другой файл удалив их из...

Дано текстовый файл f, разбитый на строки. Переписать в файл g все строки из f, кроме пустых
Выполнение задания предусматривает предыдущее создание файла на диске с помощью программы (файл...

Переписать строки файла в другой файл, указывая номер строк
Дан текстовый файл (10-15 строк). Из него создать другой текстовый файл, в котором перед каждой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru