Пропарсить страницу

[alex0097]

del.............................

[alex0097]

Очень нужно народ. Help. Прогуглил весь нет. И так и не понял как парсить

[Человек_Борща]

AnsiPos,Copy,Delete такие простые функци... вот и напиши на их основе функцию которая будет грабить текст между тегами.

[alex0097]

Легко сказать. Помочь сможешь?

[alex0097]

Кто поможет подкину $

[Человек_Борща]

Стучись в аську 594418003 помогу чем смогу

[Человек_Борща]

Вот кое-что у меня есть:

function ParseHTMLText(OpenTag, TagsData, CloseTag: string): string;
var
  OTag, //Открывающий тег
  CTag: Integer; //закрывающий тег
begin
  Result := ''; //результат "пустая строка"
  //Если один из входных параметров "Пустая строка" значит выход из процедуры.
  if (OpenTag = '') or (TagsData = '') or (CloseTag = '') then
    Exit;

  //Ищем Открывающий тег в строке
  OTag := AnsiPos(OpenTag, TagsData);
  //если не найден, выходим из функции
  if (OTag = 0) then
    Exit
  else
    //получаем длинну открывающего тега
    OTag := OTag + Length(OpenTag);
  {
  копируем участок из строки Tagsata начинающийся с открывающегося тега,
  и до длинны всей строки tagsdata - длинна закрывающегося тега..
  Получаем текст без первого тега
  }
  TagsData := Copy(TagsData, OTag, Length(TagsData) - OTag + 1);

  //Ищем закрывающий тег
  CTag := AnsiPos(CloseTag, TagsData);
  //если нашли
  if CTag > 0 then
    //копируем строку начиная с 1 символа , до закрывающего тега
    Result := Copy(TagsData, 1, CTag - 1);

  {
  Практическое прменение и описание работы функции....
  Пример:
  <table>
  <Tr><th><b>Это жирная строка</b></th></td>
  </table>

  нам надо получить "Это жирная строка":
  Используем функцию:
  var
    myVar,
    ResultVar:string;

  begin
  //Заносим html код в строку
  myVar:='<table><Tr><th><b>Это жирная строка</b></th></td></table>';
  //используем функцию:
  ResultVar:=ParseHTMLText('<b>',myvar,'</b>');
  Далее, функция сначало ищет открыающий тег(OpenTag) отсекает его(и все что до него) от строки при помощи Copy
  Получается myvar:='Это жирная строка</b></th></td></table>';
  Далее ищем закрывающий тег(CloseTag):
  Находим и отсекаем его той же copy(и все что поле него)
  выводим в ResultVar:='Это жирная строка';
  end;
  }
end;

использование описано =)

[alex0097]

Блин народ. Очень срочно нужно. Help

[W0LF]

Пиши помогу:
ICQ 941593
E-Mail: w0lf@qip.ru

[nVz]

icq:489-124-264, пиши, объясню по скайпу