Find keywords

Top  Previous  Next

The following example alerts an update if specific keywords are found within new or changed content. 

 

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

 

Please read topic Wsw_CheckKeywords to see under which circumstances this event function is called or not called.




Translate document: