XML Nodevalue liefert leeres Ergebnis

[himitsu]

Zitat:

bringt bei MSXML leider nichts

Ähhhhhmmmmm, also die Hilfe sagt
https://learn.microsoft.com/en-us/pr...62632(v=vs.85)


Aber vielleicht bezieht es sich auch nur auf DTD via URL, welche dann nicht geladen werden. (das innerhalb der XML ist ja bereits geladen worden)


Oder eine andere Version des MSXML-DOM nutzen?
Aber eigentlich dürfte es aktuell bereits eine v6 sein.
https://learn.microsoft.com/en-us/pr...arser-versions


Nja, man könnte notfalls vorher noch böse mit StringReplace oder RegEx am XML-Text rumpfuschen ,
also das Störende auskommentieren oder rauslöschen.
<!DOCTYPE zu <!--DOCTYPE
]> zu ]-->



Oder es alternativ mit ISAXXMLReader versuchen
und dort könnte man sich dann auch via ISAXDTDHandler noch reinhängen und es abfangen, falls es dort ebenfalls knallt.

Oder halt eine andere XML-Lib (gibt auch welche in Delphi geschrieben, wo sich fast niemand die Mühe gemacht hat DTD überhaupt zu implementieren ).

[Alfonso]

Vielen Dank für eure Unterstützung. Habe mich für MSXML entschieden und mit diese Proc die Entities gelöscht.

Delphi-Quellcode:

procedure TForm2.EntityLöschen(var s: string);
begin
  s := stringreplace(s, ' ', ' ', [rfReplaceAll]);
  s := stringreplace(s, '–', '-', [rfReplaceAll]);
  s := stringreplace(s, '<!DOCTYPE CUSTOMER'#13''#10'['#13''#10'<!ENTITY nbsp "*">'#13''#10''#13''#10'<!ENTITY ndash "–">'#13''#10']>', ' ', [rfReplaceAll]);
end;

[himitsu]

Die Leerstrings '' im Text sind unnötig
und es gibt ein StringReplace für Schreibfaule.

StringReplace
ReplaceStr
ReplaceText
string.Replace

Delphi-Quellcode:

procedure TForm2.EntityLöschen(var s: string);
begin
  s := ReplaceStr(s, ' ', ' ');
  s := ReplaceStr(s, '–', '-');
  s := ReplaceStr(s, '<!DOCTYPE CUSTOMER'#13#10'['#13#10'<!ENTITY nbsp "*">'#13#10#13#10'<!ENTITY ndash "–">'#13#10']>', ' ');
end;

Delphi-Quellcode:

procedure TForm2.EntityLöschen(var s: string);
begin
  //s := s.Replace(' ', ' ');
  //s := s.Replace('–', '-');
  //s := s.Replace(s, '<!DOCTYPE CUSTOMER'#13#10'['#13#10'<!ENTITY nbsp "*">'#13#10#13#10'<!ENTITY ndash "–">'#13#10']>', ' ');
  s := s.Replace('&nbsp;', ' ').Replace('&ndash;', '-').Replace(s, '<!DOCTYPE CUSTOMER'#13#10'['#13#10'<!ENTITY nbsp "*">'#13#10#13#10'<!ENTITY ndash "–">'#13#10']>', ' ');
end;

[Alfonso]

... und wieder was gelernt.
Danke!