Монитор изменения вэб-страницы

[snoitaleR]

Версия AutoIt: 3.3.6.1

Описание:
Нужно создать функцию, которой передается адрес вэб-страницы, начальная ограничивающая подстрока, конечная ограничивающая подстрока, и которая возвращает 1, если содержимое (вместе с тэгами) между начальной и конечной ограничивающей подстрокой изменилось, 0 - если не изменилось, и -1 - если начальная или конечная ограничивающая подстрока не найдена...

Примечания:
Я думаю, что функция будет содержать регулярные выражения, и, возможно, функции обработки тэгов, в чем я не очень хорошо разбираюсь, поэтому и пишу в разделе "Стол заказов"...
Прошу откликнуться тех, кому данная тема интересна...

 

[Garrett]

snoitaleR
Вы хотите отслеживать изменения данных (текстовых) на странице?

 

[snoitaleR]

Garrett
Да...
И вот еще, о чем подумал: нужен еще один вид ошибки (-2) на случай, если начальная ограничивающая строка не уникальна...

 

[Garrett]

snoitaleR
Можно ссылку на страницу поиска или код (полный) страницы, и что нужно отслеживать?!

 

[snoitaleR]

Garrett

Адрес страницы:
http://www.farmanager.com/download.php?l=ru
Начальная ограничивающая строка:

стабильные сборки

Конечная ограничивающая строка:

</b>

Определить начальную и конечную ограничивающую строку для страниц, по-моему, для скрипта будет не по силам, поэтому буду делать это вручную...

 

[dwerf]

Набросок, не тестил

Спойлер

#include <String.au3>

Func _CompareWeb($URL, $Start, $End)
	Local $hDownload = InetGet($URL, 'NewSite.html', 1, 1)
	Do
		Sleep(250)
	Until InetGetInfo($hDownload, 2)
	If Not FileExists('OldSite.html') Then
		FileMove('NewSite.html', 'OldSite.html', 1)
		Return 0 ;Не с чем сравнивать, так что прощаем
	EndIf
	Local $between1 = _StringBetween(FileRead('NewSite.html'), $Start, $End, 1)
	If Not IsArray($between1) Then Return -1 ;Не найдено
	If UBound($between1) <> 1 Then Return -2 ;Найдено несколько
	Local $between2 = _StringBetween(FileRead('OldSite.html'), $Start, $End, 1)
	FileMove('NewSite.html', 'OldSite.html', 1) ;Новая страница тест прошла, можно сохранять её
	If Not IsArray($between2) Then Return -1 ;Не найдено
	If UBound($between2) <> 1 Then Return -2 ;Найдено несколько
	If $between1[0] == $between2[0] Then
		Return 0
	Else
		Return 1
	EndIf
EndFunc

 

[snoitaleR]

dwerf
Вариант рабочий...
Единственное, я подумал, что можно сохранять только текст между начальной и конечной ограничивающей строкой, вместо сохранения всей страницы...
По замыслу, этот текст должен быть небольшим...

 

[dwerf]

Спойлер

#include <String.au3>

Func _CompareWeb($URL, $Start, $End)
	Local $hDownload = InetGet($URL, 'NewSite.html', 1, 1)
	Do
		Sleep(250)
	Until InetGetInfo($hDownload, 2)
	Local $between1 = _StringBetween(FileRead('NewSite.html'), $Start, $End, 1)
	If Not IsArray($between1) Then Return -1 ;Не найдено
	If UBound($between1) <> 1 Then Return -2 ;Найдено несколько
	If FileExists('OldText.txt') Then ;Если есть сохранение
		Local $between2 = FileRead('OldText.txt') ;Читаем
		FileDelete('OldText.txt')
		FileWrite('OldText.txt', $between1[0]) ;Новая страница тест прошла, старую прочитали, можно перезаписывать
		If $between1[0] == $between2 Then
			Return 0
		Else
			Return 1
		EndIf
	Else
		FileWrite('OldText.txt', $between1[0])
	EndIf
EndFunc

Как то так
А вообще было бы не плохо сделать проверку входных параметров, прав на запись итп. Но думать лень. :-[

 

[madmasles]

snoitaleR
Можно еще так попробовать:

#include <IE.au3>
#include <Array.au3>
;#include <File.au3>

$sURL = "http://www.farmanager.com/download.php?l=ru"
Dim $aNews[1]

$oIE = _IECreate($sURL, 0, 0)
$sTest = _IEBodyReadText($oIE)
_IEQuit($oIE)
$aTest = StringSplit($sTest, @CRLF)
For $i = 1 To UBound($aTest) - 1
	If StringInStr($aTest[$i], "Far Manager") <> 0 Or _
			StringInStr($aTest[$i], "Последнее изменение") <> 0 Then
		_ArrayAdd($aNews, $aTest[$i])
		$aTest[0] += 1
	EndIf
Next
If $aTest[0] <> 0 Then
	_ArrayDisplay($aNews, "Far Manager", UBound($aNews) - 3)
	;_FileWriteFromArray(@ScriptDir & "\Test.txt", $aNews, 1, UBound($aNews) - 3)
Else
	MsgBox(0, "Far Manager", "Error")
EndIf

 

[snoitaleR]

dwerf
Во второй версии скрипта есть небольшая ошибка, но я понял, как скрипт работает, так что смогу исправить...
Спасибо за помощь...


Добавлено:

Сообщение автоматически объединено: 11 Май 2010

madmasles
Изучая скрипт, пришла в голову идея о том, что неплохо было бы страницу вычистить от двойных пробелов, @CRLF, табуляций и других "незначащих" символов, количество которых может изменяться без изменения смысла...
Спасибо за помощь...