ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
 
Страница 653 из 677 « Первая < 153553603643 649 650 651 652 653 654 655 656 657 663 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #6521  
Старый 12.05.2010, 09:26
HakaR
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957

Репутация: 539
По умолчанию
Цитата:
Сообщение от JnK  
Сокет закрываешь?
PHP код:
closesocket(Handle) 
Да это оказывается фаер блочил соединения
Ребутнул пк, вырубил фаер и все нормально стало
 

  #6522  
Старый 12.05.2010, 11:39
ANTIHАCK
Познающий
Регистрация: 20.06.2009
Сообщений: 67
Провел на форуме:
430977

Репутация: 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
Провел на форуме:
1892597

Репутация: 836


Отправить сообщение для W!z@rD с помощью ICQ
По умолчанию
/users/(.+?)/

regex like

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

  #6524  
Старый 12.05.2010, 13:46
ANTIHАCK
Познающий
Регистрация: 20.06.2009
Сообщений: 67
Провел на форуме:
430977

Репутация: 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
Провел на форуме:
828081

Репутация: 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
Провел на форуме:
430977

Репутация: 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
Провел на форуме:
828081

Репутация: 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
Провел на форуме:
828081

Репутация: 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
Провел на форуме:
430977

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

  #6530  
Старый 12.05.2010, 23:31
Failure
Участник форума
Регистрация: 21.09.2008
Сообщений: 148
Провел на форуме:
678893

Репутация: 102
По умолчанию

с х*я "-1" если (15 = 15) = 1 ?
 
 
Страница 653 из 677 « Первая < 153553603643 649 650 651 652 653 654 655 656 657 663 > Последняя »



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


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


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




ANTICHAT.XYZ