Delphi/pascal вопросы - ответы. - Страница 14 - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Все инфопродукты и приватная информация бесплатно
Старый 09.08.2012, 13:34   #118 (permalink)
HTTP/S
 
Регистрация: 01.02.2010
Сообщений: 36
Member ID: 6373

Репутация: 0
Репутация: 0
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

madvet
Хорошо, есть ли функция определения OS?

Есть ли функция определения имени в сети? (Локальная группа) Вроде правильно мысли изложил. Спасибо за ответ.
F1shka вне форума   Ответить с цитированием
Старый 09.08.2012, 14:49   #119 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Цитата:
Сообщение от F1shka Посмотреть сообщение
madvet
Хорошо, есть ли функция определения OS?
GetVersion

Цитата:
Сообщение от F1shka Посмотреть сообщение
Есть ли функция определения имени в сети? (Локальная группа) Вроде правильно мысли изложил. Спасибо за ответ.
gethostbyaddr
madvet вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 12.08.2012, 21:41   #120 (permalink)
VPN
Статус: Работяга
 
Аватар для Gdasarhik
 
Регистрация: 08.12.2011
Сообщений: 295
Member ID: 21855

Репутация: 359
Репутация: 359
Сказал(а) спасибо: 164
Поблагодарили 125 раз(а) в 90 сообщениях
Вопрос Re: Delphi/pascal вопросы - ответы.

Привет всем
Хочу спросить.
Есть такой список сайтов,прочеканных,например,на индекс:
Код HTML:
http://000000000.ucoz.ru/forum/9-152-2			0			
http://003dima.rusmarket.ru/			0			
http://008hardware.3dn.ru/news/2008-10-20-22/			0			
http://01-15.okis.ru/mail.sent.html			0			
http://02.unise.ru/clause/1509/			20			
http://020292.rusmarket.ru/			0			
http://www.product.ru/addnewfrm.asp?t=3			1300			
http://www.product.ru/addnewfrm.asp?t=3			1300			
http://03.tomnet.ru/people/registration/forum/forum/forum/			0			
http://0-34.ru/component/content/article/2-2011-04-28-10-47-58/36-2012-07-16-18-58-32.html			0			
http://03-ts.ru/index.php?nma=forumd&fla=topic&forum=3&ids=1447			90			
http://03u.ru/forum_topic_new.php?forum_id=1			0			
http://05-ek.ucoz.ru/gb/6			0			
http://06.product.ru/addnewfrm.asp?t=3			0			
http://www.nnov.org/common/popup.php?c=classForum&m=forum_v1&s=1236002&do=theme			11000			
http://hoter.ru/			200			
http://0-6.ru/modules.php?name=Forums&file=posting&mode=newtopic&f=7			10			
http://069netua.video.tut.ua/361/976/5447/			0			
http://www.0652.ru/add.php			0			
http://06ozi1.ucoz.ru/forum/			0			
http://06ozi1.ucoz.ru/forum/55			0			
http://06st.ucoz.ru/forum/25-0-0-1-1/			0			
http://06st.ucoz.ru/forum/25-0-0-1-1			0			
http://07bi.ucoz.ru/forum/2-8-1			0			
http://07te1.ucoz.ru/forum/1			0			
http://08.product.ru/addnewfrm.asp?t=1			0			
http://forum.amobil.ru/forum/?id=48702			10			
http://www.product.ru/addnewfrm.asp?t=3			1300			
http://09061996.ucoz.ru/forum/6-5-37			0			
http://09061996.ucoz.ru/forum/2-4-1/			0			
http://0-jut-0.blog.ru/53675971/80452278			0			
http://0n2o4v.rusmarket.ru/			0			
http://1.loveinthecity.ru/inc/addvideocomments.php?vn=14			0			
http://10.gazeta.ru/3238486.shtml			0			
http://10.onwork.ru/content/view/291/85/			40			
http://100.childfest.ru/?main=gb			0			
http://100.childfest.ru/index.asp?main=gb&page2=1&page=7			0			
http://1000mm.ru/add1234_xxx_qazxsdcdddddddeeeeedert_z34567890_123wertdfgr.php			40			
http://1000plastinok.net/forum/O_slysh-ka/Varvara_zharit_kur/20.html			210			
http://1000plastinok.net/forum/Tehnicheskie_voprosy/zagruzka_oblozhki_alboma/0.html			210			
http://1000points.ru/forum/			0			
http://1000points.ru/forum/			0			
http://100-1.ru/?main=gb			40			
http://1001.ru/arc/forum/issue85/			800			
http://1001.ru/arc/lawyer/issue29/			800			
http://10030.ru.all.biz/			0			
http://10088.ru.all.biz/			0			
http://10095.kz.all.biz/			0			
http://100cheats.3dn.ru/load/kartoffel_hack_4_3/1-1-0-27			0			
http://100dogs.ucoz.ru/gb/			10			
http://100dorog.ru/club/stories/22369/			4600			
http://www.100panel.ru/board/8-1-0-30/			10			
http://100soft.ru/load/69-1-0-119			10			
http://www.100rezeptov.ru/forum/posting.php?mode=newtopic&f=4			10			
http://100wmz.ucoz.ru/forum/0-0-0-36			0			
http://1013letzaxodite.ucoz.ru/forum/5-50-1			0			
http://10134.ru.all.biz/			0			
http://10--18.ucoz.ru/forum/9/			0			
http://10188.ru.all.biz/			0			
http://101dacha.ucoz.ru/forum/0-0-0-36			0			
http://101dmg.3dn.ru/forum/0-0-0-36			0			
http://101gig.ru/load/knigi_uchebniki_zhurnaly/stroitelstvo_dizajn/ehkonomnoe_stroitelstvo_zagorodnogo_doma/35-1-0-28			10			
http://new.101hotels.ru/main/cities/Astrahan/photos/			0			
http://10210.ru.all.biz/			0			
http://my.ru.all.biz/?fuseaction=registration.registrationForm			0			
http://1029.ru.all.biz/info_about			0			
http://10299.ru.all.biz/			0			
http://10300.ru.all.biz/			0			
http://my.ru.all.biz/?fuseaction=registration.registrationForm			0			
http://my.ru.all.biz/?fuseaction=registration.registrationForm			0			
http://10385.ru.all.biz/info_about			0			
http://complaint.go2promo.ru/add.html			0			
http://my.ru.all.biz/?fuseaction=registration.registrationForm			0			
http://103-8fm.ru/board.php			0			
http://10416.ru.all.biz/			0			
http://1047.s7.ru/1047/book/addentry.shtml			0			
http://10458.ru.all.biz/			0			
http://10499.ua.all.biz/			0			
http://10502.kz.all.biz/			0			
http://10530.ru.all.biz/			0			
http://10540.ua.all.biz/			0			
http://10549.ua.all.biz/price-goods			0			
http://my.ru.all.biz/?fuseaction=registration.registrationForm			0			
http://10617.ua.all.biz/price-goods			0			
http://10744.ru.all.biz/			0			
http://10749.ru.all.biz/			0			
http://my.ru.all.biz/?fuseaction=registration.registrationForm			0			
http://10784.kz.all.biz/			0			
http://10820.ru.all.biz/			0			
http://my.ru.all.biz/?fuseaction=registration.registrationForm			0			
http://10876.ua.all.biz/			0			
http://10923.kz.all.biz/			0			
http://10958.ru.all.biz/			0			
http://10959.ru.all.biz/			0			
http://my.ru.all.biz/?fuseaction=registration.registrationForm			0			
http://10aas.arbitr.ru/forum/ask/			150			
http://10aas.arbitr.ru/forum/ask			150			
http://10ghz.ucoz.ru/faq/			0			
http://10-g-klass.ucoz.ru/gb/			0			
http://10rus-clan.ru/			0			
http://10rus-clan.ru/			0			
http://10rus-clan.ru/			0
Где циферки после урлов важное для меня число.
Сам вопрос: как мне достать эти циферки с каждой строчки и сравнить,например, с 100, то есть те строчки,где цифры меньше 100 мне нафиг не нужны.
Подскажите алгоритм...Благодарю за внимание
Gdasarhik вне форума   Ответить с цитированием
Старый 12.08.2012, 22:52   #121 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Цитата:
Сообщение от Gdasarhik Посмотреть сообщение
Сам вопрос: как мне достать эти циферки с каждой строчки и сравнить,например, с 100, то есть те строчки,где цифры меньше 100 мне нафиг не нужны.
Подскажите алгоритм...Благодарю за внимание
Найти по разделителю. Использовать функции: Pos, Copy, StrToInt.
madvet вне форума   Ответить с цитированием
Старый 13.08.2012, 20:53   #122 (permalink)
VPN
Статус: Работяга
 
Аватар для Gdasarhik
 
Регистрация: 08.12.2011
Сообщений: 295
Member ID: 21855

Репутация: 359
Репутация: 359
Сказал(а) спасибо: 164
Поблагодарили 125 раз(а) в 90 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Всмысле по разделителю? Можно поподробнее.
Насчет функций,это само собой
Gdasarhik вне форума   Ответить с цитированием
Старый 13.08.2012, 23:02   #123 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Как-то так:
PHP код:
function ParseNum(Sstring): integer;
var
 
ninteger;
begin
 S 
:= TrimRight(s);
 
:= LastDelimiter(' '#9, S);
 
if 0 then
  begin
   Result 
:= -1;
   Exit;
  
end;

 
:= Copy(s1Length(s));
 
Result := StrToInt(s);
end
madvet вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 12.09.2012, 11:29   #124 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Rastayan, непонятно, зачем здесь буфер обмена.
Помещаешь свои значения в строки и сравниваешь.
madvet вне форума   Ответить с цитированием
Старый 12.09.2012, 12:08   #125 (permalink)
SOCKS4
 
Регистрация: 27.09.2011
Сообщений: 164
Member ID: 19312

Репутация: 119
Репутация: 119
Сказал(а) спасибо: 42
Поблагодарили 41 раз(а) в 34 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Не понимаю, в чем проблема? Алгоритм ты описал, осталось его запрограммировать
madvet вне форума   Ответить с цитированием
Старый 12.09.2012, 15:45   #126 (permalink)
Programmer Proxy-Base.Org
 
Аватар для SeJIya
 
Регистрация: 09.06.2011
Сообщений: 75
Member ID: 15574

Репутация: 464
Репутация: 464
Сказал(а) спасибо: 114
Поблагодарили 168 раз(а) в 61 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Е*ло код на Vb.net думаю принцип понятен
i=2 при условии того, что строки начинаются считаться с 1, есле с 0 то i=1
Код:
for i =2 to ДлинаВМемо(кол.строк)
if строкаИзМемо(i - 1) = строкаИзМемо(i) then

'Делаем чёрные дела

else

'Делаем что - то
end if

next
НЕ ФАКТ ЧТО БУДЕТ РАБОТАТЬ
__________________
.NET кодеры ненавидят Delphi, ровно как Delphi кодеры ненавидят .NET Народ просто не понимает что будущее за .NET’ом © [i]Pro

Последний раз редактировалось SeJIya; 12.09.2012 в 18:57. Причина: end if
SeJIya вне форума   Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопросы которые вы хотели задать, но боялись спросить 2FED Флейм 210 12.05.2015 21:43
Delphi. С чего же начать? Xsena Программирование 25 12.10.2009 19:04
Ответы на Частозадаваемые Вопросы :) aka_NooB Информация об ICQ 0 27.05.2009 23:40




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.