Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Старый 03.04.2017, 21:11   #1
Заблокирован
 Сержант
Аватар для craft1n
 
craft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражанияcraft1n блестящий пример для подражания
Регистрация: 02.08.2016
Сообщений: 124
Популярность: 1739
Сказал(а) спасибо: 2
Поблагодарили 4 раз(а) в 4 сообщениях
Отправить сообщение для craft1n с помощью Skype™
 
Post Функция pars

Функция для парсинга кода.

Код:
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 ссылки.


Взято с dark-time.com
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Программа] Pars (ID/Skype) ©Rakim RamDigga Социальные сети 0 27.08.2014 16:50
YandexPhone Pars v1.0 gomerxxxl Социальные сети 1 19.08.2013 22:52
Pars ID ©Rakim RamDigga Баги игр ВКонтакте 10 30.01.2013 01:31
[Помогите!] Парсить функцией Pars ncdos Вопросы и ответы, обсуждения 3 20.06.2012 21:59
[Программа] Pars Helper 2.0 cunt85 Garena 9 21.01.2011 17:18

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 15:35.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net