unicode to ansi

[Евгений79]

Как перевести текст такого вида \u0410\u0440\u0432\u0440\ в ansi ?
Я конечно могу создать массив с таблицей соответствий \u0410 = А и перебором все перекодировать. Но боюсь люди усомнятся в моей ориентации.

[p51x]

http://www.google.ru/search?client=o...hannel=suggest

[Евгений79]

Не помогает что-то, не могу врубиться.
У меня есть обычный текстовый файл, в нем русские буквы закодированы таким образом \u0410\u0440\u0432\u0440\.
Я загружаю текст из файла в переменную text: String;
Что дальше делать?

[Пепел Феникса]

берете блок \u0410, далее выделяете число.
его в WideString загоняете(через Chr вродь)
и тп.
в конце берете String:=WideString
поидее должно все норм быть

[Евгений79]

Delphi syntax:
function Chr(X: Byte): Char;

var
uni: WideString

Так? Но ведь можно только 1 байт. Хотя ошибка не возникает.
uni:= chr(0410);

String:=uni - выдает какую-то закорючку, должна быть "А".

[Swarog]

// code: \uXXXX
function DecodeCahr (Code: string):WideChar;
 begin
  code := '$' + copy(code,3,4);
  result := widechar(strtoint(code));
 end;
begin
 ShowMessage(DecodeCahr('\u0410'));
end;

в подпрограмму скармливать по одному коду в формате \uXXXX

[Евгений79]

Супер! Огромное спасибо.

[xrob]

я серьезно, а чем плох вариант с массивом?
долго? или принципиально не круто?

[Serge_Bliznykov]

а чем плох вариант с массивом?

1) тем, что это как минимум чрезвычайно ТРУДОЗАТРАТНО!
2) гарантированно в вашем массиве не будет хватать символов, которые есть в WideChar - т.е. функция будет работать криво на некоторых кодовых таблицах/символах...
3) вся эта реализация будет (как минимум) не быстрее стандартных средств...
4) это будет напоминать изобретение велосипеда - зачем придумывать то, что уже давно придумано (и реализовано!)
5) подобный стиль программирования называется индусским кодом (он же быдлокод)...

Достаточно причин?.. (имхо первых двух более чем достаточно!)

p.s. возьмём простой отвлечённый пример.
если Вам нужно из строки получить число, которое в ней записано - Вы воспользуетесь функцией VAL (StrToInt...) или реализуете свою процедуру разбора строки и перевода её в число?.. НУ и тоже касается перевода числа в строку...

[xrob]

ну вообще, лично для меня было гораздо трудозатратней было найти РАБОТАЮЩУЮ функцию для перевода UTF-8 в Ansi
и я написал быдлокод, как раз с использованием массива =)
"не быстрее стандартных средств", с этим согласен, но

code := '$' + copy(code,3,4);
result := widechar(strtoint(code));

что же в итоге делает уже придуманный велосипед?
по сути тоже самое. разве что в функцию уже передается готовый индекс,
по которому она возвращает символ из массива (а если не так, то как тогда?),
но индекс этот мы все-равно готовим вручную ( code := '$' + copy(code,3,4); )

"если Вам нужно из строки получить число, которое в ней записано - Вы воспользуетесь функцией VAL (StrToInt...) или реализуете свою процедуру разбора строки и перевода её в число?"

если предположить что я просто не знаю о существовании StrToInt,
то да, реализую свою процедуру перевода строки =))
как это было например с UTF-8

а в общем я с вами согласен, если знаешь необходимые готовые функции
и они корректно работают - зачем создавать новые?
но на практике всегда ли так бывает?
просто ТС так грубо отозвался о варианте с массивами,
что мне очень захотелось переспросить, что в этом ужасного?...

теперь понял, спасибо...