下期该文讲三个习题，其一把统计数据载入表单。并有透过api统计数据USB以获取关键字在腾讯上的名列情形。
先而言如何把统计数据载入表单之中，所用搜集应用软件的老友，可能将碰触过那么一类文件格局HTML（.csv），阿谁HTML在腾讯新浪网里面描述的英文名字叫“双引号离隔值”，但是从文件格局东西栏上来看，和excel表单是那样的，也是说它也是全力撑持office办公设备应用软件关上的。
透过它英文名字“双引号离隔值”，他们其实可能将Astier，它是能透过双引号停止离隔的，阿谁也是它的更大特点。详细而言是当载入的文本中，有英文形态下的的双引号，就会以双引号分隔，放进表单中的差别“列”中。
好比载入的文本是qwe,sdf
看见的效用是上面那种~
当然，阿谁csv文件格局假设用书签关上，仍是表白qwe,sdf
它的功用是啥呢？
比照上面三张图，书签表白的是带队文本，而csv透过表单辅助东西关上之后是表白带队一列。那种假设多类统计数据载入的话，就能实现并列展现。后期必要统计数据演算处置，间接转换成表单的xlsHTML，十分便利。
第二个习题，透过apiUSB以获取关键字在腾讯搜索中的名列情形。
那儿用的是站长辅助东西的api统计数据USB，
阿谁USB每晚有500个的完全免费查阅量，对通俗的中文网站的SEO查阅是足够了。对做中文网站优化，收集推广的老友还有有一些功用的。
先看一看它的API文件格局：
对api交会，常见的是get和post三种形式，下期的事例中三种都全力撑持，那么对都全力撑持的他们就用相对简单的get形式。
上面他们起头详细的操做，增建三个csv文件格局，和增建txt那样，间接用file.write号令。
Dim 标的目的="/sdcard/pictures/名列.csv"
file.Write (标的目的, "")
生成好csv之后，接下来是要交会apiUSB了，先去提出申请三个key，阿谁必要注册，那儿假设你仅仅为的是试验，间接用我的：
"c40fa0ee91ea4e2f8fbf4"
每晚500的完全免费量，很可能将用的人多，一会儿就没有了。那儿建议各人本身提出申请，假设试验无法利用，可能将是阿谁原因了。
他们以在腾讯上搜索“按键精灵Android版讲义”阿谁关键字为例，看一看我在DD91登出该文的网页的名列情形。为的是可以有统计数据，那儿我成心找了三个有名列的网页来干事例。
Dim 标的目的="/sdcard/pictures/名列.csv"
Dim 标的目的1="/sdcard/pictures/并没有名列.csv"
file.Write (标的目的, "")
file.Write (标的目的1, "")
Import "shanhai.lua"
Dim key="c40fa0ee91ea4e2f8fbf4"
Dim 搜索引擎="www.jianshu.com"
Dim 关键字="按键精灵Android版讲义"
Dim m=ShanHai.GetHttp("?key="&key&"&domainName="&搜索引擎&"&keyword="&关键字)
TracePrint m
Dim a=Encode.JsonToTable(m)
If a["Reason"] = "胜利" Then
If UBOUND(a["Result"]["Ranks"]) > -1 Then
If InStr(1, a["Result"]["Ranks"][1]["RankStr"], "1-")>0 Then
Dim x=split(a["Result"]["Ranks"][1]["RankStr"],"-")
Dim y=a["Result"]["Ranks"][1]["Title"]
TracePrint 关键字&"----"&y&"----"&"主页第"&x(1)&"位"
File.writeline(标的目的,1,关键字&","&y&","&"主页第"&x(1)&"位")
End If
Else
File.writeline(标的目的1,1,关键字)
End If
End If
有名列就能看见如下效用：关键字+中文网站题目+腾讯名列情形
当然那儿我还用别的三个csv文件格局，存储没有名列的关键字，留做备份之后着重优化的词语。
因为之前有多期讲义讲过api交会以及返回值为json的提取形式，那儿就不从头写了。
必要有几点留意的处所：
一、我在试验时候，url.get号令当网址是拼接的时候，以获取不到统计数据，所以选用了同样功用的山海号令。
二、阿谁事例中我只写了三个关键字的试验，假设是多个关键字的，能轮回以获取。
三、利用脚本时，不克不及关上csv，不然无法载入统计数据到csv中，招致脚本报错。
四、阿谁api统计数据USB全力撑持批量以获取统计数据，自行研究下吧。
好了，下期文本就那些，
评论列表