Russischen (kyrillischen) Text umwandeln

[MartinK]

Bitte verzeiht mir meine vermutlich banale Frage, denn die Suchfunktion und etwas googeln haben mir leider nicht wirklich geholfen.

Ich würde die gerne Zeichen eines russischen(Kyrillischen) Text in normalen Text (lateinisch?) umwandeln.
Das kann doch kein Hexenwerk sein......

Also zB.: Сергеев -> Sergeev

Danke und vG
Martin
...der vermutlich den Wald vor lauter Bäumen nicht sieht...

[Andreas13]

Hallo Martin,
https://www.deepl.com/translator schafft es ohne Probleme.
Gruß, Andreas

[Uwe Raabe]

Geht es um die Übersetzung oder lediglich um die Schreibweise? Für Letzteres gäbe es das hier: https://de.wikipedia.org/wiki/Translit

Zitat:

Translit ist eine Methode, um kyrillische Schrift mit lateinischen Buchstaben darzustellen.

[MartinK]

Translit würde mir genügen, da es mir nur um eine "Konvertierung von Usernamen" mit kyrillischem Text geht.

DeepL: ich habe zwar sogar eine Pro-Version welche mir vollen API-Zugriff geben würde. Für diesen Zweck ist mir das aber dann doch etwas too much.

[himitsu]

Wenn es nur um halbwegs "lesbare" Namen geht, dann könntest du dir auch was mit StringReplace, bzw. mit einer kleine Lookuptabelle (Array) basteln, für die paar kyrillischen "Buchstaben".

[MartinK]

Ich hab mir jetzt mal kurz was gebastelt. Sicher nicht perfekt... aber für mich ausreichend.
Danke nochmal für die Tipps!

Delphi-Quellcode:

Function Transcript_Russian2LatinChars(aString:String):String;
Type
  TStringArray = array of String;
var
 R,L: TStringArray;
 I:Integer;
begin
  //Russian Chars
  R:=TStringArray.Create('А','Б','В','Г','Д','Е','Ё','Ж','З','И','І','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ч','Ш','Щ','Ъ','Ы','Ь','Э',         //Capitals
                         'а','б','в','г','д','е','ё','ж','з','и','і','й','к','л','м','н','о','п','р','с','т','у','ф','х','ч','ш','щ','ъ','ы','ь','э');        //Small letters
  //Latin Chars/Strings
  L:=TStringArray.Create('A','B','V','G','D','E','E','Zh','Z','I','I','I','K','L','M','N','O','P','R','S','T','U','F','Kh','Ch','Sh','Shch','ʺ','Y','ʹ','E',  //Capitals
                         'a','b','v','g','d','e','e','zh','z','i','i','i','k','l','m','n','o','p','r','s','t','u','f','kh','ch','sh','shch','ʺ','y','ʹ','e'); //Small letters

  for I := 1 to Length(R) do
    begin
      aString := stringreplace(aString, R[i-1], L[i-1], [rfReplaceAll]);
    end;

  Result := aString;
end;