Чтение из текстового файла в переменную

[Kazik]

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

1. Есть тектовый файл:

4310139A000PB9;ГАЛИНА;АЛЕКСАНДРОВНА;КОШЕЛЬ;19390131;MH;0010330;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400826;34;16;;137
4010139A000PB0;ОЛЬГА;ТИХОНОВНА;ДИВИНА;19390101;MH;0010359;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400724;34;22;;28
4190639A000PB6;НИНА;АЛЕКСЕЕВНА;КАЗАЗЯН;19390619;MH;0010355;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11401062;34;74;2;14
4240439A000PB8;ТАМАРА;СЕМЁНОВНА;ЗОЛОТАРЁВА;19390424;MH;0010365;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400173;34;70;;86
4260839A000PB2;ОЛЬГА;АНАТОЛЬЕВНА;ТКАЧЕНКО;19390826;MH;0010092;16/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400161;34;6;;32

Нужно первые 7 значений (каждое из которых разделено знаком ";") записать в свою переменную. Остальные данные не нужны.

[Serge_Bliznykov]

примерный набросок:

var 
  TSAll, ts : TStringList;
  i, j : integer;
  resArr : array[0..6] of string;
begin
  TSAll := TStringList.Create;
  TSAll.LoadFromFile('Тут имя вашего файла');

  ts := TStringList.Create;
  ts.Delimiter := ';';

  for i:=0 to TSAll.Count-1 do begin
    ts.DelimitedText := TSAll.Strings[i];
    if ts.Count>=7 then begin
       for j:=0 to 6 do begin
              resArr[j] := ts.Strings[j];
              ShowMessage(IntToStr(j)+'-е значение = '+resArr[j]);
       end;
    end;
  end;
  FreeAndNil(ts);
  FreeAndNil(TSAll);
end;

идея понятна?

[Stilet]

Можно. Я бы скорее всего в ODBC настроил провайдер для работы с CSV файлами.
К нему подключил компонент ADOQuery, в котором бы запросом собрал данные в таблицу из этого твоего файла.

ts.Delimiter := ';';

Сережа, а ты уверен что под разделитель не попадут пробелы?
Я лично нет.

[Serge_Bliznykov]

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

Сережа, а ты уверен что под разделитель не попадут пробелы?

Нет, не должны!

Но. Виталий, я, до тех пор, пока не проверил код, конечно, 100% в этом не уверен.
Поэтому и написал "примерный" набросок кода...

[Stilet]

Нет, не должны!

В D6 я с такой проблемой сталкивался...

[Arigato]

В качестве альтернативы набросал пример:

var
  s: string;
  cells: array[1..7] of string;
  i, p: integer;
begin
  s:='4310139A000PB9;ГАЛИНА;АЛЕКСАНДРОВНА;КОШЕЛЬ;19390131;MH;0010330;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400826;34;16;;137';
  for i := 1 to 7 do begin
    p := pos(';', s);
    cells[i] := copy(s, 1, p - 1);
    delete(s, 1, p);
    showmessage(cells[i]);
  end;
end;