VPF::Как декодировать HTML константы в текст

leonidus2011

Дата 8.7.2011, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 8.7.2011

Репутация: нет
Всего: нет

Прошу помочь.

В ответ на запрос, сервер возвращает текст в UTF8 с закодированными символами кирилицы в формате
1056;1072;1079;1085;1099;1077;

где перед каждым 4-х значным числом стоят символы "&#". Как перекодировать этот набор цифр в читаемый русский текст?

xkor

Дата 8.7.2011, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: 1
Всего: 4

первое что приходит в голову:

Код


function convert(s: string): string;
var
  i: Integer;
  c: string;
begin
  i:=1;
  while i<=Length(s) do begin
    if(s[i]='&')and(i<Length(s))and(s[i+1]='#')then begin
      Inc(i,2);
      c:='';
      while s[i]<>';' do begin
        c:=c+s[i];
        Inc(i);
      end;
      Result:=Result+WideChar(StrToInt(c));
    end else Result:=Result+s[i];
    Inc(i);
  end;
end;

PS: алгоритм не претендует на оптимальность по скорости и потреблению памяти, а так же не обрабатывает ошибки, но принцип думаю должен быть понятен - выделяем каждый код символа и превращаем собственно в сам символ)
PPS: а если у вас Delphi XE, то можно ещё так (через регулярные выражения):

Код


uses RegularExpressions;

type
  TConvert = class
    class function ForConvert(const Match: TMatch): string;
  end;

class function TConvert.ForConvert(const Match: TMatch): string;
begin
  Result:=WideChar(StrToInt(Copy(Match.Value,3,Length(Match.Value)-3)));
end;

function Convert(s: string): string;
begin
  Result:=TRegEx.Replace(s, '&\#\d*;', TConvert.ForConvert);
end;

Это сообщение отредактировал(а) xkor - 9.7.2011, 00:09

leonidus2011

Дата 9.7.2011, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 8.7.2011

Репутация: нет
Всего: нет

xkor огромное человеческое спасибо, это то что нужно.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »