1 программа по работе с текстовыми файлами, Программа по работе с файлами Опции

[Saver]

Программа считывает список фамилий, имен и номеров зачеток с текстового файла и по выбору пользователя(по имени, фамилии или номеру зачетки) сортирует их по алфавиту и сохраняет в новый текстовый файл. Очень надо до сегодняшнего вечера до 23:00. Помогите!!!!

[volvo]

klem4, проверять программы надо и на Turbo Pascal-е иногда:

сначала просит переделать переменную e в integer

Это - потому, что в TP размер типа Integer в 2 раза меньше размера LongInt, а все-таки там VAR-параметр, то есть как минимум размер типа формального и фактического параметра должен совпадать...

Error 202 Stack Overflow Error.

Будет возникать, сомо собой... Ты же в стек запихиваешь полностью весь массив типа TDataBase, а это все-таки 26 Кб (по умолчанию стек ограничен 16384 байтами)...

Saver, я бы немного подправил вышеприведенную программу:

uses crt;

const
  max_len = 100;

type
  TStudent = record
    name: String;
    book: LongInt;
  end;

  TDataBase = array [1..max_len] of TStudent;

  TFile = Text;

function ReadData(fName: String; var db: TDataBase; var dbSize: Integer): Boolean;
var
  temp: String;
  f: TFile;
  p: byte;
  value: LongInt;
  e: integer;
begin
  dbSize := 0;
  assign(f, fName);

  {$i-}
  reset(f);
  {$i+}

  if IOResult <> 0 then ReadData := false
  else begin
    ReadData := true;
    while not(eof(f)) do begin

      readln(f, temp);
      inc(dbSize);

      p := length(temp);
      while temp[p] <> ' ' do dec(p);

      with db[dbSize] do begin

        name := copy(temp, 1, p - 1);
        Val(Copy(temp, p + 1, 255), book, e);

      end;

    end;
    close(f);

  end;
end;

procedure SortBy(var db: TDataBase; dbSize: Integer; sort_by: char);
var
  i, j: Integer;
  temp: TStudent;
  swap_it: boolean;

begin

  for i := dbSize downto 2 do

   for j := 1 to i - 1 do begin

	case sort_by of
          '1': swap_it := (db[j].name > db[j + 1].name);
          '2': swap_it := (db[j].book > db[j + 1].book);
        end;
        if swap_it then begin
	  temp := db[j];
          db[j] := db[j + 1];
          db[j + 1] := temp;
        end;
   end;

end;

{ const добавляем, чтобы избавиться от переполнения стека }
procedure WriteToFile(fName: String; const db: TDataBase; dbSize: Integer);
var
  i: Integer;
  f: TFile;
begin
  assign(f, fName);
  rewrite(f);
  for i := 1 to dbSize do
   writeln(f, db[i].name, ' ', db[i].book);
  close(f);
end;

var
  db: TDataBase;
  dbSize: Integer;
  choice: Char;

begin
  clrscr;

  if not(ReadData('s_In.txt', db, dbSize)) then begin
	writeln('Can''t open file');
	halt(1);
  end;

  writeln('Sort By : ');
  writeln('1 - ByName');
  writeln('2 - ByBookNumber');
  write('Your choice ->');

  readln(choice);
  if choice in ['1' .. '2'] then SortBy(db, dbSize, choice);

  WriteToFile('s_Out.txt', db, dbSize);
  writeln('Done');

  readln;
end.

Обрати внимание на следующие изменения:
1) добавлен Const в списке параметров процедуры WriteToFile: это сделано для того, чтобы в процедуру передавалась не копия всего массива (о чем я писал выше), а только его адрес, причем если параметр объявлен как Const, то это дает хоть какую-то защиту от случайного изменения данных, хранящихся в этом массиве... Преднамеренно его, конечно, можно изменить, но это уже другая тема...

2) я немного переделал саму процедуру сортировки... Ну, не утерпел я, не могу смириться с тем, что одни и те же действия (а именно - обмен элементов массива местами) присутствуют в коде два раза... Да и вызов процедуры сортировки немного упрощен, ты же не должен сортировать И по возрастанию И по убыванию? Тогда один параметр оказывается лишним...

3) имена файлов: когда работаешь в TP (а это еще DOS-компилятор, лучше давать файлам имена, подходящие под схему 8.3: длина имени 8 символов, и 3 - на расширение...)

4) в процедуре чтения я нахожу позицию последнего пробела. Мне кажется, это более точно подходит под условие, ведь в файле может хранится и имя, и фамилия, а они могут разделяться и пробелом тоже... В моем варианте главное, чтобы группа символов после последнего пробела представляла собой номер зачетной книжки...

Будут вопросы по программе - милости просим