Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Переобразование кодов символов 
:(
    Опции темы
chip_and_dayl
Дата 24.6.2010, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Есть программа, которая сканирует .dfm файлы. Все было хорошо, пока не стал сканировать .dfm файлы созданные в Рад. Где кириллица хранится в виде:
#1057#1077#1088

Вопрос, как следующую строку
Код

'xPPP '#1057#1077#1088#1074#1077#1088' '#1051#1080#1094#1077#1085#1079#1080#1081

 преобразовать в xPPP Сервер Лицензии!?!




Это сообщение отредактировал(а) chip_and_dayl - 29.6.2010, 18:16


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
chip_and_dayl
Дата 24.6.2010, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Нету ничего?(


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Keeper89
Дата 24.6.2010, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Вот эти таблички:


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
chip_and_dayl
Дата 24.6.2010, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Keeper89
Предлагаешь смотреть на табличку и вручную штамповать?  :)

Это сообщение отредактировал(а) chip_and_dayl - 24.6.2010, 22:09


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Keeper89
Дата 24.6.2010, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
chip_and_dayl, ну да, сделать массив соответствий smile
Может есть и более простое решение.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
chip_and_dayl
Дата 24.6.2010, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Keeper89
Не поверишь. Есть smile

Код

ShowMessage(widechar(#1088))



--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Keeper89
Дата 24.6.2010, 22:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Шикарно )


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
chip_and_dayl
Дата 29.6.2010, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Пришлось писать кодsmile

Код

function ToChar_ (tText: string): widestring;
VAr
    tTran: string;
begin
    if (Length(tText)=0) then
     begin
       result:='';
       exit;
     end;

    if (tText[1]='#') and (Length(tText)>4) then
      begin
        tTran:=Copy(tText, 2, 4);
        if Length(tText)>5 then
        begin
          tText:=Copy(tText, 6, Length(tText));
          result:=WideChar(StrToInt(tTran))+ToChar_(tText);
        end
        else result:=WideChar(StrToInt(tTran));
      end
      else
      begin
        if Length(tText)=1 then
          result:=tText[1]
        else
        begin
          tTran:= tText;
          tText:=Copy(tText, 2, Length(tText));
          result:=tTran[1]+ToChar_(tText);
        end;
      end;
end;


Это сообщение отредактировал(а) chip_and_dayl - 29.6.2010, 18:16


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Akella
Дата 30.6.2010, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Цитата(chip_and_dayl @  29.6.2010,  18:15 Найти цитируемый пост)
Пришлось писать код

Как будто ты не программист  smile

Добавлено через 13 секунд
Или ты искал специальный компонент?  smile  smile 
PM MAIL   Вверх
chip_and_dayl
Дата 30.6.2010, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Akella
А шо, программисты не люди? Они тоже ленивыми бывают, особенно летом:)

Добавлено через 41 секунду
Я вообще надеялся на супер-пупер ф-цию, которая все сама переводит:)


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0522 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.