Extrahiere und zeige PDF-Links

Top  Previous  Next

Extrahiert alle URLs von Links zu PDF-Dateien und zeigt diese direkt in der Webseite an.

 

Sub Wsw_PreProcessPage(Handle, ByRef sMemWeb, ByRef sStatusMessage, ByRef iStatusCode)

   

   Dim sl, i, sItem

   

   sl = GetAllWildcardMatches(sMemWeb, "<a *>")

   For i = 0 To StringList_ItemCount(sl) - 1

      sItem = StringList_GetItem(sl, i)

      If Pos(".pdf", sItem) > 0 Then

         sMemWeb = ReplaceText(sMemWeb, sItem, sItem + HtmlGetParam(sItem, "href"))

      End If

   Next

   

End Sub