Umlaute in HTML konforme Texte konvertieren

[kaju74]

Hallo.

Habe zwar gesucht, das Richtige war aber irgendwie nicht dabei (oder ich sollte schleunigst in's Bett 8-).

Gibt es eine Delphi-Routine, mit der ich einen String, der Umlaute enthält, in's HTML-Derivat umwandeln kann?

Also z.B. "Änderung" in "Änderung"?

In der HTTPApp-Unit gibt's zwar eine Routine, die das macht, allerdings nur teilweise für Sonderzeichen und
nicht direkt für Umlaute.

Danke & Gruß,
- kaju

[s.h.a.r.k]

Ich würde das selbst via StringReplace machen. Muss auch zugeben, dass ich keine andere Methode kenne, die das machen würde :mrgreen:

[kaju74]

Hallo.

Danke...das wäre natürlich die Alternativ...dachte, vielleicht gibt's mittlerweile auch was "natives", das ich noch nicht kenne...8-)

Lieben Gruß,
- kaju

[DeddyH]

Nur eine spontane Idee:

Delphi-Quellcode:

function Umlaute2HTML(const Text: string): string;
var strStream: TStringStream;
    i: integer;
begin
  strStream := TStringStream.Create('');
  try
    for i := 1 to Length(Text) do
      case Text[i] of
        'ä': strStream.Write('ä',6);
        'Ä': strStream.Write('Ä',6);
        'ö': strStream.Write('ö',6);
        'Ö': strStream.Write('Ö',6);
        'ü': strStream.Write('ü',6);
        'Ü': strStream.Write('Ü',6);
        else
          strStream.Write(Text[i],1);
      end;
    Result := strStream.DataString;
  finally
    strStream.Free;
  end;
end;

[kaju74]

Danke...dann werde ich das erstmal so nehmen...

Lieben Gruß,
- kaju

[Matze]

Denke aber daran, dass es da weitaus mehr gibt. Bei normalem Text wären evtl. ß (= &szlig;), & (= &amp;), < (= &lt;), > (= &gt;) und € (= &euro;) noch sinnvoll.
Die anderen Sonderzeichen wie © (= &copy;) & Co. werden in normalen Text wohl nicht vorhanden sein.

[kaju74]

Ja danke...da das für ein "internes" Tool ist, weiß ich, das solche Zeichen nicht vorkommen...deshalb ja auch die Frage, ob's da nicht was fertiges (von Delphi) gibt, das dann auch schön alles unterstützt....

Lieben Gruß,
- kaju

[p80286]

warum nicht mit UTF8encoding den entsprechenden String erstellen?

Dieses "Schlabbern" von Zeichen führt früher oder später zu Ärger und dann sucht man sich einen Wolf weil bisher doch alles so wunderbar funktionierte.

Gruß
K-H

[kaju74]

Blöde Frage, aber wie soll das gehen?

Gruß,
- kaju

[p80286]

entschuldige, ich hatte mich vergaloppiert, UTF8Encode ist natürlich nicht Deine Lösung.

Gruß
K-H

edit:
hilft Dir das vllt. weiter:

Delphi-Quellcode:

if length(ins)>0 then
    for i:=1 to length(ins) do
      if ord(ins[i])<128 then begin    { ist ASCII-Zeichen }
        if ord(ins[i])>$2F then begin
          case ins[i] of               { noch ein paar Sonderzeichen }
            ':' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            ';' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            '<' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            '=' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            '>' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            '?' : dumm:='&#'+inttostr(ord(ins[i]))+';';
            else dumm:=ins[i];
          end;{case-------------------------------}
          dummy:=dummy+dumm;
        end
        else begin                     { ist ASCII-Sonderzeichen }
          dumm:='&#'+inttostr(ord(ins[i]))+';';
          dummy:=dummy+dumm;
        end
      end {----                          7-Bit Zeichen}
      else begin                       {ist 8Bit Zeichen }
        dumm:='&#'+inttostr(ord(ins[i]))+';';
        dummy:=dummy+dumm;
      end;

[freimatz]

Sorry - das ist doch Müll, da steht immer "dumm:='&#'+inttostr(ord(ins[i]))+';'; ".
Zur Ausgangsfrage: die unit JvStrToHtml (denke von JCL http://www.delphi-jedi.org/) hat so was. Nicht besonders schnell aber richtig(er).

[himitsu]

Jupp, mehrfacher Code ist nicht schön:

Hier eine Übersetzungshilfe: links das Zeichen und in der Mitte der HTML-"Code"
http://www.selfhtml.net/html/referenz/zeichen.htm


PS:
http://www.delphipraxis.net/internal...=139237#139237
http://www.delphipraxis.net/internal...034468#1034468
http://www.delphipraxis.net/internal...ct.php?t=61265
usw.

[mjustin]

Zitat:

Zitat von kaju74

Also z.B. "Änderung" in "&Auml;nderung"?

Inzwischen unterstützen alle gängigen Browser UTF-8 kodiertes HTML, daher würde ich Texte mit UTF8Encode umwandeln. Vorteil: das funktioniert auch, falls die Anwendung mal in anderen Ländern eingesetzt wird und dortige Sonderzeichen unterstützen muss.

Den HTML Code kann man auch mit TXMLDocument und Co. erzeugen, und als XHTML deklarieren, dann muss man sich auch keine Sorgen um < > und & mehr machen...

[himitsu]

Dennoch sollten Steuerzeichen richtig codiert sein!

Code:

" = "
& = &
< = &lt;
> = &gt;