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

0FF

Дата 28.6.2005, 19:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

В HTMLле строка строка (строка в аттаче так как на форуме не отображается)

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

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

Это сообщение отредактировал(а) 0FF - 28.6.2005, 20:34

Присоединённый файл ( Кол-во скачиваний: 13 )

1.txt 0,11 Kb

Satana

Дата 28.6.2005, 20:23 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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

--------------------

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

Yanis

Дата 28.6.2005, 21:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

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

Код


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

--------------------

*щёлк*

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