Delphi-PRAXiS - Stellen in HTML File durch Edit Feld ersetzen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Stellen in HTML File durch Edit Feld ersetzen (https://www.delphipraxis.net/81155-stellen-html-file-durch-edit-feld-ersetzen.html)

Stellen in HTML File durch Edit Feld ersetzen

Hallo

Ich habe eine spezielle Frage....

Mein Prgramm lädt von einem FTP Server eine php Datei Herunter welche danach in txt umgewandelt wird und in ein Memo eingefügt wird....

Nun das Problem:

Durch klick eines Buttons sollen bestimmte stelle in dem Memo durch die eingabe von einem Edit Feld ersetzt! Werden.

der inhalt des Memos wird so aussehen

Code:

			<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Unbenanntes Dokument</title>

<style type="text/css">

<!--

body {

   background-color: #CCCCCC;

}

.Stil1 {font-family: Arial, Helvetica, sans-serif}

-->

</style></head>

<body>

<p class="Stil1">Welcome to your CashCard Account</p>

<p class="Stil1"></p>

<p class="Stil1"></p>

<p class="Stil1">Letzte Abbuchung: 0.00

Datum: 0.0.0000 </p>

<p class="Stil1">Letzte Aufladung: 0.10

  Datum: Willkommens Betrag

</p>

<p class="Stil1">[b]Dein Guthaben Betr&auml;gt: 0.10[/b]

Datum: 21.11.2006</p>

<p class="Stil1"></p>

<p class="Stil1">Benutzerdaten:</p>

<p class="Stil1">Muster Max

  MusterStrasse 4

  4444 Muster

</p>

</body>

</html>

Das was Geänder werden Soll durch ein Edit ist Muster Max, Muster Strasse, 4444 Muster, Alle Datum inkl. Willkommens Betrag und die Werte bei den Guthaben.

Eben ich weiss nicht wie ich den text der so in einer Memo steht durch einen text von einem Edit wersetzen lassen kann. bitte um hilfe

vielen dank.

liebe grüsse
Claudio

Re: Stellen in HTML File durch Edit Feld ersetzen

Hallo Claudio,

eine gute Vorbereitung für dein Vorhaben wäre es, wenn du die zu ersetzenden Stellen angemessen markieren würdest:

Code:

<p class="Stil1">Letzte Abbuchung: <span id="LetzteAbbuchung">0.00</span>

Wenn du den markup code dann mittels DOM verarbeitest, dann ist das Ersetzen ganz leicht:

Delphi-Quellcode:

			procedure ReplaceContent(doc: IHTMLDocument3; const id, content: String);

var

  e: IHTMLElement;

begin

  e := doc.getElementById(id);

  if Assigned(e) then

    e.innerText := content;

end;

Im angehängten Beispiel habe ich den WebBrowser verwendet, aber an anderer Stelle habe ich auch schon einmal gezeigt, wie man XHTML markup ohne visuelle Komponente verarbeiten kann. Die URL-Konstante muss natürlich an deine lokalen Verhältnisse angepasst werden.

Freundliche Grüße vom marabu