Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
6 / 6 / 0
Регистрация: 31.05.2011
Сообщений: 81
1

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

26.12.2011, 14:32. Просмотров 1201. Ответов 2
Метки нет (Все метки)


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

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
Goldeeeeeeen !
243 / 235 / 186
Регистрация: 15.10.2011
Сообщений: 457
26.12.2011, 16:47 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var l1,l2:file of string;
    i:integer; s,sn:string;
begin
assign(l1,'l1.txt'); rewrite(l1);
assign(l2,'l2.txt'); rewrite(l2);
write('s= ');
readln(s); write(l1,s);
sn:='';
for i:=1 to length(s)-2 do
    if (s[i]=' ') and (s[i+1]=' ')
       then sn:=sn else sn:=sn+s[i];
write('s= ',sn);
write(l2,s);
close(l1); close(l2);
end.
1
6 / 6 / 0
Регистрация: 31.05.2011
Сообщений: 81
26.12.2011, 17:32  [ТС] 3
Спасибо выручил!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2011, 17:32

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

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

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

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

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


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

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

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