Rude：前段時(shí)間群里閑聊，一哥們說(shuō)到自己手里有200多個(gè)站，火車(chē)頭批量采集內(nèi)容更新，買(mǎi)點(diǎn)外鏈，待網(wǎng)站權(quán)重上去后，賣(mài)點(diǎn)鏈接，賣(mài)賣(mài)廣告，小日子過(guò)的雖然不能說(shuō)美不勝收，但總歸也是湊合。

說(shuō)白了，其實(shí)是一些工具用的到位，可以幫助你省去很多人工。

例子：excel批量獲取網(wǎng)頁(yè)title

同事L想把自己的網(wǎng)站的TKD修改下，思考之后，覺(jué)得需要先把頁(yè)面現(xiàn)有的TKD弄出來(lái)，說(shuō)干干，開(kāi)始打開(kāi)網(wǎng)址，查看源代碼，將url、tkd記錄在excel中。一個(gè)兩個(gè)網(wǎng)址，不會(huì)覺(jué)得什么，其實(shí)多了，我知道，大家都會(huì)嫌煩。

那試著用工具去做一些事情吧：

步，需要先把網(wǎng)址弄出來(lái)

獲取網(wǎng)址，其實(shí)完全可以通過(guò)導(dǎo)航，網(wǎng)站地圖等去復(fù)制源代碼，然后批量替換，分列去獲取網(wǎng)址及對(duì)應(yīng)的欄目名稱(chēng)。

第二步，用excel里面的vba去獲取TKD

打開(kāi)excel，按alt+f11，在彈出的窗口中點(diǎn)擊【插入】，插入【模塊】，然后在模塊中插入如下代碼：

Function?Title(ByVal url As String) As String
On Error Resume Next
url = “http://” & Replace(url, “http://”, “”)
With CreateObject(“Msxml2.XMLHTTP”)
.Open “get”, url, False
.send
Title?= Split(Split(.responsetext, “<title>“)(1), “</title>“)(0)
End With
End Function

注意：標(biāo)綠處為函數(shù)名稱(chēng)，標(biāo)紅處為你想獲取內(nèi)容所在代碼位置前后的的標(biāo)識(shí)。

點(diǎn)擊保存，然后關(guān)閉當(dāng)前窗口，這時(shí)，在你的excel中出現(xiàn)了一個(gè)名為title的函數(shù)。然后=title（你想要的title的網(wǎng)址），OK。

然后，修改標(biāo)紅處，你可以批量獲得keywords與description啦。

Function Keywords(ByVal url As String) As String
On Error Resume Next
url = “http://” & Replace(url, “http://”, “”)
With CreateObject(“Msxml2.XMLHTTP”)
.Open “get”, url, False
.send
Keywords = Split(Split(.responsetext, “<meta name=””keywords”” content=”””)(1), “”””)(0)
End With
End Function

Function Description(ByVal url As String) As String
On Error Resume Next
url = “http://” & Replace(url, “http://”, “”)
With CreateObject(“Msxml2.XMLHTTP”)
.Open “get”, url, False
.send
Description = Split(Split(.responsetext, “<meta name=””description”” content=”””)(1), “”””)(0)
End With
End Function

把代碼用txt記下來(lái)，多用幾次，記住步驟，一切都變的so easy了。

嗯？你說(shuō)啥？前面說(shuō)到了一個(gè)火車(chē)頭？哈哈，近我也一直在嘗試著使用，待全部熟悉了，再給大家繼續(xù)分享。

推薦閱讀