Импорт данных из тхт в Delphi

[marisham0612]

Добрый день.
Не могу придумать как реализовать следующий проект. Может кто-то с таким сталкивался и может помочь.
Задача в следующем - у меня есть тхт файл с данными, которые нужно вывести в фастрепорт. Но проблема в том, что кол-во колон в тхт не одинаковое от строки к строке - 1.строка - 3 колонны, 2.строка - 1колонна, 3.строка - 7колонн. Пример:

ENV-START|LDC07064P10001|
LANDSCAPE
01A|VERONIKA||ME|Va|Ai|5106
01B|Nr. 7-0251|Ori|05.03.2007|LV000057210050|Smui|20.02.2007|V|sarka|23.02.2007|LB|LV000057210030|SWE93442|NS 25.00% |LB 6.25%|
01C|20.02.2007|LV1000572||||||||||||||||||
01D|20.02.2007|LV0000572||||||||||||||||||
ENV-START|LDC07064P10002|
LANDSCAPE
01A|Lejas||Lejas|Kur|Ais|5115
01B|Nr. 7-0251|Oriģ|05.03.2007|LV000205310040|Viza|22.01.2007|S|brūna|24.01.2007|XP|LV000235510006|LV038790110017|ZS 40.62%||
01C|22.01.2007|LV1002053||||||||||||||||||
01D|22.01.2007|LV0002053||||||||||||||||||

Помогите решить такую проблему??

[SERG1980]

А вы как хотите вывести на печать ... в виде таблицы? Может Кросс отчёт поможет?

[marisham0612]

Нее, к сожалению не в виде таблици. Должна быть заполнена определнённый бланк - ENV-START должен означать новой лист, а далее следует информация для этого бланка, потом опять ENV-START - новый бланк с новими данными.

[Sanprof]

ИМХО здесь предельно все просто, считываете строку ReadLn, проверяете на наличие в конце символа "|", если нету ставите его, потом к примеру в двумерный массив заносите данные которые разделены "|" функциями copy, Pos и т.п. там где не достает столбцов записываете 0 (ноль). А с массивом уже можно выполнять различные операции, в том числе вывод в фастрепорт.

[marisham0612]

Sanprof
Не могли бы Вы уточнить как мне добавлять символ |, если он отсутствует??

Спасибо за помощь.

[Sanprof]

ReadLn(F,str);
len := length(str);
s := copy(str,len,1);
if s <> '|' then //если последний символ не равен '|'
  str := str + '|'; //то тогда добавим его

[_Flyer_]

Добрый вечер, столкнулся с такой же проблемой
имеем файл на входе :
100000111|boooooa||
100000121||sdfdsf|
101210212|dsfds||dsfsdf
никак не могу победить данного зверя на предмет чтения строки и выбора значений по каждому разделителю вплоть до того что есть между пустыми разделителями.
Подскажите плиз как с этим бороться?
Заранее спасибо

[Andrei]

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

Добрый вечер, столкнулся с такой же проблемой
имеем файл на входе :
100000111|boooooa||
100000121||sdfdsf|
101210212|dsfds||dsfsdf
никак не могу победить данного зверя на предмет чтения строки и выбора значений по каждому разделителю вплоть до того что есть между пустыми разделителями.
Подскажите плиз как с этим бороться?
Заранее спасибо

Когда-то написал функцию:

uses ...,StrUtils;

....

function TForm1.ReadDataStr(Tabul: string; var S: string): string;
var PosTab: integer; //позиция разделителя в строке
begin
  Result := '';
  PosTab := Pos(Tabul,S)-1;
  if PosTab >= 0 then
    begin
      {Возвращаю порцию данных}
      Result := Copy(S,1,PosTab);

      {Обрезаю исходную строку}
      S := AnsiRightStr(S,Length(s)-PosTab-Length(Tabul));
    end
  else
    begin
      Result := S;
      S := '';
    end;
end;

а так функцией пользоваться:

procedure TForm1.Button1Click(Sender: TObject);
var S1: string;
begin
  S1 := '101210212|dsfds||dsfsdf';
  while Length(S1)>0 do ShowMessage(ReadDataStr('|',S1));
end;