您的足迹:首页 > 我的代码 >简单的新闻标题采集,备注一下用

简单的新闻标题采集,备注一下用

简单的很,只是备注一下。

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=1111;bottom=469)
winform.add(
Btn_Gather={cls="button";text="采集";left=8;top=8;right=168;bottom=48;z=2};
LV_List={cls="listview";left=8;top=56;right=1104;bottom=464;db=1;dl=1;dr=1;dt=1;edge=1;fullRow=1;gridLines=1;z=1}
)
/*}}*/

winform.LV_List.insertColumn("ID",60,,0x0/*_LVCFMT_LEFT*/)
winform.LV_List.insertColumn("Title",350,,0x0/*_LVCFMT_LEFT*/)
winform.LV_List.insertColumn("Url",650,,0x0/*_LVCFMT_LEFT*/)

winform.Btn_Gather.oncommand = function(id,event){
	import inet.http;
	import preg;
	
	var http=inet.http(); http.disableCache();
	var url = "http://news.baidu.com/";
	var html = http.get(url);
	var p= preg('<a href="([^\]<>]+[0-9]{4,20}\.s?html)"[^>]*>([^\]<>]{12,200})<\/a>',"is");
	var count = 0;
	for url,txt  in p.gmatch( html ) { 
		winform.LV_List.addItem( { winform.LV_List.count; string.fromto(txt,936,65001) ;url;},1 );
	}
	win.msgbox("OK");
}

winform.show() 
win.loopMessage();

/*
<a href="http://ent.china.com/star/news/11052670/20161115/30040058.html" 
mon="col=13&amp;ct=0&amp;a=28&amp;c=enternews&pn=6" target="_blank">
54岁白灵用纸遮胸 露点雷人自摸不停(1)</a>
*/

 

本博客所有文章如无特别注明均为原创。作者:恶猫复制或转载请以超链接形式注明转自 恶猫的博客
原文地址《简单的新闻标题采集,备注一下用

相关推荐

WRITTEN BY

avatar

发表评论

路人甲 表情
看不清楚?点图切换 Ctrl+Enter快速提交

网友评论(0)

恶猫的博客 -记录自己日常,代码,美图,电影,音乐,新闻,只是个人博客而已

浙ICP备15011757号-4 网站地图 联系我