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

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>
*/