我的TC笔记,采集关键词

hi365

字符型 web内容=网络.url读内容("http://www.baidu.com/s?tn=site888_pg&ie=utf-8&bs=%E5%87%8F%E8%82%A5&f=8&rsv_bp=1&wd=%E5%87%8F%E8%82%A5%E6%96%B9%E6%B3%95&rsv_sug3=1&rsv_sug=0&rsv_sug1=1&rsv_sug4=234&inputT=1453")
   辅助.等待(8000)
   字符型 内容=字符串.截取(web内容,字符串.查找字符串(web内容,"<div id=\"rs\">"),字符串.查找字符串(web内容,"</th></tr></table></div>"))
   字符型[] 返回串
   字符串.分割(内容,"</a>",返回串)
   整型 个数
   数组.大小(返回串,个数)
   字符型[] 返回关键词串
   字符型 所有关键词
     遍历(整型 i=0;i<个数-1;i++)
        字符串.分割(返回串,">",返回关键词串)
        整型 小个数
        数组.大小(返回关键词串,小个数)
        所有关键词=所有关键词+返回关键词串[小个数-1]+"_"
      遍历结束
   所有关键词=字符串.移除(所有关键词,1,假)
   辅助.消息框(所有关键词)
   //随机选几个
   字符型[] 分关键词串
   字符串.分割(所有关键词,"_",分关键词串)
   整型 c1
   数组.大小(分关键词串,c1)
   字符型 输出
   遍历(整型 i=0;i<c1;i++)
       整型 随机数字=辅助.随机数(0,c1-i-1)
       输出=输出+分关键词串[随机数字]+"、"
       分关键词串[随机数字]=分关键词串[c1-i-1]   
   遍历结束   
   辅助.消息框(字符串.移除(输出,1,假))

TC管理员

顶 支持

554354854

TC管理员啊= =。。。。

都来抢沙发了。。。

这东西有啥用？

hi365

伪原创文章,做站群专用的,还没有写好,就保存在这里了