ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
12.05.2010, 09:26
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Да это оказывается фаер блочил соединения 
Ребутнул пк, вырубил фаер и все нормально стало 
|
|
|
12.05.2010, 11:39
|
|
Познающий
Регистрация: 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">Украина | 24 года | В сервисе: 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">Украина | 39 лет | В сервисе: 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">Россия | 23 года | В сервисе: 4 года 7 месяцев</div></div>
Все ники (они в скобках.) Из верхнего отрывка кода должно получится:
Код:
batonych
Alexsim
Art-Media
|
|
|
|
12.05.2010, 12:10
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
/users/(.+?)/
regex like
Ищем /users/ читаем все после и до первого "/"
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
12.05.2010, 13:46
|
|
Познающий
Регистрация: 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, и как его юзать : ) У меня нету хелпа.
|
|
|
|
12.05.2010, 13:55
|
|
Участник форума
Регистрация: 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;
|
|
|
|
12.05.2010, 13:59
|
|
Познающий
Регистрация: 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
|
|
|
|
12.05.2010, 14:04
|
|
Участник форума
Регистрация: 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..
Причина: Ошибка
|
|
|
|
12.05.2010, 14:07
|
|
Участник форума
Регистрация: 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]);
|
|
|
|
12.05.2010, 14:11
|
|
Познающий
Регистрация: 20.06.2009
Сообщений: 67
Провел на форуме:
430977
Репутация:
13
|
|
Сообщение от GhostOnline
Потому что и находит каждую строку 4 раза
Либо составляй такую регулярку чтобы один ник находился один раз, либо прежде чем добавлять в мемо проверяй есть ли уже такая подстрока:
if pos(RegExpr.Match[1], memo1.Lines.Text) = 0 then Memo1.Lines.Add(RegExpr.Match[1]); Спасибо. Теперь все ок
|
|
|
|
12.05.2010, 23:31
|
|
Участник форума
Регистрация: 21.09.2008
Сообщений: 148
Провел на форуме:
678893
Репутация:
102
|
|
с х*я "-1" если (15 = 15) = 1 ? |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
