Переписать строки исходного файла в новый файл, укоротив, длинные строки до 20 символов - PascalABC.NET
Формулировка задачи:
Переписать строки исходного файла в новый файл, укоротив, длинные строки до 20 символов
Решение задачи: «Переписать строки исходного файла в новый файл, укоротив, длинные строки до 20 символов»
textual
Листинг программы
begin
var S := ReadAllLines(ReadLnString('Имя исходного файла:'));
for var i := 0 to S.Count - 1 do
if S[i].Length > 20 then
Delete(S[i], 21, S[i].Length - 20);
WriteAllLines(ReadLnString(' Имя нового файла:'), S);
WriteLn('Готово!');
end.
Объяснение кода листинга программы
- Программа запрашивает у пользователя имя исходного файла и записывает его в переменную
S. - Затем происходит цикл по всем строкам исходного файла.
- Если длина строки больше 20 символов, то программа укорачивает её до 20 символов, удаляя лишние символы с конца строки.
- Укороченные строки записываются в новый файл, имя которого также запрашивается у пользователя.
- После завершения работы программы выводится сообщение
Готово!.