|
3D-программирование Вопросы, касающиеся программирования 3D мира |
17.07.2011, 23:17
|
#1
|
Оператор ЭВМ
Регистрация: 17.04.2011
Сообщений: 45
Написано 7 полезных сообщений (для 9 пользователей)
|
Поиск слова на сайте
Возможно ли реализовать поиск слов на определенном сайте?
То есть например я ввожу сайт, слово и потом он мне пишет найдено ли оно или нет
|
(Offline)
|
|
17.07.2011, 23:28
|
#2
|
Мастер
Регистрация: 24.06.2009
Адрес: Набережные Челны
Сообщений: 930
Написано 292 полезных сообщений (для 504 пользователей)
|
Ответ: Поиск слова на сайте
Ещё как возможно!
(поискал свою разработку - не нашёл, возможно я её писал на компе, у которого винт. запоролся)
в общем грузишь в блитз страничку, выглядеть будет как исходный текст. Далее обрабатываешь блитзом текст.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
18.07.2011, 00:21
|
#3
|
Дэвелопер
Регистрация: 13.02.2010
Сообщений: 1,645
Написано 620 полезных сообщений (для 2,419 пользователей)
|
Ответ: Поиск слова на сайте
Не занимайся хернёй, а лучше почитай самоучитель каконибуть годный, начиная с азов.
|
(Offline)
|
|
18.07.2011, 00:21
|
#4
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Поиск слова на сайте
в поисковике вводишь "слово site:адрес_сайта" если гугл найдёт значит есть
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
18.07.2011, 00:32
|
#5
|
Оператор ЭВМ
Регистрация: 17.04.2011
Сообщений: 45
Написано 7 полезных сообщений (для 9 пользователей)
|
Ответ: Поиск слова на сайте
Я не про это.
Пример: Открываю программу. Мне выскакивает слово "Введите сайт". Я пишу допустим "yandex.ru", Мне выскакивает "Введите слово:", я ввожу слово и мне пишет если слово найдено "Слово найдено", если нет: "Слово не найдено"
|
(Offline)
|
|
18.07.2011, 00:48
|
#6
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Ответ: Поиск слова на сайте
Сообщение от Clip
Я не про это.
Пример: Открываю программу. Мне выскакивает слово "Введите сайт". Я пишу допустим "yandex.ru", Мне выскакивает "Введите слово:", я ввожу слово и мне пишет если слово найдено "Слово найдено", если нет: "Слово не найдено"
|
всё правильно тебе Igor написал - тот запрос ("слово site:адрес_сайта") надо перенаправить на яндекс (гугол) и пропарсить результаты. Т.к. странички все из сайта не вот ещё выпотрошишь.
3д такое 3д
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
18.07.2011, 01:50
|
#7
|
Мастер
Регистрация: 24.06.2009
Адрес: Набережные Челны
Сообщений: 930
Написано 292 полезных сообщений (для 504 пользователей)
|
Ответ: Поиск слова на сайте
Я думаю, ему нужно в программе реализовать "поиск и наличие определённого слова на любом, указанном сайте"
Похожий исходник у меня нашёлся (хорошо что скопировал все данные по B3d)
Завтра попробую собрать программу.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
18.07.2011, 21:23
|
#8
|
Мастер
Регистрация: 24.06.2009
Адрес: Набережные Челны
Сообщений: 930
Написано 292 полезных сообщений (для 504 пользователей)
|
Ответ: Поиск слова на сайте
Вот набросок программы "определение наличия слова на сайте"
Перед запросом ввести название сайта - перехватывается нажатие пробела и вводится пробел. Нужно удалить его, нажав BackSpace.
Graphics3D 800,600,32,2
Dim Server_Info$(10,5)
Global TCP,www,site$
Text 5,5,"Press SPACE button."
Repeat
If KeyDown(14)=True Cls
If KeyDown(57)=True
Connect()
EndIf
Flip
Until KeyHit(1)
Function Connect()
Cls
site$=Input("Enter the site name... ")
TCP=HttpGet(site$,"/")
;TCP=HttpGet("forum.boolean.name","/") ; пример без ввода вручную
While Not Eof(TCP)
HTTPText$=HTTPText$+ReadLine$(TCP)
Wend
CloseTCPStream(www)
TEKCT$=Input("Enter the TEXT... ")
StartTEKCT=0
StartTEKCT=Instr(HTTPText$,TEKCT$)
;StartTEKCT=Instr(HTTPText$,"Blitz3D") ; пример без ввода вручную
Text 5,35,HTTPText$
If StartTEKCT>0 Then Text 5,55,"Text: " +TEKCT$ + " in " +Str(StartTEKCT)
End Function
Function HttpGet(server$,path$,port=80,proxy$="",proxyport=0)
If Len(proxy$) = 0 proxy$ = server$
If proxyport = 0 proxyport = port
www = OpenTCPStream(proxy$,proxyport)
If www = False Return False
WriteLine www,"GET http://" + server$ + path$ + " HTTP/1.1" + Chr$(13)+Chr$(10) + "Host: " + server$ + Chr$(13)+Chr$(10) + "User-Agent: blitzbasic" + Chr$(13)+Chr$(10) + "Accept: */*" + Chr$(13)+Chr$(10)
Return www
End Function
Последний раз редактировалось LLI.T.A.L.K.E.R., 18.07.2011 в 22:58.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 19:28.
|