马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
字符型 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,假)) |
/2 
发表于 2012-12-3 17:05:25
收藏
支持
反对
楼主
发表于 2012-12-3 17:33:33
