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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы