Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 11.11.2017
Сообщений: 4
1

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

16.12.2017, 11:04. Просмотров 996. Ответов 3
Метки нет (Все метки)


Откорректировать данный текстовый файл Т, вставляя в конец каждой его строки число N, равное количеству слов в строке. Под N отводится 6 позиций.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2017, 11:04
Ответы с готовыми решениями:

Создайте типизированный файл, в котором каждой строке текстового файла соответствует число, равное количеству
2, Задан текстовый файл f1, содержащий произвольный текст. Создайте типи-зированный файл f2 целых...

Создайте файл целых чисел, в котором каждой строке исходного файла соответствует в выходном файле число, равное количеству слов в строке
Пусть дан текстовый файл. Создайте файл целых чисел, в котором каждой строке исходного файла...

Создать текстовый файл f2, в котором в каждой строке стоит число, равное числу слов каждой строки файла f1
Пусть дан текстовый файл f1. Создайте текстовый файл f2, в котором каж- дой строке стоит число,...

Записать в конец каждой строки текстового файла количество слов в этой строке
Начинаю писать программы в Паскале, можете помочь с этой задачей? "Записать в конец каждой строки...

3
Эксперт Pascal/Delphi
2359 / 1278 / 1484
Регистрация: 29.08.2014
Сообщений: 4,602
17.12.2017, 03:47 2
Pascal
1
2
3
4
5
6
7
8
9
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.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30869 / 20190 / 7875
Регистрация: 22.10.2011
Сообщений: 35,051
Записей в блоге: 6
17.12.2017, 11:23 3
Лучший ответ Сообщение было отмечено Joy как решение

Решение

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

Pascal
1
2
3
4
5
6
7
8
9
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.
1
Эксперт Pascal/Delphi
2359 / 1278 / 1484
Регистрация: 29.08.2014
Сообщений: 4,602
17.12.2017, 18:28 4
volvo, спасибо, что -то я совсем читать отвык.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2017, 18:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Создание и обработка файлов. Записать в выходной файл число, равное количеству слов в строке исходного файла
Ребят помогите решить пожалуйста Создайте текстовый файл. Создайте файл целых чисел, в котором...

Перед каждой строкой текстового файла вставить номер строки и количество символов в этой строке
Перед каждой строкой текстового файла вставить номер строки и количество символов в этой строке

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

В конец каждой строки текстового файла дописать количество символов этой строки
Помогите, нужно : "В конец каждой строки текстового файла дописать количество символов этой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.