Версия для печати темы

Автор: JPearce 29.05.2007 3:30

имеется текстовый файл, связанный с базой данных, и ввиду этого постоянно изменяющийся.
В общем виде он имеет вид:

"Rodina","OpenSquare","net","1200luks",10054
"Luzniki","Olympic","da","1800luks",84745
"Petrovsky","Olympic","net","1400luks",21570
"Dynamo","Olympic","net","1400luks",36540
"Lokomotiv","ClosedSquare","da","1500luks",28800
"Imeni E.Strelcova","OlympicOpen","net","1200luks",13200
"Saturn","ClosedSquare","da","1200luks",16500

Соответсвенно количество строчек неограниченно, все зависит от того сколько их в базе.
Для прикладной программы, которую я хотел бы написать на Паскале, мне нужно выдрать в один массив из этого файла названия стадионов из каждой строчки(это то, что находится в первых кавычках каждой строчки), а во второй массив выдрать типы стадионов(то что находится во вторых кавычках каждой строки). Остальные данные для проги не нужны.
Паскаль проходил довольно давно и поэтому никак не могу составить по этому файлу вот такие два массива.
Заранее спасибо, и извиняюсь если нарушил правила форума.

Автор: klem4 29.05.2007 11:50

На сколько я понял делаешь для себя ? Соответственно использование текстового файла не обязательное условие ... По этому для удобства работы юзай тип Record.

type
  TSType = ( stOpen, stClose, stOlimpicOpen, stOlimpicClose );

  TStadium = Record
    name: String;
   sType: TSType;
  some_field: String;
  some_field1: String;
  end;

  TFile = File of TStadium;

Автор: Ozzя 29.05.2007 11:55

Читать построчно из файла, разбивать строки процедурой http://forum.pascal.net.ru/index.php?s=&showtopic=2361&view=findpost&p=28059

Автор: volvo 29.05.2007 13:03

Совсем не обязательно... Это будет "из пушки по воробьям". Гораздо проще и быстрее для каждой строки, прочтенной из файла сделать:

...
readln(f, s);
inc(i);
arr_title[i] := copy(s, 1, pos(',', s) - 1);
delete(s, 1, pos(',', s));
arr_type[i] := copy(s, 1, pos(',', s) - 1);
...