Steuerzeichen-String umwandeln in "echtes" Steuerzeichen

[Der schöne Günther]

Zitat von bogdan:

Deshalb ist es wichtig, dass ich das Steuerzeichen-String in ein "echtes" Steuerzeichen umwandeln kann.

Gibt es keine Funktion wie zb. "StringToSteuerZeichen"?

Ich habe dir drei Möglichkeiten gezeigt.


Oder meinst du dass du, aus welchen Gründen auch immer, Strings (z.B. '#1234') schon vorliegen hast und diese nun zu Chars (z.B. #1234) machen möchtest?


//// Edit

Bist du sehr sicher mit diesen "großen" Zahlen? Der Delphi-Typ "Char" ist anscheinend fest ein Word (also von 0-65535). Die Länge von alien: String = '��'; gibt Delphi lustigerweise auch mit 2 an, denn es sind zwei Character, vier Byte.

(http://www.fileformat.info/info/unic...f47d/index.htm)


// Edit2
Die Delphi-Praxis macht auch aus dem Alien-Emoji zwei Fragezeichen (der Browser konnte es). Delphi ist also nicht die einzige Software auf dem Planeten für die das zu spacig ist.

[bogdan]

nahpets:

Diese Variante habe ich aktuell im Code:

Zitat:

const
sZeichen : Array [1..3] of Char = (#128064, #128125, #128148);

Das Problem ist nur, dass ich bei jedem neuen ungewollten Zeichen den Quellcode erweitern muss.

Günther:

Zitat:

Strings (z.B. '#1234') schon vorliegen hast und diese nun zu Chars (z.B. #1234) machen möchtest?

ja, genau!

samso:

Zitat:

Result := Char(StrToInt(copy(s, 2, MaxInt)));

Das sollte der richtige Ansatz sein. Funktioniert leider nur bis #255.

[Der schöne Günther]

Gut, dann habe ich es jetzt erst richtig verstanden, sorry

Aber wie gesagt: Ein Char nimmt eh maximal 65535 auf. Um deinen Wert abzuspeichern bräuchtest du zwei Character.

[bogdan]

Zwei Character?
Wie soll das funktionieren?
Result := Char() + Char()

[nahpets]

Zitat von Der schöne Günther:

Oder meinst du dass du, aus welchen Gründen auch immer, Strings (z.B. '#1234') schon vorliegen hast und diese nun zu Chars (z.B. #1234) machen möchtest?

Genau da dürfte das Problem liegen:

Im Array steht '#1234', ersetzt werden soll aber #1234. Gesucht wird eine Methode, um aus '#1234' #1234 zu machen.

Einfacher wäre es, direkt ein Array mit Steuerzeichen zu machen, statt eine Array mit Zeichenfolgen, die so aussehen, wie Steuerzeichen im Delphiquelltext, wenn man deren mit # beginnenden Pedant nutzt.

Statt #1234 müsste doch auch Chr(1234) gehen, oder irre ich mich da?

In dem Fall könnte auch ein Array of Word (oder sowas) gehen und in der Ersätzroutine könnte es dann so aussehen:

Delphi-Quellcode:

const
  sZeichen : Array [1..3] of Word = (128064, 128125, 128148); 

sText := StringReplace(sText, Chr(128064), '', [rfReplaceAll, rfIgnoreCase]);

(Bitte nicht hauen, wenn ich mich da jetzt irre )

Ok, wenn das Ganze nun nicht im Quelltext sein soll, dann hilft das Array so ja auch nicht.
Also z. B. eine Datei, die in jeder Zeile eine "Zahl" enthält, also

Code:

128064
128125
128148

Die Datei einlesen und dann zeilenweise abarbeiten.

Sinngemäß ungefähr sowas?

Delphi-Quellcode:

var
  sl : TStringList;
  i : Integer;
  ch : WideChar;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('Steuerzeichen.cfg');
  for i := 0 to sl.Count - 1 do begin
    ch := WideChar(StrToInt(sl[i]));
    sText := StringReplace(sText, ch, '', [rfReplaceAll, rfIgnoreCase]); 
  end;
  sl.Free;
end;

Edit: Geht das bei aktuellen Delphis mit WideChar?
Laut Delphi-7-Hilfe handelt es sich um: "WideChar-Werte stellen Zeichen mit einer Länge von mehr als einem Byte dar."

[bogdan]

nahpets:
Genau in die Richtung soll es gehen, also aus einer Datei den String auslesen und in ein echtes Steuerzeichen umwandeln.

Aber wie der Günther schon schrieb habe ich das Problem, dass der Char max. 65535 aufnimmt und die Emoticons weit drüber liegen.

[Der schöne Günther]

Niemand zwingt uns ja mit Char zu arbeiten, vor allem da StringReplace(..) eh nur mit Strings arbeitet.

Ich persönlich habe es jetzt eine Weile versucht, aber ich scheitere ehrlich gesagt daran den String '128064' in einen String mit dem Alien-Emoji umzurechnen.

Ich dachte mache mir einen Integer mit dem Wert 128064, rechne das ein Byte-Array mit 4 Elementen und gebe das letztendlich an TEncoding.Unicode.GetBytes(meinArray) welches einen String liefert.

Leider klappt das auch nicht, das Byte-Array ist ein völlig anderes als

TEncoding.Unicode.GetBytes(stringMitAlienEmoji) liefert.


Wir brauchen einen Profi!

[samso]

Ja, das habe ich übersehen, dass wir es hier mit 4 Byte Unicode zu tun haben. Deshalb muss hier UCS4 zu UTF16 gewandelt werden. Damit das funktioniert wird Delphi ab 2009 benötigt.

Delphi-Quellcode:

function StringToSteuerZeichen(const s: String): String;
var
  C: Cardinal;
  sl, sh: Word;
begin
  C := StrToInt(copy(s, 2, MaxInt));
  if c>=$10000
  then begin
    dec(c, $10000);
    sl := c and $3FF;
    sl := sl or $DC00;  //$DC00 = $37 shl 10
    sh := c shr 10;
    sh := sh or $D800;  //$D800 = $36 shl 10
    SetLength(Result, 2);
    Result[1] := Char(sh);
    Result[2] := Char(sl);
  end
  else begin
    SetLength(Result, 1);
    Result[1] := Char(c);
  end;

Vielleicht bekommt ja irgend jemand heraus, wie man UCS4StringToUnicodeString benutzen muss, um zum richtigen Ergebnis zu kommen?

[bogdan]

samso:
Perfekt, es funktioniert

Vielen Dank an Alle für Eure Zeit.

[nahpets]

Heißt das, dass dashier funktioniert

Delphi-Quellcode:

var
  sl : TStringList;
  i : Integer;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('Steuerzeichen.cfg');
  for i := 0 to sl.Count - 1 do begin
    sText := StringReplace(sText, StringToSteuerZeichen(sl[i]), '', [rfReplaceAll, rfIgnoreCase]);
  end;
  sl.Free;
end;

wenn der Inhalt der Datei so

Code:

#128064
#128125
#128148

aussieht?