Вставить в конец каждой строки текстового файла число N, равное количеству слов в строке

@rrdn · Регистрация: 11.11.2017

Откорректировать данный текстовый файл Т, вставляя в конец каждой его строки число N, равное количеству слов в строке. Под N отводится 6 позиций.

@Joy · 17.12.2017, 03:47

Pascal

uses System.IO;
begin
  var FileName:=ReadlnString('введите имя файла:');
  if FileExists(FileName) then begin
    &File.AppendAllText(FileName,newline+format('{0,6:D6}',&File.ReadAllLines(FileName).Count));
    WritelnFormat('Файл "{0}" обработан!',FileName);
  end  
  else WritelnFormat('Файл "{0}" не найден!',FileName);
end.

@volvo · 17.12.2017, 11:23

Joy, не "в конец файла добавить число строк", а "в конец каждой строки добавить число слов в ней". Это разные вещи.

Pascal

uses System.IO;
begin
  var FileName:=ReadlnString('введите имя файла:');
  if FileExists(FileName) then begin
    &File.WriteAllLines(FileName, &File.ReadAllLines(FileName).Select(s -> Format('{0} ({1,6:D6})', s, s.ToWords.Count)));
    WritelnFormat('Файл "{0}" обработан!',FileName);
  end  
  else WritelnFormat('Файл "{0}" не найден!',FileName);
end.

@Joy · 17.12.2017, 18:28

volvo, спасибо, что -то я совсем читать отвык.

@rrdn 0 / 0 / 0 Регистрация: 11.11.2017 Сообщений: 4
		1
	Вставить в конец каждой строки текстового файла число N, равное количеству слов в строке 16.12.2017, 11:04. Просмотров 996. Ответов 3 Метки нет (Все метки) Откорректировать данный текстовый файл Т, вставляя в конец каждой его строки число N, равное количеству слов в строке. Под N отводится 6 позиций. 0

@Joy 2359 / 1278 / 1484 Регистрация: 29.08.2014 Сообщений: 4,602
	17.12.2017, 18:28	4
	volvo, спасибо, что -то я совсем читать отвык. 0

Опции темы

Вставить в конец каждой строки текстового файла число N, равное количеству слов в строке

Решение