Программа для нумерации строк файла

@jestero · Регистрация: 17.02.2014

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

Строки исходного файла должны
копироваться в конечный файл с добавлением перед каждой строкой её номера.

Как реализовывается добавление номеров строк? Как то через цикл?

@Difaust · 02.02.2016, 16:02

Да, через цикл

@Puporev · 02.02.2016, 16:07

Pascal

k:=0;
while not eof(f) do
 begin
  readln(f,s);
  inc(k);
  writeln(g,k,'. ',s);
 end;

@Difaust · 02.02.2016, 16:34

Сообщение от Puporev

Pascal

1
2
3

while not eof(f) do
*begin
* readln(f,s)

;

У меня подобная вещь длится бесконечно, из-за eof он переписывает пустые строки, в то время когда с тектом всего 4 строки. В паскале не силён, но в c# делал просто: while(f.ReadLine !=""), а как здесь это реализовать?

@Puporev · 02.02.2016, 16:37

А зачем в файле пустые строки в конце?

Добавлено через 48 секунд

Сообщение от Difaust

подобная вещь длится бесконечно

Это сколько же пустых строк до конца файла?

@Difaust · 02.02.2016, 16:44

В общем вот содержимое файла:

Bash

id5344
second
third
4th
5th

Вот код:

Pascal

  while not eof (text) do
  begin
    read(text,s1);
    writeln(s1,i);
    i:= i+1;    
  end;

И вот такой вывод почему-то:

Bash

И там далее и там далеко далеко числа идут..
Почему нету остальных строк а только цифры?
И почему цифры с пустыми строками?
А так цифры до 10000 доходили, дальше я уже останавливал

Добавлено через 1 минуту
А нет, вместо read(text,s1); использовал readln(text,s1); и заработало как надо

@Puporev · 02.02.2016, 16:45

Сообщение от Difaust

read(text,s1);

Я разве так писал? Ты что собрался читать строки или символы?

@Difaust · 02.02.2016, 16:46

Да не, я только решил поизучать паскаль и вот первое, что нашёл в интернете начал пробовать..

@Cyborg Drone · 02.02.2016, 17:00

И ещё. Никак нельзя для текстового файла читать и писать в один и тот же файл, поскольку текстовый файл является файлом с последовательным доступом.

Добавлено через 1 минуту

Сообщение от Difaust

и заработало как надо

Сомневаюсь.

@Puporev · 02.02.2016, 17:02

Сообщение от Cyborg Drone

Сомневаюсь.

Почему? Он же

Сообщение от Difaust

вместо read(text,s1); использовал readln(text,s1);

@Cyborg Drone · 02.02.2016, 17:09

Для текстового файла необходимо использовать дополнительный файл:

Pascal

const fn = 'test.txt';
      ft = 'temp.tmp';
 
var f, g: text;
    s: string;
    k: integer;
 
begin
  assign(f, fn);
  reset(f);
  assign(g, ft);
  rewrite(g);
  k := 0;
  while not eof(f) do
    begin
      readln(f, s);
      inc(k);
      writeln(g, k, '. ', s)
    end;
  close(f);
  close(g);
  erase(f);
  rename(g, fn)
end.

Можно, конечно, объявить текстовый файл как типизированный (символьный), тогда возможно обойтись и без дополнительного файла. Поскольку для типизированного файла допустимо как чтение, так и запись при любом режиме открытия файла.

@Puporev · 02.02.2016, 17:12

А у меня, что, задница используется?

Pascal

k:=0;
while not eof(f) do
 begin
  readln(f,s);
  inc(k);
  writeln(g,k,'. ',s);
 end;

@Cyborg Drone · 02.02.2016, 17:16

Puporev, показалось, что для ввода и вывода используется одна и та же файловая переменная. Сбило с толку, что

Сообщение от jestero

Строки исходного файла должны копироваться в конечный файл

А в фрагменте - вывод на дисплей, явно не по заданию.

Добавлено через 2 минуты

Сообщение от Puporev

А у меня, что,

Puporev, произошёл парадокс разновременности. Ответы умудрились опередить вопросы.

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	02.02.2016, 17:16	13
	Puporev, показалось, что для ввода и вывода используется одна и та же файловая переменная. Сбило с толку, что Сообщение от jestero Строки исходного файла должны копироваться в конечный файл А в фрагменте - вывод на дисплей, явно не по заданию. Добавлено через 2 минуты Сообщение от Puporev А у меня, что, Puporev, произошёл парадокс разновременности. Ответы умудрились опередить вопросы. 0

@jestero 11 / 11 / 2 Регистрация: 17.02.2014 Сообщений: 947
		1
	Программа для нумерации строк файла 02.02.2016, 15:49. Показов 2083. Ответов 12 Метки нет (Все метки) Строки исходного файла должны копироваться в конечный файл с добавлением перед каждой строкой её номера. Как реализовывается добавление номеров строк? Как то через цикл? 0

@Difaust 115 / 92 / 66 Регистрация: 27.04.2014 Сообщений: 307
	02.02.2016, 16:02	2
	Да, через цикл 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.02.2016, 16:37	5
	А зачем в файле пустые строки в конце? Добавлено через 48 секунд Сообщение от Difaust подобная вещь длится бесконечно Это сколько же пустых строк до конца файла? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.02.2016, 16:45	7
	Сообщение от Difaust read(text,s1); Я разве так писал? Ты что собрался читать строки или символы? 0

@Difaust 115 / 92 / 66 Регистрация: 27.04.2014 Сообщений: 307
	02.02.2016, 16:46	8
	Да не, я только решил поизучать паскаль и вот первое, что нашёл в интернете начал пробовать.. 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	02.02.2016, 17:00	9
	И ещё. Никак нельзя для текстового файла читать и писать в один и тот же файл, поскольку текстовый файл является файлом с последовательным доступом. Добавлено через 1 минуту Сообщение от Difaust и заработало как надо Сомневаюсь. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.02.2016, 17:02	10
	Сообщение от Cyborg Drone Сомневаюсь. Почему? Он же Сообщение от Difaust вместо read(text,s1); использовал readln(text,s1); 0