Файл "Каталог файлов"
Структура записи:
Имя файла(8 знаков)
Спецификация(3 знака)
Дата создания:
День(2 знака)
Месяц(2 знака)
Год(2 знака)
Количество блоков(4 знака)
Записи упорядочены по именам файлов.Создайте файл "Каталог файлов".Занесите в отдельный файл записи о файлах с заданным именем.
Помогите пожалуйста) Я условие не понимаю да и с темой файлы не лады у меня...
Надо создать файл, в котором будет информация о других файлах. Структура файла дана.
То есть приблизительные вид некоторых фрагментов такой:
TDate = record
Day, Month, Year: array [0 .. 1] of char;
end;
TFileInfo = record
Name: array [0 .. 7] of char;
Dim: array [0 .. 2] of char;
CreationDate: TDate;
BlockCount: array [0 .. 3] of char;
end;
TFileOfTFileInfo = file of TFileInfo; // файл из записей, содержащих информацию о файлах
...
Info: TFileInfo;
F: TFileOfTFileInfo;
...
Assign(F, 'FileDir');
Rewrite(F);
...
Write(F, Info);
...
Наверное, стоит упомянуть, что в некоторых компиляторах (FPC, Delphi) вместо "record" надо писать "packed record".
А можете поподробнее расписать а то я всеравно ничего не понимаю(
program creator;.
type
TDate=string[8];
TName=string[8];
TSpec=string[3];
TBlockCount=string[4];
TFileInfo = record
Name:TName;
Spec:TSpec;
CreationDate: TDate;
BlockCount:TBlockCount;
end;
var TFileOfTFileInfo:file of TFileInfo;
Info,Struct: TFileInfo;
NameFile:string[12];
Procedure AddRecord;
begin
Writeln('Zapis nomer ',FilePos(TFileOfTFileInfo)+1);
with Struct do
begin
Write('Enter Name: ');
Readln(Name);
Write('Enter Spec: ');
Readln(Spec);
Write('Enter Date: ');
Readln(CreationDate);
Write('Enter BockCount: ');
Readln(BlockCount);
Write(TFileOfTFileInfo,Info);
end;
end;
Procedure CreateRecordFile;
var
i,count:integer;
begin
Write('Enter name of file ');
Readln(NameFile);
Assign(TFileOfTFileInfo,NameFile);
Rewrite(TFileOfTFileInfo);
Writeln('File created: ',NameFile);
Write('Enter kol-vo zapisei kotorie vi hotite dobavit ');
Readln(count);
for i:=1 to count do
AddRecord;
Writeln('Zapisano');
Close(TFileOfTFileInfo);
end;
begin
CreateRecordFile;
readln;
readln
end.
Здесь AddRecord; ошибка была. Исправлено.
program creator;
type
TDate=string[8];
TName=string[8];
TSpec=string[3];
TBlockCount=string[4];
TFileInfo = record
Name:TName;
Spec:TSpec;
CreationDate: TDate;
BlockCount:TBlockCount;
end;
var
F,TFileOfTFileInfo:file of TFileInfo;
Info,Struct: TFileInfo;
NameFile:string[12];
FixedName : TName;
Procedure AddRecord;
begin
Writeln('Zapis nomer ',FilePos(TFileOfTFileInfo)+1);
with Struct do
begin
Write('Enter Name: ');
Readln(Name);
Write('Enter Spec: ');
Readln(Spec);
Write('Enter Date: ');
Readln(CreationDate);
Write('Enter BockCount: ');
Readln(BlockCount);
end;
Write(TFileOfTFileInfo,struct);
end;
Procedure CreateRecordFile;
var
i,count:integer;
begin
Write('Enter name of file ');
Readln(NameFile);
Assign(TFileOfTFileInfo,NameFile);
Rewrite(TFileOfTFileInfo);
Writeln('File created: ',NameFile);
Write('Enter kol-vo zapisei kotorie vi hotite dobavit ');
Readln(count);
for i:=1 to count do
AddRecord;
Writeln('Zapisano');
Close(TFileOfTFileInfo);
end;
begin
CreateRecordFile;
FixedName:='pascal';
Assign(F,'output.dat');
Rewrite(F);
Assign(TFileOfTFileInfo,NameFile);
ReSet(TFileOfTFileInfo);
while not eof(TFileOfTFileInfo) do
begin
read(TFileOfTFileInfo,struct);
if struct.name=FixedName then
write(f,struct);
end;
Close(TFileOfTFileInfo);
Close(F);
readln;
readln
end.
Спасибо огромное)))))))))
Нет просто преподаватель требует именно в таком виде...
> Нет просто преподаватель требует именно в таком виде...
Чтобы именно через string[n]?
Этот вид противоречит условию из 1 сообщения. Преподавателя это не смущает?
Вроде как нет просто когда я в 1 раз задачу показывал ей она сказала воспользоваться строкой
> Вроде как нет
Это плохо. Должно смущать. Она хотя бы блокнотом открывать полученный файл пробовала, чтобы понять, почему нужен массив символов, а не строка?
Может, это заказ крупной фирмы. И потом, файл, созданный этой программой, будет обрабатывать другая программа (причём открывать как поток байтов), которая, в сответствии с ТЗ, для отыскания k-ой записи будет переходить к k*(8+3+2+2+2+4) позиции. И вот перейдёт она туда и увидит хрен с ушами, потому что формат записан с грубыми нарушениями.