forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)
-   -   Поиск слова на сайте (http://forum.boolean.name/showthread.php?t=15139)

Clip 17.07.2011 23:17

Поиск слова на сайте
 
Возможно ли реализовать поиск слов на определенном сайте?
То есть например я ввожу сайт, слово и потом он мне пишет найдено ли оно или нет

LLI.T.A.L.K.E.R. 17.07.2011 23:28

Ответ: Поиск слова на сайте
 
Ещё как возможно!

(поискал свою разработку - не нашёл, возможно я её писал на компе, у которого винт. запоролся)

в общем грузишь в блитз страничку, выглядеть будет как исходный текст. Далее обрабатываешь блитзом текст.

den 18.07.2011 00:21

Ответ: Поиск слова на сайте
 
Не занимайся хернёй, а лучше почитай самоучитель каконибуть годный, начиная с азов.

Igor 18.07.2011 00:21

Ответ: Поиск слова на сайте
 
в поисковике вводишь "слово site:адрес_сайта" если гугл найдёт значит есть

Clip 18.07.2011 00:32

Ответ: Поиск слова на сайте
 
Я не про это.
Пример: Открываю программу. Мне выскакивает слово "Введите сайт". Я пишу допустим "yandex.ru", Мне выскакивает "Введите слово:", я ввожу слово и мне пишет если слово найдено "Слово найдено", если нет: "Слово не найдено"

impersonalis 18.07.2011 00:48

Ответ: Поиск слова на сайте
 
Цитата:

Сообщение от Clip (Сообщение 195891)
Я не про это.
Пример: Открываю программу. Мне выскакивает слово "Введите сайт". Я пишу допустим "yandex.ru", Мне выскакивает "Введите слово:", я ввожу слово и мне пишет если слово найдено "Слово найдено", если нет: "Слово не найдено"

всё правильно тебе Igor написал - тот запрос ("слово site:адрес_сайта") надо перенаправить на яндекс (гугол) и пропарсить результаты. Т.к. странички все из сайта не вот ещё выпотрошишь.

3д такое 3д

LLI.T.A.L.K.E.R. 18.07.2011 01:50

Ответ: Поиск слова на сайте
 
Я думаю, ему нужно в программе реализовать "поиск и наличие определённого слова на любом, указанном сайте"
Похожий исходник у меня нашёлся (хорошо что скопировал все данные по B3d)
Завтра попробую собрать программу.

LLI.T.A.L.K.E.R. 18.07.2011 21:23

Ответ: Поиск слова на сайте
 
Вот набросок программы "определение наличия слова на сайте"
Перед запросом ввести название сайта - перехватывается нажатие пробела и вводится пробел. Нужно удалить его, нажав 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



Часовой пояс GMT +4, время: 13:07.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot