Сохранение и загрузка списков (Паскаль)

[diliana]

Привет всем

Мое задание - реализовать добавление в список А и удаление их из списка А в список Б, с возможность просмотра текущего состояния списков, с сохранением структуры в файл и загрузкой из файла.

Почти все задание сделано, но никак не могу закончить с сохранением и загрузкой списков. Нужно чтобы списки А и В сохранялись в файл и загружались из него. Но я никак не могу это сделать.

Помогите пожалуста доделать задание. Очень вас прошу.

program Laba_List;

Type
	plist = ^tl;
	tl = record
		next : plist;
		data: integer;
	end;
	TypList = file of integer;{типизированный файл}

Var  
	HeadA,curA: plist;
	HeadB,curB: plist;
	key: char;
	
	CurX:integer;
	A: TypList;
	startX: plist;
	

//просмотр
procedure ScanList(curTmp ,HeadTmp: plist);
begin
writeln ('Prosmotr spiska');
writeln;
if HeadTmp = nil then
	writeln ('Pustoy spisok')
else
begin
	curTmp := HeadTmp;
	while curTmp <> nil do
	begin
	write(curTmp^.Data, ' ');
	curTmp := curTmp^.Next
	end;
	writeln;
	writeln
end;
writeln;
end;

//добавление
procedure AddList(var curTmp,HeadTmp: plist;p:boolean);
var
temp:plist;
x: integer;
begin
if p then
begin
  Write ('Dobavit element: ');
  Readln (x)
  End  else
  Write('V spisok2 dobavlen element ' , CurX, ' udalen uz spiska1');
	New(temp);
	if p then temp^.Data := x
	  else  temp^.Data:=CurX;
	temp^.Next := nil;
	if HeadTmp = nil then
	begin
	  HeadTmp := temp;
	  curTmp:=HeadTmp
	End else  
	curTmp^.next := temp;
	curTmp := temp;
	if p then Writeln ('Dobavlen: ',curTmp^.Data);
	Writeln;
end;

//удаление элементов из списка А в список В
procedure DelList(var t1,t2,Headt1,Headt2: plist);
var
temp:plist;
begin
if Headt1 = nil then  Writeln('cnicok nycT')
end else
	if t1 = HeadA then
	begin
	HeadA := HeadA^.Next;
	Writeln ('Udalen ',t1^.data);
	CurX:=t1^.data;
	dispose(t1);
	t1 := HeadA
	end
	else
	begin
	temp := t1;
	t1:=HeadA;
	while t1^.Next <> temp do
		t1:= t1^.Next;
	t1^.next:=temp^.next;
	CurX:=temp^.data;
	Writeln ('Udalen ',temp^.data);
	dispose(temp)
	end;
AddList(curB,HeadB,false);
end;

{---вот с этими процедурами проблема----}

{сохранение структуры во внешнем файле} 
procedure Save(curTmp ,HeadTmp: plist; Var F:typlist);
begin
	curTmp := HeadTmp; 
	writeln('saving file');
	assign(f,'my.dat') ;
	reset(f); 
	while curTmp <> nil do 
	begin
	write(f, curTmp^.data);
	curTmp := curTmp^.Next 
	end; 
	close(f); 
end; 

{загрузка структуры из внешнего файла} 
Procedure Load (Var F:typlist; curTmp ,HeadTmp: plist);
var 
temp:plist;
Begin 
	assign(f,'my.dat');
	Writeln ('Loading file');
	reset(f); 
	While not eof(f) do begin 
	read (f, curtmp^.data); 
	curtmp:=curtmp^.next; 
	end; 
	close(f); 
End; 

Begin 
	HeadA:=nil; curA:=nil; 
	HeadB:=nil; curB:=nil; 
	CurX:=0; 
	
	Repeat
	Writeln ('====================');
	Writeln (' PROGRAM List');
	Writeln ('====================');
	Writeln ('1: Dobavit element v spisok-1');
	Writeln ('2: Udalit element v spisok-2 ');
	Writeln ('3: Prosmotr spiska-1');
	Writeln ('4: Prosmotr spiska-2');
	Writeln ('5: Save');
	Writeln ('6: Load');
	Writeln ('0: Exit');
	Writeln ('====================');
	Readln (key); 
	
	case key of 
	'1': AddList(curA,HeadA,true); 
	'2': DelList(curA,curB,HeadA,HeadB); 
	'3': ScanList(curA,HeadA);
	'4': ScanList(curB,HeadB); 
	'5': Save (cura,HeadA,a);
	'6': Load (A, cura,curb); 
	end; 
	until key ='0'; 
End.

[Chudo4258]

Вот посмотри, но только тут двунаправленых список.

[diliana]

Chudo4258

я посмотрела, ничего не понятно, у тебя же на делфи написано, а мне надо на паскале...

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

Может кто-нибудь поможет, как это на паскале сделать?
Пожалуста...

[Chudo4258]

а разницы особо между паскалем и делфи нет.
AssignFile = Assign
CloseFile = Close

Запись в файл:

Assign(f,'Zap.txt');
Rewrite(f);
vsp:=S; // S - указатель на начало списка;  vsp:=S - для того чтобы не потерять указатель на начало
if vsp=nil then writeln(f,'Пусто!!!')
           else
while vsp<>nil do
 begin
  writeln(f,IntToStr(vsp^.Inf));
  vsp:=vsp^.Next;
 end;
Close(f);

[diliana]

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

writeln(f,IntToStr(vsp^.Inf));

А что это такое???

[Chudo4258]

т.к. у вас файл типизированный и vsp^.data того же типа что и файл, тогда вам надо:

write(f,vsp^.Inf);

запись в файл у вас вреде бы все верно.
а вот чтенеи из файла ...

procedure Save(curTmp ,HeadTmp: plist; Var F:typlist);
begin
	curTmp := HeadTmp; 
	writeln('saving file');
	assign(f,'my.dat') ;
	rewrite(f); 
	while curTmp <> nil do 
	begin
	write(f, curTmp^.data);
	curTmp := curTmp^.Next 
	end; 
	close(f); 
end;

загрузка структуры из внешнего файла

: вы предполагаете что у вас список уже создан и вы заполняете только поле data, а нужно список создавать.

чтение из файла:

assign(f,'my.dat');
Writeln ('Loading file');
reset(f); 
new(vsp);
read(f,vsp^.data);
vsp^.next:=nil;
S:=vsp; // начало списка

While not eof(f) do begin 
new(vsp1);
read (f, vsp1^.data);
vsp^.next:=vsp1; // соединили
vsp:=vsp1; 
end; 
close(f);

и уточните еще

assign(f,'my.dat');

, а именно my.dat - можно так записывать если

f: file of integer

.

Мне кажется что надо так:

assign(f,'my');

[diliana]

Chudo4258, спасибо за внимание

вот переделала процедуру Save теперь работает, файл mylist.dat создается, и что-то туда пишется, он во всяком случае не пустой.

Вот код процедуры.

{сохранение структуры во внешнем файле}
procedure Save(curTmp ,HeadTmp: plist; Var F:typlist);
begin
	writeln('saving file');
	assign(f,'mylist.dat') ;
	Rewrite(f);
	curTmp := HeadTmp;
	while curTmp <> nil do
	begin
		write(f, curTmp^.data);
		curTmp := curTmp^.Next
	end;
	close(f);
end;

и процедура Load.

У меня по этой процедуре вопрос - вот я создала список , сохранила его в файл mylist.dat, затем я как бы могу спокойно закрыть программу (потому что данные сохраненны) и когда я заново запускаю программу могу спокойно загрузить список из сохранненнго файла, но на деле получается только сохранить данные в список, обратноя загрузка данных из файлов в программу почему-то не выходит...
в чем дело или я неправильно понимаю "загрузку списка из файла)...

Обьясните пожалуста.


Вот код

{загрузка структуры из внешнего файла}
Procedure Load (Var F:typlist; curTmp ,HeadTmp: plist);
var
  vsp, vsp1:plist;

Begin
   assign(f,'mylist.dat');
   Writeln ('Loading file');
   reset(f);
   new(vsp);
   read(f,vsp^.data);
   vsp^.next:=nil;
   HeadTmp:=vsp; // начало списка

   While not eof(f) do begin
   new(vsp1);
   read (f, vsp1^.data);
   vsp^.next:=vsp1; // соединили
   vsp:=vsp1;
   end;
   close(f);
End;

Вот полный листинг, можешь проверить

program Project_list;

Type
  plist = ^tl;
  tl = record
  next : plist;
  data: integer;
  end;
  TypList = file of integer;{типизированный файл}

Var
  HeadA,curA: plist;
  HeadB,curB: plist;
  key: char;
  CurX:integer;
  A: TypList;

procedure ScanList(curTmp ,HeadTmp: plist);
begin
  writeln ('Prosmotr spiska');
  writeln;
  if HeadTmp = nil then
    writeln ('Pustoy spisok')
  else
  begin
    curTmp := HeadTmp;
    while curTmp <> nil do
    begin
      write(curTmp^.Data, ' ');
      curTmp := curTmp^.Next
    end;
    writeln;
    writeln
  end;
  writeln;
end;
 
procedure AddList(var curTmp,HeadTmp: plist;p:boolean);
var
  temp:plist;
  x: integer;
begin
  if p then
  begin
    Write ('Dobavit element: ');
    Readln (x)
  end
  else
    Write('V spisok2 dobavlen element ' , CurX, ' YdaleNNbli uz pervogo spiska');
  New(temp);
  if p then temp^.Data := x
   else  temp^.Data:=CurX;
  temp^.Next := nil;
  if HeadTmp = nil then
  begin
    HeadTmp := temp;
    curTmp:=HeadTmp
  end
  else  curTmp^.next := temp;
  curTmp := temp;
  if p then Writeln ('Dobavlen: ',curTmp^.Data);
  Writeln;
end;
 
 
procedure DelList(var t1,t2,Headt1,Headt2: plist);
var
  temp:plist;
begin
  if Headt1 = nil then Writeln('cnicok nycT')
    else
    if t1 = HeadA then
    begin
      HeadA := HeadA^.Next;
      Writeln ('Udalen ',t1^.data);
      CurX:=t1^.data;
      dispose(t1);
      t1 := HeadA
    end
    else
    begin
      temp := t1;
      t1:=HeadA;
      while t1^.Next <> temp do
        t1:= t1^.Next;
      t1^.next:=temp^.next;
      CurX:=temp^.data;
      Writeln ('Udalen ',temp^.data);
      dispose(temp)
    end;
  AddList(curB,HeadB,false);
end;


{сохранение структуры во внешнем файле}
procedure Save(curTmp ,HeadTmp: plist; Var F:typlist);
begin
	writeln('saving file');
	assign(f,'mylist.dat') ;
	Rewrite(f);
	curTmp := HeadTmp;
	while curTmp <> nil do
	begin
		write(f, curTmp^.data);
		curTmp := curTmp^.Next
	end;
	close(f);
end;

{загрузка структуры из внешнего файла}
Procedure Load (Var F:typlist; curTmp ,HeadTmp: plist);
var
vsp, vsp1:plist;
stt: integer;
Begin
assign(f,'mylist.dat');
Writeln ('Loading file');
reset(f);
new(vsp);
read(f,vsp^.data);
vsp^.next:=nil;
HeadTmp:=vsp; // начало списка

While not eof(f) do begin
new(vsp1);
read (f, vsp1^.data);
vsp^.next:=vsp1; // соединили
vsp:=vsp1;
end;
close(f);
End;

Begin
HeadA:=nil; curA:=nil;
HeadB:=nil; curB:=nil;
CurX:=0;

Repeat
Writeln ('================================');
Writeln (' PROGRAM List');
Writeln ('================================');
Writeln ('1: Dobavit element v spisok-1  ');
Writeln ('2: Udalit element v spisok-2   ');
Writeln ('3: Prosmotr spiska-1           ');
Writeln ('4: Prosmotr spiska-2           ');
Writeln ('5: Save                        ');
Writeln ('6: Load                        ');
Writeln ('0: Exit                        ');
Writeln ('================================');
Readln (key); 
case key of 
'1': AddList(curA,HeadA,true); 
'2': DelList(curA,curB,HeadA,HeadB); 
'3': ScanList(curA,HeadA);
'4': ScanList(curB,HeadB); 
'5': Save (cura,HeadA,a);
'6': Load (A, cura,HeadA);
end; 
until key ='0'; 
End.

[Chudo4258]

попробуй убрать расширения у файлов.
mylist.dat = mylist

У меня по этой процедуре вопрос - вот я создала список , сохранила его в файл mylist.dat, затем я как бы могу спокойно закрыть программу (потому что данные сохраненны) и когда я заново запускаю программу могу спокойно загрузить список из сохранненнго файла, но на деле получается только сохранить данные в список, обратноя загрузка данных из файлов в программу почему-то не выходит...
в чем дело или я неправильно понимаю "загрузку списка из файла)...

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

[diliana]

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

попробуй убрать расширения у файлов.
mylist.dat = mylist
По идее должно считываться. Сейчас некогда проверять код, как-нибудь потом...

пробовала - это бессполезно....
Выходит сообщение «список пуст», то есь процедура Load получается не считывает данные с файла.....

ех, что же делать-то???

[Serge_Bliznykov]

diliana, я не знаю, сами ли Вы писали данную программу, если да - респект!

чтобы всё заработало добавить VAR в описание процедуры Load:

Procedure Load (Var F:typlist; var curTmp ,HeadTmp: plist);

да. и ещё.
перед Close(f) в последнем элементе неплохо было бы добавить ссылочку на nil:

vsp^.next:=nil;
close(f);

to Chudo4258, по поводу расширений. Запомните на будущее, расширения важны только для того, чтобы ОС "думала", что она знает, что это за тип файла. (и, соответственно, отображала нужные значки, запускала назначенные приложения и т.д. и т.п.).
Для человека, пишущего обработку данных расширение — полностью самостоятельный выбор.
Единственное, я бы рекомендовал не использовать широкоизвестные расширения (EXE, COM, DOC, CMD, BAT, RAR, ZIP, JPG и т.д. и т.п.), но не потому, что программа не будет работать, а просто потому, чтобы Ваш файл никто не перепутал!
И в данном случае выбор расширения .DAT - отличный выбор!!