从IIS日志文件分析搜索引擎来访次数统计 Emeditor宏 Macros

'/*=========================================================================
' * Intro       从IIS日志文件分析搜索引擎来访次数统计
' * FileName    bots.vbee
' * Author      yongfa365
' * Version     v2.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365@qq.com
' * FirstWrite  http://www.yongfa365.com/item/IIS-Log-iislogAnalyzer-Search-Engines-visiting-Statistics-For-Emeditor-Macros-yongfa365.html
' * LastModify  2007-08-30 10:18:25
' *==========================================================================*/


Function RegExpTest(patrn, strng)
    Set regEx = New RegExp
    regEx.Pattern = patrn
    regEx.IgnoreCase = True
    regEx.Global = True
    Set Matches = regEx.Execute(strng)
    RegExpTest = Matches.Count
End Function

Function checkSearchNO(File)
    bots = "Baiduspider|Googlebot|yahoo|msnbot|sogou|YodaoBot|iaskspider"
    bots = Split(bots, "|")
    x=""
    For i = LBound(bots) To UBound(bots)
        x = x & Right("      " & RegExpTest(CStr(bots(i)),File),8) & ":" & bots(i) & vbCrLf
    Next

    clipboardData.setData "Text", document.Fullname & vbCrLf & x
    'editor.ExecuteCommandByID 4123
    alert "结果已经复制到贴帖板里" & vbCrLf & x
End Function
If document.selection.Text="" Then document.selection.SelectAll()
checkSearchNO(document.selection.Text)'原创作者：柳永法(yongfa365)'Blog