Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Не читабельный текст.

Автор: 0FF 28.6.2005, 19:41

В HTMLле строка http://forum.vingrad.ru/index.php?act=Attach&type=post&id=454215 (строка в аттаче так как на форуме не отображается)

выглядит так "Горячая вакансия".

Как прочитать такой текст?

Автор: Satana 28.6.2005, 20:23

0FF чтото непонятен вопрос, ты что хочешь распарсить htmlку? если так то читай построчно файл и ищи вхождение "Горячая вакансия" pos(str,"Горячая вакансия") если pos возвращает ноль то ничего не найлено в строке str если какое то чило то это первый символ в строке с которого начинается твоя строка.

ЗЫ на счет того где что располагается (подстрока и строка в которой ищем) посмотри в хелпе могу ошибиться и нада будет местами переставить str и "Горячая вакансия"

Автор: Yanis 28.6.2005, 21:49

Может это подойдёт:

Код


function HT2RT(const S: String): String;
var
  n: Integer;
  _s: String;
begin
  _s := s;
  Result := '';
  n := Pos('&#', _s);
  while (n > 0) do
    begin
      Result := Result + Chr(StrToInt(Copy(_s, n+2, Pos(';', _s)-3))-848);
      Delete(_s, n, Pos(';', _s));
      n := Pos('&#', _s);
    end;
end;

Думаю можно и без копирования строк обойтись (_s := s), но это всего лишь пример smile