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

made in programmersforum 3

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

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

5th
Мар

Парсер строки, вытаскивает текст из строки str между тегами sub1, sub2

Posted by Chas under Delphi

Примерно так

{-------------------------------------------------------------------------------

    Функция: ParseStr

    Автор:    ArhangeL

    Дата:  2011.01.11

    Входные параметры: str, sub1, sub2: string

    Результат:    string

    Описание: Парсер строки, вытаскивает текст из строки str между тегами sub1, sub2

    Stt входная строка.

    sub1 - открывающий тег.

    Sub2 - закрывающий тег.

  -------------------------------------------------------------------------------}
function ParseStr(str, sub1, sub2: string): string;

var

  st, fin: Integer;

begin

  st := Pos(sub1, str);

  if st > 0 then

  begin

    str := Copy(str, st + length(sub1), length(str) - 1);

    st := 1;

    fin := Pos(sub2, str);

    Result := Copy(str, st, fin - st);

    str := Copy(str, fin + length(sub2), length(str) - 1);

  end;

end;
procedure TForm1.Button1Click(Sender: TObject);

var

HTTPCode: String;

begin

получаем код страницы

HTTPCode:=IdHTTP1.Get('http://нужный хост');

//парсируем полученный код и получаем результат

//AnsiLowerCase нужно для перевода полученного кода в нижний регистр,

//для того что на страничке могут быть ключевые слова в разном регистре и парсинг не сработает

ComboBox15.Text:=ParseStr(AnsiLowerCase(HTTPCode), '
продажа, квартира', '
');

end;