Ваш ключ: необходима авторизация | MyProxy - бесплатный обменник валидных прокси между пользователями форума.

Функция Pars

Тема в разделе Delphi, создана пользователем Search, 23 июн 2016.

Войдите для ответа
  1. Search Заблокирован

    Search
    Статус:
    Вне сети
    Сообщения:
    151
    Симпатии:
    11
    Регистрация:
    22.06.16
    *Парсингом (от англ. parse) называют процесс анализа или разбора определенного контента на составляющие. Проще говоря, получение нужной нам информации, из кучи мусора.

    Как использовать функцию?!


    1. После:

    Код:
    implementation 
    {$R *.dfm}

    Вставляем следующий код:

    Код:
    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;


    2. Дальше, нам необходимо создать обработчик события. ( В моем случае это: Button.Click).

    3. Следующий и финальный шаг, это само использование функции.

    Код:
    String:=pars('начало', переменная или свойство , 'конец');[/B]
    *Красным выделены данные типа стринг.

    Рассмотрим на примере.

    Код:
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
    stroka:string; .// Объявляем переменную типа стринг. 
    begin 
    stroka:=Pars('<',Edit1.Text,'>'); // Выполняем парсинг, от знака "<", до знака ">" , в строке edit1. 
    Memo1.Clear; // Очищаем мемо. 
    Memo1.Lines.Add(stroka); // Выводим результат парсинга. 
    end;
     
    23 июн 2016 #1
Загрузка...
Похожие темы
  1. 7.UP
    Ответов:
    5
    Просмотров:
    209
  2. ERROR404
    Ответов:
    0
    Просмотров:
    634
Top