Отредактировать текст, удаляя из него лишние пробелы. Заключить весь текст в кавычки - 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.