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

Чтение из одного текстового файла и копирование на другой текстового файл с заменой пробелов на "_"

09.06.2017, 00:50. Показов 1305. Ответов 1
Метки нет (Все метки)

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
27
var
  f, g: text;
  s: string;
 
function ChangeChar(s: string): string;
var
  i: integer;
begin
  for i := 1 to length(s) do
    if s[i] = ' ' then
      s[i] := '_';
  ChangeChar := s;
end;
 
begin
  assign(f, 'in.txt');
  assign(g, 'out.txt');
  reset(f);
  rewrite(g);
  while not eof(f) do
  begin
    readln(f, s);
    writeln(g, ChangeChar(s));
  end;
  close(f);
  close(g);
end.
Это замена "_". Убрать символы несложно. Но я не знаю как сделать пробелы внутри скобок...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2017, 00:50
Ответы с готовыми решениями:

Чтение из одного текстового файла и копирование на другой текстового файл с заменой пробелов на "_"
Здравствуйте, помогите пожалуйста с паскалем. Надо прочитать текстовый файл (в нем строки с именами...

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

Копирование содержимого одного текстового файла в другой
Открытие одного текстового файла и создание другого с записью в него информации с первого открытого...

Чтение из текстового файла и копирование значения в другой текстовый
Здравствуйте, помогите с такой задачей : есть F:\2.txt в нем есть текст с такой строкой: Текущая...

1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
09.06.2017, 10:35 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
function ChangeChar(s: string): string;
var i: integer;
begin
for i := length(s) downto 1 do
if s[i] = ' ' then
 begin
  delete(s,i,1);
  insert('" "',s,i);
 end;
ChangeChar := s;
end;
0
09.06.2017, 10:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2017, 10:35
Помогаю со студенческими работами здесь

Чтение и запись строк с одного текстового файла в другой
Как правильно написать код ,чтобы строки из файла input.txt читались и записывались в текстовый...

Считать слова из одного текстового файла в другой текстовый файл
2.Написать программу, которая считывает слова из одного текстового файла и записывает их в столбик...

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

Копирование текстового файла с заменой пропусков на символ подчеркивания '_'
Подскажите прошу! Написать программу копирования текстового файла с заменой пропусков на символ...

Переписать строки одного текстового файла в том же порядке в другой файл
Имеется текстовый файл. Переписать его строки в другой файл. Порядок во втором файле должен...

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

Ввод элементов массива из одного текстового файла, вывод - в другой текстовый файл
#include <fstream> #include <iostream> #include <cstring> using namespace std; int...


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

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

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