Парсинг XML

Vayrus · #1 07.04.2019, 12:36

Приветствую, в XML не силен, нужно спарсить данные с файла сигнатур, набросал код с использование компонента SimpleXML, но выдает не все данные и с множеством пустых строк:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  aDoc: IXmlDocument;
  anElem2: IXmlNode;
  rez: array of string;
  i: integer;
 
  procedure PrintNode(Node: IXmlNode);
  var
    str: string;
    j: word;
    NodeList: IXmlNodeList;
  begin
      Memo2.Lines.Add(trim(Node.GetAttr('name')));
    Memo2.Lines.Add(trim(Node.GetChildText('ext')));
    NodeList := Node.ChildNodes;
    if NodeList.Count > 0 then
      for j := 0 to NodeList.Count - 1 do
        PrintNode(NodeList.Item[j]);
  end;
begin
 // Создаем пустой документ XML
  aDoc := CreateXmlDocument;
 // Считываем из файла
  aDoc.Load(ExtractFilePath(ParamStr(0)) + '\mime-types.xml');
   PrintNode(aDoc);
end;

Код HTML:

-<mime-types>
<!-- ! Application primary type ! -->
-<mime-type name="application/andrew-inset">
<ext>ez</ext>
</mime-type>
-<mime-type name="text/html" description="Hypertext Markup Language (HTML)">
<ext>htm</ext>
<ext>html</ext>
<magic value="<HEAD" offset="0"/>
<magic value="<head" offset="0"/>
<magic value="<TITLE" offset="0"/>
<magic value="<HEAD" offset="0"/>
<magic value="<!doctype html" offset="0"/>
<magic value="<!DOCTYPE HTML" offset="0"/>
<magic value="<html" offset="0"/>
<magic value="<HTML" offset="0"/>
<magic value="<H1" offset="0"/>
<magic value="<h1" offset="0"/>
</mime-type>

lmikle · #2 07.04.2019, 18:57

Вот через стандатрный TXMLDocument:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  doc : IXmlDocument;
  rootNode : IXMLNode;
  I,J : Integer;
begin
  Memo1.Lines.Clear;
  doc := TXMLDocument.Create(Nil);
  Try
    doc.LoadFromFile('c:\work\xml.xml');
    doc.Active := True;
    rootNode := doc.ChildNodes.FindNode('mime-types');
    for I := 0 To rootNode.ChildNodes.Count-1 Do
      If rootNode.ChildNodes[i].NodeName = 'mime-type' Then
        Begin
          Memo1.Lines.Add(rootNode.ChildNodes[i].Attributes['name']);
          For J := 0 To rootNode.ChildNodes[i].ChildNodes.Count-1 Do
            If rootNode.ChildNodes[i].ChildNodes[J].NodeName = 'ext' Then
              Memo1.Lines.Add('  ' + rootNode.ChildNodes[i].ChildNodes[J].NodeValue);
        End;
 
  Finally
    doc := Nil;
  End;
end;

ЗЫ. Твой xml не правильный.
1. Он не закрыт (ну тут подозреваю, что ты просто скопировал только кусок.
2. Символ '<' недопустим внутри значения. Заменить на '<'
3. Ну и тире убрать перед тегами mime-type (как я понял, это ты просто отметил типа корневые).

Vayrus · #3 08.04.2019, 10:09

Да, ты все правильно понял, насчет кода, проверю, отпишусь, пока накидал собственный парсер

lmikle · #4 08.04.2019, 20:07

Дык эта, я ж на твоем примере и проверил.
Всего вывел 5 строк.

Vayrus · #5 09.04.2019, 19:51

Вот такие заморочки там встречаются, пытаюсь победить "offset", "type", "value":

Код HTML:

<?xml version="1.0" encoding="UTF-8"?>

<mime-types>

    <mime-type name="application/andrew-inset">
        <ext>ez</ext>
    </mime-type>

    <mime-type name="application/pdf"
               description="Portable Document Format (PDF)">
        <ext>pdf</ext>
        <magic offset="0" value="%PDF-"/>
    </mime-type>

    <mime-type name="application/vnd.mif"
               description="FrameMaker Interchange Format">
        <ext>mif</ext>
        <magic offset="0" type="byte" value="3c4d494646696c6520"/>
    </mime-type>

    <mime-type name="application/postscript"
               description="PostScript (PS)">
        <ext>ps</ext><ext>ai</ext><ext>eps</ext>
        <magic offset="0" value="%!"/>
        <magic offset="0" value="\004%!"/>
    </mime-type>

</mime-types>

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  doc: IXmlDocument;
  rootNode: IXMLNode;
  I, J: Integer;
  S: string;
begin
  Memo1.Lines.Clear;
  doc := TXMLDocument.Create(nil);
  try
    doc.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'mime-types.xml');
    doc.Active := True;
    doc.ChildNodes.FindNode('mime-types');
    rootNode := doc.ChildNodes.FindNode('mime-types');
    if rootNode.ChildNodes.Count = 0 then
      EXIT;
    for I := 0 to rootNode.ChildNodes.Count - 1 do
    begin
      if rootNode.ChildNodes[i].NodeName = 'mime-type' then
      begin
        Memo2.Lines.Add(rootNode.ChildNodes[i].Attributes['name']);
        if rootNode.ChildNodes[i].HasAttribute('description') then//added
          Memo2.Lines.Add(rootNode.ChildNodes[i].Attributes['description']);//added
        for J := 0 to rootNode.ChildNodes[i].ChildNodes.Count - 1 do
        begin
          if rootNode.ChildNodes[i].ChildNodes[J].NodeName = 'ext' then
            Memo2.Lines.Add('  ' + rootNode.ChildNodes[i].ChildNodes[J].NodeValue);
            //
//added, not worked
          if rootNode.ChildNodes[i].ChildNodes[J].NodeName = 'magic' then
          begin
          if rootNode.ChildNodes[i].HasAttribute('offset') then
            s := rootNode.ChildNodes[i].Attributes['offset'];
            if rootNode.ChildNodes[i].HasAttribute('type') then
              s := S + '/' + rootNode.ChildNodes[i].Attributes['type'];
            if rootNode.ChildNodes[i].HasAttribute('value') then
              s := S + '/' + rootNode.ChildNodes[i].Attributes['value'];
            Memo2.Lines.Add(s);
          end;
          //
        end;
        Memo2.Lines.Add('------------------------------------');
      end;
    end;
  finally
    doc := nil;
  end;
end;

lmikle · #6 10.04.2019, 01:05

Угу, не работает. Потому что у не того тега смотришь

Нужно:

Код:

...
         if rootNode.ChildNodes[i].ChildNodes[J].HasAttribute('offset') then
            s := rootNode.ChildNodes[i].ChildNodes[J].Attributes['offset'];
...

Vayrus · #7 10.04.2019, 12:14

Спасибо, выручил

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  doc: IXmlDocument;
  rootNode: IXMLNode;
  i, J: integer;
  s: string;
begin
  Memo2.Lines.Clear;
  doc := TXMLDocument.Create(nil);
  try
    doc.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'mime-types.xml');
    doc.Active := true;
    doc.ChildNodes.FindNode('mime-types');
    rootNode := doc.ChildNodes.FindNode('mime-types');
    if rootNode.ChildNodes.Count = 0 then
      EXIT;
    for i := 0 to rootNode.ChildNodes.Count - 1 do
    begin
      if rootNode.ChildNodes[i].NodeName = 'mime-type' then
      begin
        Memo2.Lines.add(rootNode.ChildNodes[i].Attributes['name']);
        if rootNode.ChildNodes[i].HasAttribute('description') then
          Memo2.Lines.add(rootNode.ChildNodes[i].Attributes['description']);
        for J := 0 to rootNode.ChildNodes[i].ChildNodes.Count - 1 do
        begin
          if rootNode.ChildNodes[i].ChildNodes[J].NodeName = 'ext' then
            Memo2.Lines.add('  ' + rootNode.ChildNodes[i].ChildNodes[J]
              .NodeValue);
          //
          if rootNode.ChildNodes[i].ChildNodes[J].NodeName = 'magic' then
          begin
            s := '';
            if rootNode.ChildNodes[i].ChildNodes[J].HasAttribute('offset') then
              s := rootNode.ChildNodes[i].ChildNodes[J].Attributes['offset'];
            if rootNode.ChildNodes[i].ChildNodes[J].HasAttribute('type') then
              s := s + '/' + rootNode.ChildNodes[i].ChildNodes[J].Attributes['type'];
            if rootNode.ChildNodes[i].ChildNodes[J].HasAttribute('value') then
              s := s + '/' + rootNode.ChildNodes[i].ChildNodes[J].Attributes['value'];
            Memo2.Lines.add(s);
          end;
          //
        end;
        Memo2.Lines.add('------------------------------------');
      end;
    end;
  finally
    doc := nil;
  end;
end;

lmikle · #8 10.04.2019, 19:38

Вообще, если xml большой, то рекомендую сделать временную переменную, что бы на каждой итерации не "разрешать" колбасу вида
rootNode.ChildNodes[i].ChildNodes[J]
Быстрее работать будет. Но это для реально больших файлов.
Ну а для очень больших уже придется искать SAX парсер. Там по другому надо код строить немного.

Vayrus · #9 11.04.2019, 10:31

ок, принял, спасибо

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты