работа с текстом XML

[osminog]

Добрый день, уважаемые программисты!

Вопрос тем, кто работал или работает с XML и Office Excel!

Имеется файл XML (привожу кусок фрагмента):

..........
    <RRL_CASE>
      <ID>849bc1b3-5900-4e28-bba6-993156377de8</ID>
      <SN_POL>0293889775000336</SN_POL>
      <LASTNAME>Фамилия1</LASTNAME>
      <NAME>Имя1</NAME>
      <PATRONYMIC>Отчество1</PATRONYMIC>
      <SEX>Ж</SEX>
      <BDAY>2011-06-24</BDAY>
      <DOC>14</DOC>
      <DOC_SER>8014</DOC_SER>
      <DOC_NMB>418683</DOC_NMB>
      <ADDR_REG>80435</ADDR_REG>
      <REGION>Город1</REGION>
      <ADDR_TEXT>Адрес1</ADDR_TEXT>
      <CODE>25</CODE>
      <START>2011-06-24</START>
      <STOP>2014-06-24</STOP>
    </RRL_CASE>
..........

Нужно:
1. выбрать данный документ (открыть его)
2. перенести данные в Excel, естественно по столбцам, содержащие:
№ п/п (1 и т.д. по порядку ...)
SN_POL
LASTNAME
NAME
PATRONYMIC
SEX
BDAY
DOC
DOC_SER
DOC_NMB
ADDR_REG
REGION
ADDR_TEXT
CODE
START
STOP

3. По окончанию, остановить процесс переноса данных, сохранить в Excell с названием открытого файла и открыть сам файл Excel.

Буду рад любой информации, что бы знать, хоть в какую сторону "копать"!!!

Я никогда не работал с форматом XML, а тем более перевод его в Excel
Кто знает, помогите, пожалуйста! Переработать данный файл в 450 000 строк руками очень тяжело, а работу эту повесили на меня (((

Заранее, спасибо!

[Stilet]

А разве в Экзеле нельзя открыть XML?

[osminog]

Exel позволяет открыть, но так интересно!

[Stilet]

Понял
Из всех примеров работы с XML остался только корявастенький

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;

type
  TForm1 = class(TForm)
    XMLDocument1: TXMLDocument;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
{var e,n:IXMLNode;
begin
 XMLDocument1.LoadFromFile('D:\Ok\Aqua.xml');
 n:=XMLDocument1.DocumentElement.ChildNodes[0];
 if n<>nil then repeat
  e:=n.ChildNodes[1];
  ListBox1.Items.Add(e.NodeValue);
  n:=n.NextSibling;
 until n=nil;
end;
}
var f,e,n:IXMLNode;     i:integer;
begin
 XMLDocument1.LoadFromFile('C:\Documents and Settings\5097\Рабочий стол\B0000183.xml');
 n:=XMLDocument1.DocumentElement.ChildNodes[0];
 if n<>nil then repeat
  e:=n.ChildNodes[0];
  f:=n.ChildNodes[0];
  i:=0;
  while (e.ChildNodes.Count>i)and(f.Attributes['FieldName']<>'Number contract') do begin
   f:=e.ChildNodes[i];
   inc(i);
  end;
  ListBox1.Items.Add(f.NodeName+' '+f.NodeValue);
  n:=n.NextSibling;
 until n=nil;
end;
end.

Ключевые слова - XMLDocument1 DocumentElement и ChildNodes
Удачного поиска.

[osminog]

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

Понял
Из всех примеров работы с XML остался только корявастенький

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;

type
  TForm1 = class(TForm)
    XMLDocument1: TXMLDocument;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
{var e,n:IXMLNode;
begin
 XMLDocument1.LoadFromFile('D:\Ok\Aqua.xml');
 n:=XMLDocument1.DocumentElement.ChildNodes[0];
 if n<>nil then repeat
  e:=n.ChildNodes[1];
  ListBox1.Items.Add(e.NodeValue);
  n:=n.NextSibling;
 until n=nil;
end;
}
var f,e,n:IXMLNode;     i:integer;
begin
 XMLDocument1.LoadFromFile('C:\Documents and Settings\5097\Рабочий стол\B0000183.xml');
 n:=XMLDocument1.DocumentElement.ChildNodes[0];
 if n<>nil then repeat
  e:=n.ChildNodes[0];
  f:=n.ChildNodes[0];
  i:=0;
  while (e.ChildNodes.Count>i)and(f.Attributes['FieldName']<>'Number contract') do begin
   f:=e.ChildNodes[i];
   inc(i);
  end;
  ListBox1.Items.Add(f.NodeName+' '+f.NodeValue);
  n:=n.NextSibling;
 until n=nil;
end;
end.

Ключевые слова - XMLDocument1 DocumentElement и ChildNodes
Удачного поиска.

Спс, начало понятное. Будем копать дальше!

[astecenko]

Много примеров и вариантов обработки XML есть тут