用工具去拿来

用工具去拿来

rude 暂无评论
SEO工具

拿来,就是去拿,然后拿来。当然,去拿之前,你也要先确认下哪里有,那里的好不好,对不对,是不是你想要的。

至于拿来之后,你是打算晒好晾干,剁吧剁吧红烧还是清蒸,都是后话。

——————上面,是两行废话——————————————

前段时间群里闲聊,一哥们说到自己手里有200多个站,火车头批量采集内容更新,买点外链,待网站权重上去后,卖点链接,卖卖广告,小日子过的虽然不能说美不胜收,但总归也是凑合。

说白了,其实是一些工具用的到位,可以帮助你省去很多人工。

例子:excel批量获取网页title

同事L想把自己的网站的TKD修改下,思考之后,觉得需要先把页面现有的TKD弄出来,说干就干,开始打开网址,查看源代码,将url、tkd记录在excel中。一个两个网址,不会觉得什么,其实多了,我知道,大家都会嫌烦。

那就试着用工具去做一些事情吧:

第一步,需要先把网址弄出来

获取网址,其实完全可以通过导航,网站地图等去复制源代码,然后批量替换,分列去获取网址及对应的栏目名称。

第二步,用excel里面的vba去获取TKD

打开excel,按alt+f11,在弹出的窗口中点击【插入】,插入【模块】,然后在模块中插入如下代码:

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

注意:标绿处为函数名称,标红处为你想获取内容所在代码位置前后的唯一的标识。

点击保存,然后关闭当前窗口,这时,在你的excel中就出现了一个名为title的函数。然后=title(你想要的title的网址),OK。

然后,修改标红处,你就可以批量获得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记下来,多用几次,记住步骤,一切都变的so easy了。

嗯?你说啥?前面说到了一个火车头?哈哈,最近我也一直在尝试着使用,待全部熟悉了,再给大家继续分享。
文军二维码

发表评论

今日说说

    问:做什么事情会让你成就感爆棚?

    答:做让你感觉心理畏惧的事情,做完之后你会发现,去TMD,不过如此。

站内搜索