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.
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
|
|