Вывод из текстового документа определенных данных

[demon-sheff]

Доброе время суток!!!
Помогите с выводом из текстового документа данных. Имеется протокол, который загружается в тестовом файле, надо выбрать только 2 поля и вывести как в excel файле 2 поля объект(где выводится только кадастровые номера) и причина (где выводится из-за чего не загрузился номер)
делаю так:

procedure TForm1.SpeedButton3Click(Sender: TObject);
 var i,j:integer;  o,p:integer;
     fl:boolean;
     s:shortstring;
begin

   for i:=0 to Memo1.Lines.Count-1 do
                  if Pos('ОБЪЕКТ: Земельный участок ',Memo1.Lines.Strings[i])<>0 then
                                                                   begin
                              S:=Copy(Memo1.Lines.Strings[i],27,19);
                              fl:=true;
                              if ListBox1.Items.Count>0 then
                              for j:=0 to ListBox1.Items.Count-1 do
                                                 if s=ListBox1.Items.Strings[j] then  fl:=false;
                              if fl then ListBox1.Items.Add(S);

      end;

                 If   Pos('ПРИЧИНА: ',Memo1.Lines.Strings[o])<>0 then
                                                                   begin
                              S:=Copy(Memo1.Lines.Strings[o],35,60);
                              fl:=true;
                              if ListBox2.Items.Count>0 then
                              for p:=0 to ListBox2.Items.Count-1 do
                                                 if s=ListBox2.Items.Strings[p] then  fl:=false;
                              if fl then ListBox2.Items.Add(S);

      end;
end;

а сам текстовый файл выглядит как-то так:

Расширенный протокол импорта к протоколу № 160389
Имя файла: CC_45_21_15032013_0001.xml
Число объектов: 3120
Из них загруженных: 2883

Незагруженные объекты:
ОБЪЕКТ: Земельный участок 45:21:010502:7
ПРИЧИНА: Исходные координаты в файле не соответствуют координатам в БД

ОБЪЕКТ: Земельный участок 45:21:010502:9
ПРИЧИНА: Исходные координаты в файле не соответствуют координатам в БД

ОБЪЕКТ: Земельный участок 45:21:030102:7
ПРИЧИНА: Исходные координаты в файле не соответствуют координатам в БД

ОБЪЕКТ: Земельный участок 45:21:030107:9
ПРИЧИНА: Исходные координаты в файле не соответствуют координатам в БД

ОБЪЕКТ: Земельный участок 45:21:030208:8
ПРИЧИНА: Объект уже редактируется в заявке №45-0-1-25/3001/2013-69.

[FaTaL]

А что именно не получается, выбрать нужные данные или вывести в EXCEL? Посмотрел Ваш проект, так у Вас там EXCEL'ем и не пахнет вообще.

[demon-sheff]

Да, вывести 2 поля в excel. Так есть excel файл, как должно выводить. Извените я только учусь

[FaTaL]

Если немного подождёшь, то накидаю полностью код. Сейчас немного занят работой.

[Sciv]

Проблема не только в экселе, там еще много непонятного лично мне было. Но вывод в экс сделал, держи

[evg_m]

может быть лучше обратиться к источнику данного текста

Имя файла: CC_45_21_15032013_0001.xml

и сделать разбор данного файла.

[Sciv]

может быть лучше обратиться к источнику данного текста

Не думаю. Там похоже, что xml загружается в какую-то базу, а в txt протокол ошибок загрузки выходит. Вот автору как раз этот протокол нужен.

[demon-sheff]

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

Проблема не только в экселе, там еще много непонятного лично мне было. Но вывод в экс сделал, держи

Спасибо большое!!! Это то что и надо было сделать