Парсинг регуляркой RegExpr, запутался

[FleXik]

Вобщем имеется кусок XML странички, в котором есть два "блока" с данными (блок <items> и блок <profiles>). Мне нужно используя регулярку RegExpr спарсить все данные из тега <video>, то есть данные тега <from_id> и тега <date> и одновременно все данные из тега <user>, то есть данные тега <photo> и тега <name>. При этом во втором блоке данные идут вперемешку, но есть зацепка - одинаковые ID в тегах <from_id> и <id>. Т.е к одному ID идут должны одновременно спарситься теги <date>, <photo> и <name> за один проход цикла.

<response>
<items list="true">
<video>
<from_id>123</from_id>
<date>1559177700</date> 
</video>
<video>
<from_id>456</from_id>
<date>1559177701</date> 
</video>
<video>
<from_id>789</from_id>
<date>1559177702</date> 
</video>
</items>
------------------------------------------------
<profiles list="true">
<user>
<id>789</id>
<photo>https://албалбалб.com/</photo>
<name>Иван</name>
</user>
<user>
<id>123</id>
<photo>https://блаблабла.com/</photo>
<name>Анастасия</name>
</user>
<user>
<id>456</id>
<photo>https://балбалбал.com/</photo>
<name>Андрей</name>
</user>
</profiles>
</response>

[Alex11223]

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

Мне нужно используя регулярку RegExpr спарсить все данные из тега <video>

не нужно, возьмите XML парсер.

[FleXik]

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

не нужно, возьмите XML парсер.

можно пожалуйста пример реализации в виде кода или хотя-бы в текстовом виде как совместить два блока, учитывая одинаковый ID?

[JoLan]

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

не нужно, возьмите XML парсер.

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

можно пожалуйста пример реализации в виде кода или хотя-бы в текстовом виде как совместить два блока, учитывая одинаковый ID?

Очень рекомендую использовать XML.VerySimple: https://github.com/Dennis1000/verysimplexml

Его достаточно добавить в настройках library path вашей IDE и затем просто подключать в uses:

uses
//...
XML.VerySimple;

demo_thread_329191.png

Для написания кода использовал Delphi XE7. В этом коде нет проверок на существование узлов, их можно дописать самому. Неполный листинг для демонстрации компонента (полный проект во вложении):

TForm1 = class(TForm)
private
  FProfiles:  TArray<TProfileInfo>;
  procedure   FParseFile(Filename: String);
end;

//...

procedure TForm1.FParseFile(Filename: String);
var xml: TXMLVerySimple;
    profiles, videos: TXMLNodeList;
    profile_node, video_node: TXMLNode;
    last_profile_index: Integer;
    str_id: String;
begin
  xml := TXMLVerySimple.Create;
  xml.LoadFromFile(Filename);

  //создавать объект списка узлов не требуется,
  //так как метод FindNodes автоматически инициализирует экземпляр списка,
  //а вот освободить память нужно
  profiles := XML.ChildNodes.Find('response').Find('profiles').FindNodes('user');
  videos := XML.ChildNodes.Find('response').Find('items').FindNodes('video');

  last_profile_index := 0;
  SetLength(Self.FProfiles, profiles.Count);

  //перебираем все профили
  for profile_node in profiles do
  begin
    //Запоминаем айди пользователя, чтобы каждый раз не вызывать Find
    str_id := profile_node.Find('id').Text;

    //парсим текущий узел XML в нашу структуру
    Self.FProfiles[last_profile_index].Parse(profile_node);

    //Ищем в списке видео все записи, которые соответствуют айди пользователя
    for video_node in videos do
      if (video_node.Find('from_id').Text = str_id) then
        //И парсим этот узел в текущего пользователя
        Self.FProfiles[last_profile_index].AddVideo(video_node);

    Inc(last_profile_index);
  end;

  //Убираемся за собой
  profiles.Free;
  videos.Free;
  str_id := '';
  xml.Free;
end;

  TVideoInfo = record
    PostDate:   Integer;
    //При необходимости можно дополнить структуру и метод парсинга
    procedure   Parse(XMLNode: TXMLNode);
  end;

  TProfileInfo = record
    ID:         Integer;
    Photo:      String;
    Name:       String;
    Videos:     TArray<TVideoInfo>;
    //При необходимости можно дополнить структуру и метод парсинга
    procedure   Parse(XMLNode: TXMLNode);
    procedure   AddVideo(XMLNode: TXMLNode);
    procedure   Clear;
  end;

//...

procedure TVideoInfo.Parse(XMLNode: TXMLNode);
begin
  Self.PostDate := XMLNode.Find('date').Text.ToInteger();
end;

//...

procedure TProfileInfo.Parse(XMLNode: TXMLNode);
begin
  Self.ID := XMLNode.Find('id').Text.ToInteger();
  Self.Photo := XMLNode.Find('photo').Text;
  Self.Name := XMLNode.Find('name').Text;
end;

procedure TProfileInfo.AddVideo(XMLNode: TXMLNode);
var vCount: Integer;
begin
  vCount := Length(Self.Videos);
  SetLength(Self.Videos, vCount + 1);
  Self.Videos[vCount].Parse(XMLNode);
end;

procedure TProfileInfo.Clear;
begin
  Self.Photo := '';
  Self.Name := '';
  Self.Videos := [];
end;

[Alex11223]

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

Его достаточно добавить в настройках library path вашей IDE

не надо так делать, потом же после переустановки ОС или Дельфи не вспомните что куда добавлять.
Лучше положить библиотеки в папку проекта (например в папку lib) или рядом с ней, и в современных версиях Дельфи вроде в настройках проекта (которые в dproj сохраняются) есть про пути, там указать относительные пути (lib\verysimplexml).

[JoLan]

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

не надо так делать, потом же после переустановки ОС или Дельфи не вспомните что куда добавлять.
Лучше положить библиотеки в папку проекта (например в папку lib) или рядом с ней, и в современных версиях Дельфи вроде в настройках проекта (которые в dproj сохраняются) есть про пути, там указать относительные пути (lib\verysimplexml).

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

Если каждый раз при создании нового проекта его нужно настраивать и копировать все нужные файлы, - то это будет занимать какое-то время. Хорошо, если есть память и необходимо скопировать всего пару pas-файлов. Но такой подход неприменим к случаю, когда необходимо подключить десяток-другой компонент.

[Alex11223]

Обычно новые проекты (особенно требующие кучи библиотек) не так часто создаются.
И можно ж всегда скопировать настройки из старого.

Кроме переустановки своей ОС/Дельфи естественно другая важная причина — не получится легко передать проект другому человеку, ему тоже придется отдельно качать все либы, добавлять пути и т.д. + при совместной работе может получиться, что у вас будут разные версии какой-то либы, кто-то забудет передать какую-то либу и т.д.

Вообще в нормальных современных ЯП эти проблемы решаются менеджером зависимостей: npm, Composer, NuGet, Maven, pip и т.д.

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

необходимо скопировать всего пару pas-файлов

причем тут количество, у меня в примере все сторонние либы были в папке lib.

[ResourceSpace]

Когда я переустанавливаю - папка lib как бы тоже уничтожается... Смысл всё в ней держать?

[Alex11223]

Нет, она в папке проекта.

[FleXik]

JoLan, спасибо большое за код и потраченное время

может кто поделится примером парсинга на XMLDocument?