6. Dezember 2013 13:01
7. Dezember 2013 12:45
9. Dezember 2013 10:31
13. Dezember 2013 12:33
13. Dezember 2013 13:10
JoergR hat geschrieben:Oder gleich über eine automation Instanz erzeugen...
13. Dezember 2013 13:24
21. November 2017 10:43
Name DataType Subtype Length
XMLDocument DotNet System.Xml.XmlDocument.'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
XMLNode DotNet System.Xml.XmlNode.'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
XMLNodeList DotNet System.Xml.XmlNodeList.'System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
i Integer
RemoveEmptyNodes(TempServerFile : Text)
XMLDocument := XMLDocument.XmlDocument();
XMLDocument.Load(TempServerFile);
XmlNodeList := XMLDocument.SelectNodes('//*[not(string-length(normalize-space())) and not(string-length(normalize-space(@*)))]');
for i := XmlNodeList.Count - 1 downto 0 do begin
XmlNode := XmlNodeList.Item(i);
XmlNode.ParentNode.RemoveChild(XmlNode);
end;
XMLDocument.Save(TempServerFile);
<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<ORDERS05>
<IDOC BEGIN="">
<EDI_DC40 SEGMENT="">
<TABNAM>EDI_DC40</TABNAM>
<MANDT />
<DOCNUM>123456789</DOCNUM>
<DOCREL />
</EDI_DC40>
<E1EDK01 SEGMENT="">
<ACTION />
<KZABS />
</E1EDK01>
<E1EDK14 SEGMENT="nicht löschen">
<QUALF />
<ORGID />
</E1EDK14>
</IDOC>
</ORDERS05>
<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<ORDERS05>
<IDOC BEGIN="">
<EDI_DC40 SEGMENT="">
<TABNAM>EDI_DC40</TABNAM>
<DOCNUM>123456789</DOCNUM>
</EDI_DC40>
<E1EDK14 SEGMENT="nicht löschen">
</E1EDK14>
</IDOC>
</ORDERS05>