Последние записи
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
23rd
Янв
Русский текст из Json
Posted by Chas under Delphi
Русский текст отображается как \u0412\u043e\u0442\u0435\u043a \u041c\u043e и т.д. Какой функцией его перевести в нормальный русский вид?
Человек_Борща
Как-то так:
var
J:ISuperObject;
begin
J:=SO('<Твой JSON>');
J['rusoperator'].AsString <-- Тут будет по-русски.
end;[/code]
Используется библиотека SuperObject. Гугл в помощь.
vmilyoshin
Решил данную проблему написанием вот такой функции.
function parsing(sss:String): String;
var
p: String;
begin
p:= sss;
p:= StringReplace(p, '\u0401', 'Ё', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0419', 'Й', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0426', 'Ц', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0423', 'У', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u041A', 'К', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0415', 'Е', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u041D', 'Н', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0413', 'Г', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0428', 'Ш', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0429', 'Щ', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0417', 'З', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0425', 'Х', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u042A', 'Ъ', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0424', 'Ф', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u042B', 'Ы', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0412', 'В', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0410', 'А', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u041F', 'П', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0420', 'Р', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u041E', 'О', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u041B', 'Л', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0414', 'Д', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0416', 'Ж', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u042D', 'Э', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u042F', 'Я', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0427', 'Ч', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0421', 'С', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u041C', 'М', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0418', 'И', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0422', 'Т', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u042C', 'Ь', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0411', 'Б', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u042E', 'Ю', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0451', 'ё', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0439', 'й', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0446', 'ц', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0443', 'у', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u043A', 'к', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0435', 'е', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u043D', 'н', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0433', 'г', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0448', 'ш', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0449', 'щ', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0437', 'з', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0445', 'х', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u044A', 'ъ', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0444', 'ф', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u044B', 'ы', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0432', 'в', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0430', 'а', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u043F', 'п', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0440', 'р', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u043E', 'о', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u043B', 'л', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0434', 'д', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0436', 'ж', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u044D', 'э', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u044F', 'я', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0447', 'ч', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0441', 'с', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u043C', 'м', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0438', 'и', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0442', 'т', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u044C', 'ь', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u0431', 'б', [rfReplaceAll, rfIgnoreCase]);
p:= StringReplace(p, '\u044E', 'ю', [rfReplaceAll, rfIgnoreCase]);
Result:= p;
end;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)