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

[Clip]

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

[LLI.T.A.L.K.E.R.]

Ещё как возможно!

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

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

[den]

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

[Igor]

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

[Clip]

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

[impersonalis]

Сообщение от Clip

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

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

3д такое 3д

[LLI.T.A.L.K.E.R.]

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

[LLI.T.A.L.K.E.R.]

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