Текстовый файл, Дан текстовый файл, дописать в его конце... Опции

[Kempf]

Народ, подскажите ПОЖАЛУЙСТА, как можна написать эту програмку.


Дан текстовый файл, дописать в его конце следующие данные: количество строк и количество символов в кождой строке.

Заранее благодарен.

[Renbo]

Всё зависит в первую очередь от подхода: каким доступом пользуешься?(прямой или параллельный)
Поэтому код мальца разный будет.

[Kempf]

Всё зависит в первую очередь от подхода: каким доступом пользуешься?(прямой или параллельный)
Поэтому код мальца разный будет.

Ты знаешь, я в новичёк в этом деле, и не совсем понимаю что ты имеешь в виду?

Хотелось бы немного поподробнее узнать, в общих чертах, о построении алгоритма к этой задачке.

[мисс_граффити]

Renbo, а можно поподробнее про виды доступа к текстовым файлам?..
я только про последовательный слышала...

[Kempf]

Renbo, а можно поподробнее про виды доступа к текстовым файлам?..
я только про последовательный слышала...

Про виды доступа в этой задаче неоговаривалось. Я думаю что большой разницы наверное нет.
Каким получиться, таким и сделаем. Есть какие нибудь идеи?

[мисс_граффити]

Kempf, а в чем проблема?
прошел по файлу, все посчитал (это умеешь?), потом открыл с помощью append и дописал...

[Kempf]

Kempf, а в чем проблема?
прошел по файлу, все посчитал (это умеешь?), потом открыл с помощью append и дописал...

У проблемы с Append, не могу открыть с помощью этой процедуры файл.
Если можешь, то напиши листинг использования этой процедуры.

[Renbo]

Renbo, а можно поподробнее про виды доступа к текстовым файлам?..
я только про последовательный слышала...

Точно, я что-то попутал )) Просто, делая одновременно 2 лабы(текстовый и типизированный фаил), я уж запутался )
Да, с текстовым файлом только последовательный доступ


Kempf, создаёшь фаил.

USES CRT;

Procedure kol-voStrok;
Var
  s:string;
  i:integer;
Begin
i:=0;
assign(File,'text.txt');
reset(File);
while not eof(File) do
  begin
    read(File,s);
    inc(i);
  end;
write('У вас в файле  ',i,'  строк');
readkey;
End;

Это кол-во строк

[Kempf]

Точно, я что-то попутал )) Просто, делая одновременно 2 лабы(текстовый и типизированный фаил), я уж запутался )
Да, с текстовым файлом только последовательный доступ
Kempf, создаёшь фаил.

USES CRT;

Procedure kol-voStrok;
Var
  s:string;
  i:integer;
Begin
i:=0;
assign(File,'text.txt');
reset(File);
while not eof(File) do
  begin
    read(File,s);
    inc(i);
  end;
write('У вас в файле  ',i,'  строк');
readkey;
End;

Это кол-во строк

Это я понял, а как это дописать в этот же файл?

[klem4]

Renbo

!

7. Проверяйте программы перед тем, как разместить их на форуме!!! Устное замечание, в следующий раз получишь предупреждение

Ты уверен что твоя программа выдат верный результат ? Я нет. Мало того это даже компилироваться не будет, а если исправить синтаксис и скомпилировать, такая программа повиснет на веки.

[Kempf]

Ну так что, люди, как мне быть?

[мисс_граффити]

посмотри в паскалевском help - там есть пример использования.
а если у тебя не получается - покажи, хотя бы, как пробуешь.