Удалить из файла повторяющиеся пробелы

@Petrosyan25 · Регистрация: 17.12.2012

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure del(var f:text; var s:string);
var
  n:integer;
begin
     rewrite(f);
     while not (eof(f)) do begin
           while not eoln(f) do begin
                 readln(f,s);
                  repeat
                  n:=pos('  ',s);
                  if n>1 then
                     delete(s,n,1);
                  until n=0;
                     end;
            end;
      close(f);
      end;
begin
     assign(q,'C:\Games\Input.txt');
     del(q,s);
end.

@Puporev · 17.12.2012, 19:16

rewrite(f);
открывают файл
reset(f);

@Petrosyan25 · 17.12.2012, 19:21 **[ТС]**

Я же на запись по сути открываю или как?

@Puporev · 17.12.2012, 19:28

Сообщение от Petrosyan25

же на запись по сути открываю или как?

С бугра виднее....

@Petrosyan25 · 17.12.2012, 19:55 **[ТС]**

Напишите ваш вариант пожалуйста))

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.12.2012, 19:16
	rewrite(f); открывают файл reset(f); 0

@Petrosyan25 0 / 0 / 0 Регистрация: 17.12.2012 Сообщений: 5
	17.12.2012, 19:21 [ТС]
	Я же на запись по сути открываю или как? 0

@Petrosyan25 0 / 0 / 0 Регистрация: 17.12.2012 Сообщений: 5
	17.12.2012, 19:55 [ТС]
	Напишите ваш вариант пожалуйста)) 0