Einzelnen Beitrag anzeigen

creehawk

Registriert seit: 1. Jul 2013
Ort: Hamburg
223 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: XML Knoten holen

  Alt 3. Aug 2023, 11:34
So geht's..... als MischMasch aus XML und Strings.

Delphi-Quellcode:
begin
  ChainTexts := TStringlist.Create;
  ResultStrings := TStringlist.Create;
  ChainList := CoDOMDocument.create;
  ChainList.Load(ORGPath + 'ProductionChain.xml');
  ChainRoot := ChainList.DocumentElement;
  ChainUnits := ChainRoot.childNodes; // 128 Einträge
  BuildingShortList := CoDOMDocument.create;
  BuildingShortList.Load(XMLPath + 'BuildingsShort.xml');
  BuildingShortRoot := BuildingShortList.DocumentElement;
  BuildingShortNodes := BuildingShortRoot.childNodes; // 207 Einträge
  for I := 0 to BuildingShortNodes.Length-1 do
   begin
   GUID := BuildingShortNodes.item[I].attributes[0].text;
   for II := 0 to Chainunits.length-1 do
     begin
      ChainTexts := TStringlist.Create;
      ChainGUID := ChainUnits.item[II].SelectSingleNode('Values/Standard/GUID').text;
      ChainTexts.Add(ChainUnits.item[II].XML);
      for III:= 0 to ChainTexts.Count -1 do
        begin
          if AnsiPos(GUID, ChainTexts.Strings[III]) > 0 then ResultStrings.Add(ChainGUID + '#' + GUID)
        end;
     end;
  end;
  ResultStrings.SaveToFile(TMPPath + 'ChainGUIDs.txt');
end;
Aber schön ist anders.

creehawk
  Mit Zitat antworten Zitat