AAuto - 抓取VOA 新闻

注意：在本地新建一个目录：

D:\VOA_News

/*
io.open();//打开控制台
io.print("请输入一行文本，然后回车")
var str = io.getText();

io.print("您输入的是" ,str );
 
execute("pause") //按任意键继续
io.close();//关闭控制台

*/

import win.ui;
/*DSG{{*/
var winform = ..win.form( bottom=399;parent=...;right=599;text="AAuto Form" )
winform.add( 
button={ bottom=386;text="开始";left=208;top=352;z=1;right=327;cls="button" };
edit2={ bottom=339;text="edit2";left=41;multiline=1;top=56;z=3;right=521;edge=1;cls="edit" };
edit={ bottom=52;text="状态";left=60;multiline=1;top=20;z=2;right=483;edge=1;cls="edit" }
)
/*}}*/
import console;
import web.form;
var wb = web.form( winform.edit2,//可输入_UIFLAG_ 前缀的常量自定义外观
    ,0| 0x80/*_DLCTL_NO_SCRIPTS*/,
    ,); 

urlList=/*
http://www.voanews.com/content/japan-arrests-14-pro-china-activists-south-/1488585.html
http://www.voanews.com/content/asia_flood_disasters_warning_signal_for_city_planners/1486433.html
http://www.voanews.com/content/japanese-ministers-visit-controversial-war-shrine/1486407.html
http://www.voanews.com/content/chinese-olympians-get-a-satisfactory-grade/1486299.html
*/

//把网址转换成一个数组
listArray=string.split(urlList,'<\r\n>')

winform.button.oncommand = function(id,event){    
    for(i=1;#listArray;1){
        wb.write("")//清空所有节点
        wb.go(listArray[ i ])

        winform.edit.text="正在做第"++i++"个网址 "++listArray[ i ];//显示正在做的网址
        var ele=wb.waitQueryEles({className="embeddedBackgrounderInner"},20000);
        if(#ele){
            ele.innerHTML="";//清空不要的内容
        }
        
        ele=wb.waitQueryEles({className="zoomMe"},20000);
        if(#ele){
            var str=ele.innerText;//把得到的文本放到字符串里
            string.save("D:\VOA_News\"++i++".txt", str);//把字符串写入文件   
        }   
    }
    
       winform.edit.text="结束";//显示正在做的网址
}

winform.show() 
win.loopMessage();