Нужно удалить все лишние пробелы в текстовом файле

@akademochka · Регистрация: 06.11.2011

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

во всем(не только в строке)
Если через RichEdit. Помогите пожалуйста, везде есть решение для строки, а вот для всего текста я додуматься не могу

@Alex_pac · 04.10.2012, 01:50

а вот для всего текста я додуматься не могу

Delphi

var s: TStringList; i:integer;
begin
s:=TStringList.Create;
s.LoadFromFile('%ВашФайл%');
for i:=0 to s.count-1 do 
  s[i]:=trim(s[i]):
s.SaveToFile('%ВашФайл%');
s.free;
end;

@akademochka · 04.10.2012, 16:06 **[ТС]**

Это не то, что нужно. Имеется в виду, что в любом файле, который можно открыть в текстовом редакторе

Одиночка · 05.10.2012, 17:43

А чего вас не устраивает код Alex_pac. Там открывается текстовый файл и потом в каждой строке удаляются начальные и конечные пробелы. После чего файл записывается на диск.
Формулируйте тогда вопрос по другому.

@igoriy · 05.10.2012, 18:24

Что есть

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

лишние пробелы

@akademochka 0 / 0 / 0 Регистрация: 06.11.2011 Сообщений: 17
		1
	Нужно удалить все лишние пробелы в текстовом файле 04.10.2012, 01:32. Показов 2757. Ответов 4 Метки нет (Все метки) во всем(не только в строке) Если через RichEdit. Помогите пожалуйста, везде есть решение для строки, а вот для всего текста я додуматься не могу 0

@akademochka 0 / 0 / 0 Регистрация: 06.11.2011 Сообщений: 17
	04.10.2012, 16:06 [ТС]	3
	Это не то, что нужно. Имеется в виду, что в любом файле, который можно открыть в текстовом редакторе 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	05.10.2012, 17:43	4
	А чего вас не устраивает код Alex_pac. Там открывается текстовый файл и потом в каждой строке удаляются начальные и конечные пробелы. После чего файл записывается на диск. Формулируйте тогда вопрос по другому. 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	05.10.2012, 18:24	5
	Что есть Сообщение от akademochka лишние пробелы 0