Klartext -> ANSI -> Klartext

[cruso]

Hi!

Ich möchte einen Text nach ANSI konvertieren und so anpassen, dass ich diesen einfach in HTML benutzen kann. Ich hab das so gelöst (funktioniert auch teilweise):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s:String; i:Integer;
begin
s:=Edit1.Text;
Memo1.Text:=s;
For i:=0 to 255 do begin
Memo1.text := StringReplace(Memo1.text, chr(i), '&#'+IntToStr(i)+';',[rfReplaceAll]);
end;
end;

Die Problemkinder sind die Zeichen: & # ;

Wenn man es im HTML-Dokument nachher wieder "zurückübersetzt" sieht merkt man das etwas nicht ganz funktioniert hat.


Wisst ihr, wie man das Problem lösen kann?



MfG
Cruso

[mkinzler]

Abgeseh, das ich nicht weiß was du eigentlich vorhast, könntest du die Problemzeichen zuerst konvertieren.

[cruso]

Und wie bekomme ich die Problemzeichen aus meiner For-Schleife raus?

[cruso]

Ich hab das jetzt so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s:String; i:Integer;
begin
s:=Edit1.Text;
Memo1.Text:=s;
For i:=0 to 255 do begin
if not (i=35) or (i=38) or (i=59) then
Memo1.text := StringReplace(Memo1.text, chr(i), '&#'+IntToStr(i)+';',[rfReplaceAll]);
end;
end;

Allerdings funktioniert das ganze immernoch nicht.

[Dax]

Delphi-Quellcode:

not (i=35) or (i=38) or (i=59)
//wird zu
not ((i=35) or (i=38) or (i=59))

[mkinzler]

Die Zeichen haben den Code 23, 26, 38

[Martin K]

Warum verwendest Du ein Integer als Zählvariable?
Das sind nur unnötige IntToStr-Unwandlungen die Resourcen fressen.

Mein Vorschalg:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i: Char; 
begin 
  Memo1.Text := Edit1.Text; 
  For i := Low(Char) to High(Char) do
    if not (i in [#35, #38, #59]) then
      Memo1.Text := StringReplace(Memo1.Text, i, '&#'+IntToStr(Ord(i))+';',[rfReplaceAll]); 
end;

//Edit:
Fehler korrigiert:
Eine IntToStr-Umwandlung brauch man doch - aber ich find's trotzdem so übersichtlicher.
Und wozu die zusätzliche String-Variable ist, ist mir auch unklar.

[Dax]

Zitat:

Zitat von mkinzler

Die Zeichen haben den Code 23, 26, 38

Nein, es sind 35, 38 und 59.

Zitat:

Zitat von Martin K

Mein Vorschalg:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i: Char; 
begin 
  Memo1.Text := Edit1.Text; 
  For i := Low(Char) to High(Char) do
    if not (i in [#35, #38, #59]) then
      Memo1.Text := StringReplace(Memo1.Text, i, '&#'+Ord(i)+';',[rfReplaceAll]); 
end;

Ord(i) == Byte(i) - ;)

[cruso]

Ich hab jetzt alles einmal ausprobiert, doch die Fehler schleichen sich bei allen Methoden ein.

[mkinzler]

Zitat:

mkinzler hat folgendes geschrieben:
Die Zeichen haben den Code 23, 26, 38
Nein, es sind 35, 38 und 59.

hab ausversehen die Hex-Werte gepostet.