1. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

Delphi функция pars

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

  1. X-Vlad

    X-Vlad Юзер

    Дек 06 2016 в 23:55
    Регистрация:
    21.09.2015
    Сообщения:
    21
    Симпатии:
    26
    Функция для парсинга кода.
    Код:
    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 нравится это.