TC官方合作论坛

标题: 我的TC笔记,采集关键词 [打印本页]

作者: hi365 时间: 2012-12-3 17:05
标题: 我的TC笔记,采集关键词
字符型 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管理员 时间: 2012-12-3 17:33
顶支持
作者: 554354854 时间: 2012-12-3 18:02
TC管理员啊= =。。。。

都来抢沙发了。。。

这东西有啥用？
作者: hi365 时间: 2012-12-4 11:32
伪原创文章,做站群专用的,还没有写好,就保存在这里了
作者: liu0623 时间: 2013-4-23 10:56
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1