Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#10

AW: XML Nodevalue liefert leeres Ergebnis

  Alt 1. Aug 2024, 00:18
Die Leerstrings '' im Text sind unnötig
und es gibt ein StringReplace für Schreibfaule.

Delphi-Referenz durchsuchenStringReplace
Delphi-Referenz durchsuchenReplaceStr
Delphi-Referenz durchsuchenReplaceText
Delphi-Referenz durchsuchenstring.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('&nbsp;', ' ');
  //s := s.Replace('&ndash;', '-');
  //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;
$2B or not $2B

Geändert von himitsu ( 1. Aug 2024 um 00:22 Uhr)
  Mit Zitat antworten Zitat