RuVitos
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите для http://rsload.net/soft/
Идет склейка 3-х первых страниц, но когда подсвечивает изменения делает это для каждой страницы отдельно. Например если добавится новость на первой странице, то последняя новость с первой страницы попадает на вторую страницу и показывается подсвеченной.
Как сделать чтобы содержимое от начала первой страницы до конца третьей считалось одним целым
Плагин для содинения страниц такой
Sub Wsw_MergePages(Handle, sMemWeb, nPageNumber, sUrl, ByRef sNewUrl, ByRef sNewPostData, ByRef bChangeBookmarkUrl, ByRef sStatusMessage, ByRef iStatusCode)
Dim nPageParamNumber, sPageParam, sNewPageParam
' Limit the number of merged pages
If nPageNumber > 3 Then
Return
End If
' Extract page number
sPageParam = GetFirstRegexMatch(sUrl, "\d+")
If sPageParam = "" Then
' first page, continue with page 2 (solved with start=10)
sNewPageParam = "page/2"
sUrl = sUrl + sNewPageParam
Else
' increase page number
nPageParamNumber = CInt(ExtractDigits(sPageParam)) + 1
sNewPageParam = "" + CStr(nPageParamNumber)
sUrl = ReplaceText(sUrl, sPageParam, sNewPageParam)
End If
' check (only) via Page-Param, if the next page is already available in the page source
If Pos(sNewPageParam, sMemWeb) > 0 Then
' the next page exists
sNewUrl = sUrl
sStatusMessage = "Merge pages via FOLLOW-Plugin"
End If
End Sub |
Всего записей: 8 | Зарегистр. 05-04-2014 | Отправлено: 15:06 28-03-2015 | Исправлено: RuVitos, 15:07 28-03-2015 |
|
