Разделение строки на колонки в StringGrid

[artemavd]

Добрый день! Прошу помощи с реализацией такой штуки. Есть загруженный текстовый файл в Мемо:

<?xml version="1.0" encoding="windows-1251"?>
<zl_list>
	<zglv><filename>38104TQ01001</filename><nfile>001</nfile><version>1.0</version><cod_pfr>048</cod_pfr><nrec>100000</nrec></zglv>
	<zl><nomer_z>0000000001</nomer_z><snils>00000000</snils><fam>Иванов</fam><im>Иван</im><ot>Иванович</ot><dr>01.01.1962</dr><w>М</w></zl></zl_list>

таких строк, которые начинаются с <zl><nomer_z>... может быть несколько тысяч. Все они в Мемо отображатся столбцом, это хорошо. Вопрос возник такой: как вытащить значения которые находятся между <nomer_z>....</nomer_z>, <snils>...</snils>, <fam>...</fam>, <im>...</im>, <ot>...</ot>, <dr>...</dr>, <w>...</w> и занести их в разные столбцы в StringGrid? И чтобы такая процедура выполнилась для всех строк. Вот, только с этим и возникла сложность. Прошу помочь реальными советами или кодом, а не флудом. Заранее спасибо.

[evg_m]

вот пример работы с XML файлом.

uses xmldoc, xmlintf;

procedure TDMNOAX9.FindLoadfile;
var
  xml: IXMLDocument;
  xnode: IXMLNode;
  s: string;
begin
  if self.OpenDialog1.Execute then begin
     xml:=LoadXMLDocument(self.OpenDialog1.FileName);
     xnode:=xml.DocumentElement;
     s:=xnode.NodeName;
     if uppercase(s)='IMPORT' then begin
       self.LoadSprList(xnode.ChildNodes);
     end;
  end;
end;

procedure TDMNOAX9.LoadSprList(xlist: IXMLNodeList);
var
  xnode: IXMLNode;
  s: string;
  spr: TSPR;
begin
  xnode:=xlist.First;
  while xnode<>nil do begin
    s:=xnode.NodeName;
    if s='SPR' then begin
      spr:=TSPR.Create;
      self.FsprList.Add(spr);
      spr.LoadSpr(xnode.ChildNodes);
    end;
    xnode:=xnode.NextSibling;
  end;
end;

procedure TSPR.LoadSpr(Axlist: IXMLNodeList);
var
  xnode: IXMLNode;
  s: string;
  x: TOBL;
begin
//  <SPR><IDENT>LR</IDENT><NAME>чтото там</NAME><DT>01.01.2000</DT>
  xname:=Axlist.FindNode('NAME');
  xdate:=Axlist.FindNode('DT');
  xident:=Axlist.FindNode('IDENT');
  xnode:=Axlist.First;

[artemavd]

А хотя бы в двух словах-то можешь пояснить? А то такой код-то можно какой угодно написать и не факт будет, что он поможет.

[psycho-coder]

Я думаю тебе показали как работать с XML для того, что ты распарсил с помощью него данные и раскидал результат по StringGrid как тебе нужно.

[evg_m]

IXMLDocument документрован (есть в справке).

 xml:=LoadXMLDocument(self.OpenDialog1.FileName);//загрузка документа
 xnode:=xml.DocumentElement; //получение корневого узла
 s:=xnode.NodeName; //получение имени узла
 xnode.ChildNodes; // получение списка дочерних узлов
 xname:=Axlist.FindNode('NAME'); //поиск узла по имени

 xnode:=xlist.First; // первый узел в списке
 xnode:=xnode.NextSibling;//следующий узел того же уровня
 xnode.Text; //значение  узла

P.S. код был взят с рабочего проекта.

[artemavd]

Что в коде в посте №2 значат эти строки?

uses xmldoc, xmlintf;

procedure TDMNOAX9.FindLoadfile;
var
  xml: IXMLDocument;
  xnode: IXMLNode;
  s: string;
begin
  if self.OpenDialog1.Execute then begin
     xml:=LoadXMLDocument(self.OpenDialog1.FileName);
     xnode:=xml.DocumentElement;
     s:=xnode.NodeName;
     if uppercase(s)='IMPORT' then begin
       self.LoadSprList(xnode.ChildNodes);
     end;
  end;
end;

procedure TDMNOAX9.LoadSprList(xlist: IXMLNodeList);
var
  xnode: IXMLNode;
  s: string;
  spr: TSPR;
begin
  xnode:=xlist.First;
  while xnode<>nil do begin
    s:=xnode.NodeName;
    if s='SPR' then begin
      spr:=TSPR.Create;
      self.FsprList.Add(spr);
      spr.LoadSpr(xnode.ChildNodes);
    end;
    xnode:=xnode.NextSibling;
  end;
end;

Код:

procedure TSPR.LoadSpr(Axlist: IXMLNodeList);
var
  xnode: IXMLNode;
  s: string;
  x: TOBL;
begin
//  <SPR><IDENT>LR</IDENT><NAME>чтото там</NAME><DT>01.01.2000</DT>
  xname:=Axlist.FindNode('NAME');
  xdate:=Axlist.FindNode('DT');
  xident:=Axlist.FindNode('IDENT');
  xnode:=Axlist.First;

P.S. код был взят с рабочего проекта.

Нет ли возможности у тебя скинуть этот пример проекта, чтобы посмотреть как и что объявлено там?

[evg_m]

self обращение внутри метода к своему собственному объекту(экземпляру класса). this в С++.
Можно его спокойно убрать.

Нет ли возможности у тебя скинуть этот пример проекта, чтобы посмотреть как и что объявлено там?

вот держи комментарии внутри (работу с БД не комментировал так что Exception ПОСЛЕ разбора обеспечено).

[artemavd]

Спасибо за выложенный пример. Однако ничего кроме мата на параметр не получается. Что должно быть конечным результатом работы программы?

[evg_m]

(работу с БД не комментировал так что Exception ПОСЛЕ разбора обеспечено).

Результат Выгрузка в БД. Закоммментируй операции с ADOcommand.

или

class procedure TDMNOAX9.LoadXML;
var
  dm: TDMNOAX9;
begin
  dm:=TDMNOAX9.Create(nil);
// нажодим (тест.xml), читаем и разбираем файл
  dm.FindLoadFile;
// документ разобран (создан набор вложенных классов
// отвечающих каждый за один из узлов документа
// и знающих КАК и ЧТО делать с этими данными
// проверка загрузка в БД
///  dm.SaveSprList(dm.ADOCommand1);
  dm.Free;
end;