XML-Datei mit laz2_DOM etc. auslesen und kürzen

[Cybermonkey342]

Hallo zusammen,

ich habe mal die Frage an die XML-Experten, ob es grundsätzlich möglich ist, einzelne Nodes komplett zu löschen. Hintergrund ist, dass eine andere Software eine XML-Datei erstellt und dabei Duplikate fabriziert. Somit kann die Datei durchaus über 30.000 Zeilen umfassen. Alle Duplikate müssen dann per Hand gelöscht werden. Das wäre nicht weiter schlimm, doch sind die auch durcheinander, womit man nicht einfach runderscrollen und löschen kann.
Die Datei sieht Ausschnittsweise so aus:

Code: Alles auswählen

<Formular>
		<UserName>BestellungNeu</UserName>
		<RefFormular>Drucker</RefFormular>
		<Active>0000000001</Active>
		<ChangeTarget>Nein</ChangeTarget>
		<IndexPerm>0000003011</IndexPerm><TempIndex>0000003011</TempIndex>
</Formular>
<Formular>
		<UserName>BestellungAlt</UserName>
		<RefFormular>Drucker</RefFormular>
		<Active>0000000001</Active>
		<ChangeTarget>Nein</ChangeTarget>
		<IndexPerm>0000003012</IndexPerm><TempIndex>0000003012</TempIndex>
</Formular>
<Formular>
		<UserName>BestellungNeu</UserName>
		<RefFormular>Drucker</RefFormular>
		<Active>0000000001</Active>
		<ChangeTarget>Nein</ChangeTarget>
		<IndexPerm>0000003013</IndexPerm><TempIndex>0000003013</TempIndex>
</Formular>

Ich möchte nun also erreichen, dass mein Programm erkennt, dass das Formular "BestellungNeu" z.B. 247x vorhanden ist und 246x aus der Datei gelöscht werden kann, aber nicht "BestellungAlt". Reichen mir dazu die laz2_DOM und laz2_XMLRead/Write etc. Units aus?

[Winni]

Hallo!

Ich hasse ja das XML-Zeugs.

Wenn es nicht zu kompliziert ist, dann baue ich einen Mini-Parser für den jeweiligen Zweck.
Mach ich mit dem SEPA-Zeug genauso.

Hier ist eine kleine Stringlist-Anwendung für Dich.

1 mal "BestellungNeu" bleibt erhalten, der Rest wird gelöscht.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
const xml = './test.xml';
var sl : TstringList;
    start,stop,i,k : integer;
    count: Integer = 0;
begin
sl := TStringList.Create;
sl.loadFromFile(xml);
for i := sl.Count - 1 downto 0 do
   begin
   if pos ('</Formular>',sl[i]) > 0 then stop := i;
   if pos ('<Formular>',sl[i]) > 0 then
      begin
        start := i;
        if pos ('BestellungNeu',sl[i+1]) > 0 then
          begin
          inc(Count);
          if count > 1 then
             begin
             for k := stop downto start do sl.delete (k);
             end; // > 1
          end; // BestellungNeu
        end; // begin Formular
   end; //for

showMessage ('BestellungNeu: '+IntToStr(count));
sl.saveToFile('./test_neu.xml');
sl.free;
end;

Den bzw. die Dateinamen musst Du natürlich anpassen.

Winni

[Cybermonkey342]

Danke dafür, das schaue ich mir mal an. Ich hatte auch schon an einen eigenen Parser gedacht. Allerdings möchte ich dem Anwender die Möglichkeit geben, dass er die zu löschendenen Formulare z.B. in einer TListview vorher auswählen kann. Aber ich denke, damit komme ich schon weiter.

[BeniBela]

In XQuery kann man sowas in einer Zeile machen, von jedem Namen das erste Vorkommen kopieren:

Code: Alles auswählen

for $formular in doc("/tmp/test.xml")/*/Formular group by $username := $formular/UserName return $formular[1]		

Mit meinen Internet tools kann man das in fpc ausführen:

Code: Alles auswählen

writeln(query('<output>{for $formular in doc($_1)/*/Formular group by $username := $formular/UserName return $formular[1]}</output> ', ['/tmp/test.xml']).toNode.outerXML());

[reiter]

Dein link geht aber ins leere bei github

Gruß
Reiter

[Socke]

Da fehlt nur ein "s": https://github.com/benibela/internettools