利用百度站長(zhǎng)外鏈工具和excelVBA快速提交垃圾外鏈

時(shí)間：2023-03-01 19:21:01 | 來(lái)源：電子商務(wù)

時(shí)間：2023-03-01 19:21:01 來(lái)源：電子商務(wù)

外鏈?zhǔn)且粋€(gè)網(wǎng)站贏得搜索引擎青睞的重要因素之一，擁有強(qiáng)大且健康的外鏈才能在搜索引擎不斷的算法改進(jìn)中抵擋住各種狂風(fēng)暴雨而屹立不倒。但是，有時(shí)候，我們會(huì)發(fā)現(xiàn)網(wǎng)站的外鏈一夜之間暴增，在這一鏈難求的時(shí)代，不要太爽呀，等等，千萬(wàn)不要高興太早，睜大眼睛看仔細(xì)再點(diǎn)開(kāi)看看，靠，全是垃圾外鏈，這些垃圾外鏈非但不能有助于網(wǎng)站的排名反而會(huì)被搜索引擎“關(guān)注的”，如果垃圾外鏈達(dá)到一定的量輕則降權(quán)，重則被K。

幸好，強(qiáng)大的百度站長(zhǎng)工具提供了拒絕外鏈的功能，幫助我們及時(shí)清理這些垃圾外鏈，但如果我們的網(wǎng)站外鏈較多，要一條一條的找出這些垃圾還是比較累人的。好在，懶人總有懶人的辦法，筆者經(jīng)過(guò)摸索，我發(fā)現(xiàn)這些垃圾鏈接有一個(gè)共同的特點(diǎn)，就是網(wǎng)址中包含了些莫名奇妙的字母，如

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

第一步，從站長(zhǎng)工具平臺(tái)下載所有外鏈，百度站長(zhǎng)平臺(tái)提供了下載數(shù)據(jù)的功能，我們下載下來(lái)，默認(rèn)為csv格式。

第二步，用excel打開(kāi)保存的文件，另存為.xls格式，如我的外鏈.xls這是標(biāo)準(zhǔn)的excel格式了。插入一個(gè)工作表，將它拖到第二位置，如下圖。

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

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

再點(diǎn)編輯器菜單上的工具》引用，我們引用一個(gè)正在表達(dá)式對(duì)象Microsoft VBscript Regular Expressions 5.5

現(xiàn)在我們雙擊查找垃圾外鏈按鈕，進(jìn)入編程模式，輸入以下代碼

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 "執(zhí)行完畢"

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

好了，運(yùn)行一下(點(diǎn)擊如下圖編輯器菜單上的三角形)，

輸入表格總行數(shù)，即可得到結(jié)果，

復(fù)制后，進(jìn)入百度站長(zhǎng)工具平臺(tái)，批量提交

至此，大功搞成，等待百度站長(zhǎng)平臺(tái)處理，但生效時(shí)間較慢，筆者的經(jīng)驗(yàn)大約是30天左右，本文由專(zhuān)業(yè)的垂直招聘網(wǎng)站農(nóng)業(yè)畜牧人才網(wǎng)原創(chuàng)轉(zhuǎn)載請(qǐng)注明出處，本文介紹的方法，簡(jiǎn)單易行，關(guān)鍵是觀察垃圾外鏈的結(jié)構(gòu)，如果有另外特殊的結(jié)構(gòu)，修改其中的正則部分代碼即可，為了網(wǎng)站的良性健康發(fā)展，充分利用站長(zhǎng)平臺(tái)提供給我們的工具也是非常必要的。