Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
23 / 23 / 12
Регистрация: 27.12.2011
Сообщений: 855
1

Удалить из файла все лишние пробелы, оставив между словами не более одного пробела

08.01.2012, 17:47. Просмотров 891. Ответов 1
Метки нет (Все метки)


Доброго времени суток.
Помогите пожалуйста решить задачу:
Дан текстовый файл. Удалить из него все лишние пробелы, оставив между словами не более одного пробела. Результат поместить в новый файл.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2012, 17:47
Ответы с готовыми решениями:

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Почетный модератор
7955 / 3926 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
08.01.2012, 19:29 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

если не запрещено использовать вспомогательную строку...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
 s,sn:string;
 f,g:text;
 i:integer;
 
 begin
 assign(f,'C:\in.txt');
 assign(g,'C:\out.txt');
 reset(f);
 rewrite(g);
 while not (Eof(f)) do
       begin
       readln(f,s);
       sn:='';
       for i:=1 to length(s) do
           if (s[i]=' ') and (s[i+1]=' ') then
              else sn:=sn+s[i];
      writeln(g,sn);
 end;
 close(f);
 close(g);
 end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2012, 19:29

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

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

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

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

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


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

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

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