Дан текстовый файл f. Удалить из файла все слова, длина которых равна N - PascalABC.NET
Формулировка задачи:
Даны текстовый файл f . Удалить из файла все слова , длина которых равна N.
Добавлено через 3 часа 40 минут
Срочно помогите
Код к задаче: «Дан текстовый файл f. Удалить из файла все слова, длина которых равна N - PascalABC.NET»
uses System.Io;
const n=5;
FileName='r1.txt';
begin
&File.WriteAllText(FileName,Regex.Replace(&File.ReadAllText(FileName,Encoding.Default),
'(\b\w{'+inttostr(n)+','+inttostr(n)+'}\b)',''),Encoding.Default);
end.
12 голосов, оценка 4.417 из 5
СОХРАНИТЬ ССЫЛКУ