1. Убедительно прошу ознакомиться с правилами публикации программного обеспечения. Помимо VT нужен еще Hybrid Analysis. Подробнее описано в правилах ресурса, пункт 1.19.2.
    Скрыть объявление
  2. На форуме стала доступна баннерная реклама. Все подробности в теме: Реклама на форуме [баннеры]
    Скрыть объявление
  3. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
  4. Нет желания и времени зарабатывать репутацию? Покупка группы "Пользователь" решит часть проблем, а "VIP" - все. Подробнее по ссылке.
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

Delphi функция pars

Тема в разделе "Статьи", создана пользователем X-Vlad, 25.09.2015.

  1. X-Vlad

    X-Vlad Юзер

    Май 05 2017 в 02:07
    Регистрация:
    21.09.2015
    Сообщения:
    21
    Симпатии:
    26
    Антипатии:
    0
    Skype:
    ICQ:
    943014
    Функция для парсинга кода.
    Код:
    function Pars(T_, ForS, _T: string): string;
    var a, b:integer;
    begin
    Result := '';
    if (T_='') or (ForS='') or (_T='') then Exit;
    a:=Pos(T_, ForS);
    if a=0 then Exit else a:=a+Length(T_);
    ForS:=Copy(ForS, a, Length(ForS)-a+1);
    b:=Pos(_T, ForS);
    if b>0 then
    Result:=Copy(ForS, 1, b - 1);
    end;
    Использовать так пример:
    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    op, test: string;
    begin
    op:='<a href="lalalalalal">sadsd</a>';
    test:=pars('<a href="lalalalalal">', op, '</a>');
    end;
    
    результат: в переменную test получаем текст "sadsd" html ссылки.
    Если кто то не понял, то пишите сюда, не оставим без помощи!
     
    AnGel и bilka00 нравится это.
Похожие темы
  1. X-Vlad
    Ответов:
    0
    Просмотров:
    225
  2. hack-anonim
    Ответов:
    1
    Просмотров:
    734
  3. K_NoW

    SpinTax

    K_NoW, 03.06.2016, в разделе: Статьи
    Ответов:
    2
    Просмотров:
    283
  4. AnGel

    Неактуально MediaDisk pars by Rustamkaf v1.1

    AnGel, 02.11.2016, в разделе: Parser
    Ответов:
    9
    Просмотров:
    549
Загрузка...
Загрузка...