[Delphi]/[Pascal] Задай вопрос, получи ответ

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 653 из 677

653

Опции темы

Поиск в этой теме

Опции просмотра

#6521

12.05.2010, 09:26

HakaR

Участник форума

Регистрация: 23.07.2009

Сообщений: 261

С нами: 8843557

Репутация: 539

Цитата:

Сообщение от JnK

Сокет закрываешь?

PHP код:


		
			
closesocket(Handle)

Да это оказывается фаер блочил соединения

Ребутнул пк, вырубил фаер и все нормально стало

#6522

12.05.2010, 11:39

ANTIHАCK

Познающий

Регистрация: 20.06.2009

Сообщений: 67

С нами: 8890868

Репутация: 13

Помогите составить регулярку, или чем лучше вырезать из кода:

Код:

<div class="ubb_userpic"><img src="/files/portfolio/325/32546/userpic_s.jpg" class="userpic_s" alt="Фотография / Юзерпик" /></div><div class="ubb_data">
<img src="/img/icons/offline.gif" alt="Оффлайн" title="Оффлайн" class="ico_online" /><a href="/users/batonych/">Непринец Игорь (batonych)</a><br /><br /><div class="ubb_text">Украина&nbsp; |&nbsp; 24 года&nbsp; |&nbsp; В сервисе: 3 года 7 месяцев</div></div>

<div class="ubb_userpic"><img src="/files/portfolio/197/19734/userpic_s.jpg" class="userpic_s" alt="Фотография / Юзерпик" /></div><div class="ubb_data">
<img src="/img/icons/offline.gif" alt="Оффлайн" title="Оффлайн" class="ico_online" /><a href="/users/AlexsimA/">Д. Серафима (AlexsimA)</a><br /><br /><div class="ubb_text">Украина&nbsp; |&nbsp; 39 лет&nbsp; |&nbsp; В сервисе: 4 года 1 месяц</div></div>

<div class="ubb_userpic"><img src="/files/portfolio/69/6943/userpic_s.jpg" class="userpic_s" alt="Фотография / Юзерпик" /></div><div class="ubb_data">
<img src="/img/icons/online.gif" alt="Онлайн" title="Онлайн" class="ico_online" /><a href="/users/Art-Media/">В. Андрей (Art-Media)</a><br /><br /><div class="ubb_text">Россия&nbsp; |&nbsp; 23 года&nbsp; |&nbsp; В сервисе: 4 года 7 месяцев</div></div>

Все ники (они в скобках.) Из верхнего отрывка кода должно получится:

Код:

batonych
Alexsim
Art-Media

#6523

12.05.2010, 12:10

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

С нами: 10653446

Репутация: 836

/users/(.+?)/

regex like

Ищем /users/ читаем все после и до первого "/"

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

#6524

12.05.2010, 13:46

ANTIHАCK

Познающий

Регистрация: 20.06.2009

Сообщений: 67

С нами: 8890868

Репутация: 13

Цитата:

Сообщение от W!z@rD

/users/(.+?)/

regex like

Ищем /users/ читаем все после и до первого "/"

Спасибо, но такой код:

Цитата:

RegExp := TRegExpr.Create;
RegExp.Expression := '/users/(.+?)/';
if RegExp.Exec(Sob) then Form1.Memo5.Lines.Add(RegExp.Match[1]);

парсит только первый ник, а не все что есть на странице.

Не совсем понял что такое like, и как его юзать : ) У меня нету хелпа.

#6525

12.05.2010, 13:55

GhostOnline

Участник форума

Регистрация: 20.12.2008

Сообщений: 277

С нами: 9152955

Репутация: 84

Цитата:

парсит только первый ник, а не все что есть на странице.

RegExp := TRegExpr.Create;
RegExp.Expression := '/users/(.+?)/';
if RegExp.Exec(Sob) then
repeat
Form1.Memo5.Lines.Add(RegExp.Match[1]);
until not RegExp.ExecNext;

#6526

12.05.2010, 13:59

ANTIHАCK

Познающий

Регистрация: 20.06.2009

Сообщений: 67

С нами: 8890868

Репутация: 13

Цитата:

Сообщение от GhostOnline

RegExp := TRegExpr.Create;
RegExp.Expression := '/users/(.+?)/';
if RegExp.Exec(Sob) then
repeat
Form1.Memo5.Lines.Add(RegExp.Match[1]);
until not RegExp.ExecNext;

Спасибо работает) Правда все по 4 раза прописывает)

batonych
batonych
batonych
AlexsimA
AlexsimA
AlexsimA
AlexsimA
Art-Media
Art-Media
Art-Media
Art-Media

#6527

12.05.2010, 14:04

GhostOnline

Участник форума

Регистрация: 20.12.2008

Сообщений: 277

С нами: 9152955

Репутация: 84

Цитата:

Сообщение от denjf

как заставить idhttp работать через соксы?
как правельно привязать idsocksinfo к idhttp?

IdHttp1.IOHandler := TIdIoHandlerStack.Create;
TIdIoHandlerStack(IdHttp1.IOHandler).TransparentPr oxy := TIdSocksInfo.Create;
TIdSocksInfo(TIdIoHandlerStack(IdHttp1.IOHandler). TransparentProxy).Host := ...;
TIdSocksInfo(TIdIoHandlerStack(IdHttp1.IOHandler). TransparentProxy).Port := .....;
TIdSocksInfo(TIdIoHandlerStack(IdHttp1.IOHandler). TransparentProxy).Version := .....;

ЗЫ Вариант без объявления лишних переменных

Последний раз редактировалось GhostOnline; 12.05.2010 в 14:13.. Причина: Ошибка

#6528

12.05.2010, 14:07

GhostOnline

Участник форума

Регистрация: 20.12.2008

Сообщений: 277

С нами: 9152955

Репутация: 84

Цитата:

Сообщение от ANTIHАCK

Спасибо работает) Правда все по 4 раза прописывает)

Потому что и находит каждую строку 4 раза

Либо составляй такую регулярку чтобы один ник находился один раз, либо прежде чем добавлять в мемо проверяй есть ли уже такая подстрока:
if pos(RegExpr.Match[1], memo1.Lines.Text) = 0 then Memo1.Lines.Add(RegExpr.Match[1]);

#6529

12.05.2010, 14:11

ANTIHАCK

Познающий

Регистрация: 20.06.2009

Сообщений: 67

С нами: 8890868

Репутация: 13

Цитата:

Сообщение от GhostOnline

Потому что и находит каждую строку 4 раза

Спасибо. Теперь все ок

#6530

12.05.2010, 23:31

Failure

Участник форума

Регистрация: 21.09.2008

Сообщений: 148

С нами: 9282050

Репутация: 102

с х*я "-1" если (15 = 15) = 1 ?

Страница 653 из 677

653

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2571	20.06.2026 14:48
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

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