Wsw_CheckKeywords

Top  Previous  Next

Sub Wsw_CheckKeywords(Handle, sMemChanges, ByRef sStatusMessage, ByRef iKeywordFound)

 

Diese Funktion wird aufgerufen, wenn WebSite-Watcher eine Seite auf bestimmte Keywords prüft. Sie kann für eine erweiterte Keyword-Prüfung mit logischen Operatoren verwendet werden. Der Parameter sMemChanges enthält den neuen und geänderten Text ohne HTML-Tags, ohne Carriage-Return/Linefeeds und ohne doppelte Leerzeichen. iKeywordFound ist ein numerischer Wert, der angibt, ob Keywords gefunden werden.

 

Falls in den Bookmark-Eigenschaften Keywords eingegeben sind (Update-bei-Keywords), dann wird diese Funktion nicht aufgerufen falls eingegebene Keywords gefunden wurden. Wenn keine Keywords eingegeben sind oder keines der eingegebenen Keywords gefunden wurde, dann ruft WebSite-Watcher diese Funktion auf.

 

Parameter

 

Handle ... Bookmark-Handle.
sMemChanges ... String. Neuer/geänderter Text der Webseite (keine HTML-Tags, keine CRLFs, keine doppelten Blanks).
sStatusMessage ... String. Der zugewiesene Text wird in der Status-Spalte der Bookmarkliste angezeigt. Default-Wert ist ein leerer String.
iKeywordFound ... Integer. Gibt an, ob Keywords gefunden werden. Default-Wert ist 0.

 

Gültige Werte von iKeywordFound:

0 ...

Keine Keywords gefunden.

Default-Wert, muss nicht explizit zugewiesen werden.

1 ...

Keywords wurden gefunden.

 

Beispiel:

Sub Wsw_CheckKeywords(Handle, sMemChanges, ByRef sStatusMessage, ByRef iKeywordFound)

 

 Dim s = LCase(sMemChanges)

 

   ' Look for WebSite Watcher but exclude weight watcher

   If (InStr(s, "website") > 0) And (InStr(s, "watcher") > 0) And (InStr(s, "weight") = 0) Then

      iKeywordFound = 1

      Return

   End If

 

   If (InStr(s, "aignesberger") > 0) And (InStr(s, "watcher") > 0) Then

      iKeywordFound = 1

      sStatusMessage = "Keyword 'aignesberger + watcher' found"

      Return

   End If

 

End Sub