Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Фев

Преобразование html сущностей в строку

Posted by Chas under Delphi

Подскажите пожалуйста как конвертировать например:
#1056#1091#1089#1089#1082#1072#1103
в
Русская
Это HTML таблица символов.

JTG
Вот так будет HTML-entities
&#_1056;&#_1091;&#_1089;&#_1089;&#_ 1082;&#_1072;&#_1103;

function HTMLDecode(const AStr: String): String;

var

  Sp, Rp, Cp, Tp: PChar;

  S: String;

  I, Code: Integer;

begin

  SetLength(Result, Length(AStr));

  Sp := PChar(AStr);

  Rp := PChar(Result);

  Cp := Sp;

  try

    while Sp^ <> #0 do

    begin

      case Sp^ of

        '&': begin

               Cp := Sp;

               Inc(Sp);

               case Sp^ of

                 'a': if AnsiStrPos(Sp, 'amp;') = Sp then  { do not localize }

                      begin

                        Inc(Sp, 3);

                        Rp^ := '&';

                      end;

                 'l',

                 'g': if (AnsiStrPos(Sp, 'lt;') = Sp) or (AnsiStrPos(Sp, 'gt;') = Sp) then { do not localize }

                      begin

                        Cp := Sp;

                        Inc(Sp, 2);

                        while (Sp^ <> ';') and (Sp^ <> #0) do

                          Inc(Sp);

                        if Cp^ = 'l' then

                          Rp^ := '<'
                        else
                          Rp^ := '>';

                      end;

                 'n': if AnsiStrPos(Sp, 'nbsp;') = Sp then  { do not localize }

                      begin

                        Inc(Sp, 4);

                        Rp^ := ' ';

                      end;

                 'q': if AnsiStrPos(Sp, 'quot;') = Sp then  { do not localize }

                      begin

                        Inc(Sp,4);

                        Rp^ := '"';

                      end;

                 '#': begin

                        Tp := Sp;

                        Inc(Tp);

                        while (Sp^ <> ';') and (Sp^ <> #0) do

                          Inc(Sp);

                        SetString(S, Tp, Sp - Tp);

                        Val(S, I, Code);

                        Rp^ := Chr((I));

                      end;

                 else

                   Exit;

               end;

           end

      else

        Rp^ := Sp^;

      end;

      Inc(Rp);

      Inc(Sp);

    end;

  except

  end;

  SetLength(Result, Rp - PChar(Result));

end;