Отредактировать текст, удаляя из него лишние пробелы. Заключить весь текст в кавычки

@Pr0 · Регистрация: 15.06.2015

Всем здравствуйте. Выручайте делаю лабораторные и вот такая задача: Отредактировать текст, удаляя из него лишние пробелы. заключить весь текст в кавычки

@JuriiMW · 15.06.2015, 10:58

Pascal

const
  fromName = 'Война и мир. Том 1-4.txt';
  toName   = 'Война и мир. Том 1-4 (correct).txt';
  Enc      = Encoding.Default;
begin
  var S := System.IO.File.ReadAllText(fromName, Enc);
  var L : Integer;
  repeat
    L := S.Length;
    S := S.Replace(#32#32, #32);
  until L = S.Length;
  System.IO.File.WriteAllText(toName, '"' + S + '"', Enc);
end.

Сжалось с размера 3 277 533 байт до 3 085 858 ;–)

P.S. Лев Николаевич бы умер со стыда за такое:
„Выручайте делаю лабораторные и вот такая задача“

@Pr0 0 / 0 / 0 Регистрация: 15.06.2015 Сообщений: 1
		1
	Отредактировать текст, удаляя из него лишние пробелы. Заключить весь текст в кавычки 15.06.2015, 10:06. Просмотров 1335. Ответов 1 Метки нет (Все метки) Всем здравствуйте. Выручайте делаю лабораторные и вот такая задача: Отредактировать текст, удаляя из него лишние пробелы. заключить весь текст в кавычки 0

Опции темы

Отредактировать текст, удаляя из него лишние пробелы. Заключить весь текст в кавычки

Решение