Работа с файлами

[wOOp]

Помогите пжл с задачкой
Дан строковый файл, содержащий даты в формате «день/месяц/год», Создать два файла целых чисел, первый из которых содержит значения месяцев, а второй значения лет для дат из исходного строкового файла (в обратном порядке).
(Pascal)
Заранее спс =)

[BDA]

uses
  CRT;

var
  f1: text;
  f2, f3: file of integer;

procedure reader;
var
  s: string;
  mon, year, code: integer;
begin
  if eof(f1) then
    exit;
  readln(f1, s);
  s := copy(s, pos('/', s) + 1, length(s) - pos('/', s));
  val(copy(s, 1, pos('/', s) - 1), mon, code);
  val(copy(s, pos('/', s) + 1, length(s) - pos('/', s)), year, code);
  reader;
  write(f2, mon);
  write(f3, year);
end;

begin
  assign(f1, 'in.txt');
  assign(f2, 'month.txt');
  assign(f3, 'year.txt');
  reset(f1);
  rewrite(f2);
  rewrite(f3);
  reader;
  close(f1);
  close(f2);
  close(f3);
end.

[Serge_Bliznykov]

BDA, хороший код.
вот только имхо, Вы забыли про

из исходного строкового файла (в обратном порядке).

с этим условием сложность решения данной задачи резко возрастает - ведь текстовые файлы не являются файлами прямого доступа...

[BDA]

Serge_Bliznykov, это условие учтено. Чтение происходит рекурсивно.

[Serge_Bliznykov]

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

Serge_Bliznykov, это условие учтено. Чтение происходит рекурсивно.

Ага. Точно! я проглядел очевидное.
Приношу свои извинения - я был неправ.


И для экономии памяти в стеке я бы рекомендовал описать переменную s так:

var s: string[10];

- всё таки более чем в 20 раз выигрыш в памяти получается.


p.s. кстати, а стек не переполнится, если файлик будет хотя бы 100 кбайтный?! не-не, я понимаю, что задача учебная и что в исходном текстовом файле больше, чем несколько сотен/тысяч записей не предполагается, просто такой теоретический вопрос возник...

[BDA]

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

uses
  CRT;

var
  f1: text;
  f2, f3: file of integer;
  s: string[20];
  mon, year, code, i, tmp: integer;

begin
  assign(f1, 'in.txt');
  assign(f2, 'month.txt');
  assign(f3, 'year.txt');
  reset(f1);
  rewrite(f2);
  rewrite(f3);
  while not eof(f1) do
  begin
    readln(f1, s);
    s := copy(s, pos('/', s) + 1, length(s) - pos('/', s));
    val(copy(s, 1, pos('/', s) - 1), mon, code);
    val(copy(s, pos('/', s) + 1, length(s) - pos('/', s)), year, code);
    write(f2, mon);
    write(f3, year); 
  end;
  code := filesize(f2);
  for i := 0 to code div 2 - 1 do
  begin
    seek(f2, i);
    read(f2, year);
    seek(f2, code - i - 1);
    read(f2, tmp);
    seek(f2, i);
    write(f2, tmp);
    seek(f2, code - i - 1);
    write(f2, year);
  end;
  code := filesize(f3);
  for i := 0 to code div 2 - 1 do
  begin
    seek(f3, i);
    read(f3, mon);
    seek(f3, code - i - 1);
    read(f3, tmp);
    seek(f3, i);
    write(f3, tmp);
    seek(f3, code - i - 1);
    write(f3, mon);
  end;
  close(f1);
  close(f2);
  close(f3);
end.

[Serge_Bliznykov]

Чтобы обойти это ограничение можно сделать так:

Круто! Вы, как я погляжу, не ленитесь!

ну, не стоило писать ещё один вариант решения - вполне достаточно было словами его описать!!!
я же специально в вопросе про стек сказал, что мой вопрос теоретический, и что для учебных целей ВПОЛНЕ подойдёт Ваше решение через рекурсию!!


А автору топика удача попёрла - два разных варианта, на любой вкус!

[wOOp]

Да это точно =)
Только вот проблема, хотя ее следовало ожидать, каракули в текстовиках
можно ли как-нибудь переписать программу что бы файлы создавались, и выводился рез-т работы в самой программе?

[BDA]

Да тут куча способов:
1) можете после проделывания всех операций считать заново файлы с месяцами и годами и напечатать их на экран (для 2 программы)
2) можете дополнительно выводить на экран (в 1 программе):
вместо

write(f2, mon);
write(f3, year);

написать

write(f2, mon);
write(f3, year); 
writeln('month ',mon,' year ',year);

3) можете установить hex-редактор и в нем смотреть содержимое получившихся файлов (пользовался этим при отладке).

[wOOp]

Ууу, спасибо большое, работает на ура =)