利用百度站長外鏈工具和excelVBA快速提交垃圾外鏈一法

　　外鏈是一個網站贏得搜索引擎青睞的重要因素之一，擁有強大且健康的外鏈才能在搜索引擎不斷的算法改進中抵擋住各種狂風暴雨而屹立不倒。但是，有時候，我們會發現網站的外鏈一夜之間暴增，在這一鏈難求的時代，不要太爽呀，等等，千萬不要高興太早，睜大眼睛看仔細再點開看看，靠，全是垃圾外鏈，這些垃圾外鏈非但不能有助于網站的排名反而會被搜索引擎“關注的”，如果垃圾外鏈達到一定的量輕則降權，重則被K。
　　幸好，強大的百度站長工具提供了拒絕外鏈的功能，幫助我們及時清理這些垃圾外鏈，但如果我們的網站外鏈較多，要一條一條的找出這些垃圾還是比較累人的。好在，懶人總有懶人的辦法，筆者經過摸索，我發現這些垃圾鏈接有一個共同的特點，就是網址中包含了些莫名奇妙的字母，如

 
本文正是通過這一特征利用excel提供的VBA進行過濾的，下面介紹具體方法。

第一步，從站長工具平臺下載所有外鏈，百度站長平臺提供了下載數據的功能，我們下載下來，默認為csv格式。

 
第二步，用excel打開保存的文件，另存為.xls格式，如我的外鏈.xls這是標準的excel格式了。插入一個工作表，將它拖到第二位置，如下圖。
 

第三步，這也是最重要的一步了，打開excel菜單》工具》宏》Visual Basic編輯器

 
添加一個用戶窗體，拖1個文本框取名Txt_Rows，再拖一個按鈕取名Cmd_Find，構成如下界面
 

再點編輯器菜單上的工具》引用，我們引用一個正在表達式對象Microsoft VBScript Regular Expressions 5.5
 
 

現在我們雙擊查找垃圾外鏈按鈕，進入編程模式，輸入以下代碼
Private Sub Cmd_Find_Click()
With Worksheets(1)
 For i = 1 To Int(Txt_Rows.Text)
 a = .Cells(i, 2).Value '原始鏈接
 b = GetValue(a, "([A-Z0-9]{2}\.){4,}", 0)
 If b <> "" Then
 t = t + 1
 Worksheets(2).Cells(t, 1) = a
 End If
 Next
End With
MsgBox "執行完畢"
End Sub

Function GetValue(ByVal Content As String, ByVal patten As String, ByVal n As Integer)
On Error Resume Next
    Dim objRE As New RegExp
    Dim objMatches As MatchCollection
   
        objRE.pattern = patten
        objRE.Global = False
        objRE.IgnoreCase = True     
        Set objMatches = objRE.Execute(Content)
        If objMatches.Count > 0 Then
          m = objMatches.Item(0).SubMatches(n)         
          GetValue = m
        End If
    Set objMatches = Nothing
    Set objRE = Nothing
   
    If Err Then MsgBox Err.Description
   
End Function

好了，運行一下（點擊如下圖編輯器菜單上的三角形），
 



 
輸入表格總行數，即可得到結果，
 

復制后，進入百度站長工具平臺，批量提交
 


至此，大功搞成，等待百度站長平臺處理，但生效時間較慢，筆者的經驗大約是30天左右，本文由專業的垂直招聘網站農業畜牧人才網http://www.qingqingav.com/原創轉載請注明出處，本文介紹的方法，簡單易行，關鍵是觀察垃圾外鏈的結構，如果有另外特殊的結構，修改其中的正則部分代碼即可，為了網站的良性健康發展，充分利用站長平臺提供給我們的工具也是非常必要的。