Нумерация строк в txt файле

@Pentium5 · Регистрация: 03.10.2011

Студворк — интернет-сервис помощи студентам

Здравия всем!
Нужно исправить цикл программы, который обрабатывает заданный текстовый файл.
Шаблон программы уже есть. Ввёл для нумерации переменную "к", значение присвоил, в цикл прописал. Собственно, нужна помощь "всунуть" в данный цикл эту самую переменную "к", чтобы выводилось её значение как номер строки. Куда тока не сувал её, выводило либо просто "к", либо вообще ничего.
Спасибо!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
 
   k:=1;
  while (not EOF (InpFile)) do
      begin
            readln(InpFile, InputString);
            OutputString:=InputString;
            writeln( OutputString);
            OutputString:='"' + Outputstring + '"';
            writeln(OutputString);
            Writeln(OutFile, Outputstring);
            k:=k+1;
      end;

P.S: Или как-то можно по другому нумеровать строки?

Добавлено через 37 минут
Номер строки должен быть вначале строки

@qualls · 16.02.2012, 04:18

Pascal
1
2
3
4
5
6
7
8
9
10
k:=1;
 while (not EOF (InpFile)) do begin
  readln(InpFile, InputString);
  OutputString:=InputString;
  writeln( OutputString);
  OutputString:=k+' ' + Outputstring;
  writeln(OutputString);
  Writeln(OutFile, Outputstring);
  k:=k+1;
 end;

@Pentium5 · 16.02.2012, 22:34 **[ТС]**

Спасибо, но у меня теперь показывает ошибку "Type mismatch" у 2ого "+". "OutputString" у меня тип String. Вроде бы все должно работать.

@qualls · 17.02.2012, 12:54

Написал не проверил, К- integer, надо конвертировать.

Pascal
1
2
3
4
5
Program ...;
uses SysUtils;
...
 
OutputString:=IntToStr(k)+' ' + Outputstring;

@Pentium5 · 17.02.2012, 14:38 **[ТС]**

Error 15: File not found <SYSUTILS.TPU>.
Могу ошибаться, но в Паскале нету таких операций, это в Делфи.
Спасибо.

@Pentium5 · 18.02.2012, 18:18 **[ТС]**

Outputstring у меня тип String
k:integer
получается что нельзя их применить вместе. другой тип для "k" кроме как числовой не подходит. "outputstring" менял на char, не помогло. Получатся, что мой метод неверный.

@SuPeR XaKer · 18.02.2012, 20:00

Pentium5, в текстовом файле должны строки пронумерованы быть или при выводе на экран? пример можете показать?

@Pentium5 · 18.02.2012, 21:25 **[ТС]**

В программу вести txt файл, сделать обработку и результат обработки вывести в другом txt файле. В файле вывода(output) повторить содержание файле ввода(input), но вначале каждой строки всунуть её номер(пронумеровывать строки).

Пример:
Изначальный файл "Input.txt":
aaaaaa
bbbbbb
cccccc
dddddd

txt файл, который получается в результате действий программы: "Output.txt":
1 aaaaaa
2 bbbbbb
3 cccccc
4 dddddd

Пример программы уже есть. Необходимо только изменить её для своего задания (то есть цикл обработки программы).
Спасибо.

@SuPeR XaKer · 18.02.2012, 21:32

Pentium5, дайте код полный того фрагмента который вы в первом посте показали. Хотя не надо:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses CRT;
 Var InpFile,OutFile:text;
     InputString:string;
     k:byte;
begin
Assign(InpFile,'D:\matrix.txt');
Assign(OutFile,'D:\matrix2.txt');
reset(InpFile);
rewrite(OutFile);
k:=0;
while (not EOF (InpFile)) do
 begin
  inc(k);
  readln(InpFile, InputString);
  writeln(InputString);
  Writeln(OutFile,k,' ',InputString);
 end;
Close(OutFile);
Close(InpFile);
readln;
end.

Проверяйте. Имена файлов только смените.

@Pentium5 · 18.02.2012, 21:56 **[ТС]**

Спасибо! Всё работает!

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Pentium5 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 60
	16.02.2012, 22:34 [ТС]
	Спасибо, но у меня теперь показывает ошибку "Type mismatch" у 2ого "+". "OutputString" у меня тип String. Вроде бы все должно работать. 0

@Pentium5 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 60
	17.02.2012, 14:38 [ТС]
	Error 15: File not found <SYSUTILS.TPU>. Могу ошибаться, но в Паскале нету таких операций, это в Делфи. Спасибо. 0

@Pentium5 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 60
	18.02.2012, 18:18 [ТС]
	Outputstring у меня тип String k:integer получается что нельзя их применить вместе. другой тип для "k" кроме как числовой не подходит. "outputstring" менял на char, не помогло. Получатся, что мой метод неверный. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,875
	18.02.2012, 20:00
	Pentium5, в текстовом файле должны строки пронумерованы быть или при выводе на экран? пример можете показать? 1

@Pentium5 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 60
	18.02.2012, 21:25 [ТС]
	В программу вести txt файл, сделать обработку и результат обработки вывести в другом txt файле. В файле вывода(output) повторить содержание файле ввода(input), но вначале каждой строки всунуть её номер(пронумеровывать строки). Пример: Изначальный файл "Input.txt": aaaaaa bbbbbb cccccc dddddd txt файл, который получается в результате действий программы: "Output.txt": 1 aaaaaa 2 bbbbbb 3 cccccc 4 dddddd Пример программы уже есть. Необходимо только изменить её для своего задания (то есть цикл обработки программы). Спасибо. 0

@Pentium5 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 60
	18.02.2012, 21:56 [ТС]
	Спасибо! Всё работает! 0