Seiten von Suchergebnissen zusammenfügen

Top  Previous  Next

Dieses Beispiel zeigt, wie Seiten von Such-Ergebnissen zu einer einzelnen Seite zusammengefügt werden können.

 

In diesem Beispiel enthält eine Folge-Seite den Parameter &start= in der URL, wobei dieser Seiten-Parameter in der ersten Seite nicht vorkommt. Dieser Parameter hat für die nachfolgenden Seiten eine Schrittweite von 10 (&start=10, &start=20, etc.)

 

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, "\&start=\d+")

   If sPageParam = "" Then

      ' first page, continue with page 2 (solved with start=10)

      sNewPageParam = "&start=10"

      sUrl = sUrl + sNewPageParam

   Else

      ' increase page number

      nPageParamNumber = CInt(ExtractDigits(sPageParam)) + 10

      sNewPageParam = "&start=" + 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