/*---------------------------------------

	Stickypaper 
	Sample script 

	ネットワーク、正規表現など
	詳細は help/dmsref.hlp を参照


[Memo Object]
PROPERTY
 *text		displayed text	(read/write)
 *title		title text	(read/write)	(v1.1+) タイトル
 *width,hwight	memo size	(read/write)
 *left,top	memo position	(read/write)


METHOD
 *ShowAsText(Filename)	display 'Filename' as html mode	(v1.1+) ローカルにあるhtmlファイルを表示します。
 *ShowAsText()		change to normal mode		(v1.1+) 普通のモードにもどします。



---------------------------------------*/

Memo.text = 'loading...';
doEvents();


u = new URL('http://www.yahoo.co.jp/');
http = new HTTP;
http.timeout = 20;

try{
	s=http.get(u.url);    //  http://yahoo.co.jp に接続
	if(http.responseHeader.code=='302'){s=http.get(http.responseHeader.location);}
	if(s.match(/charset=utf-8/i)){s=s.fromUTF8toSJIS();}else{
	s=s.toSJIS();}

}finally{
	http.disconnect();
}

var outtext = u.url + "\n";

list = s.match(/<a .*?dailynews.*?>(.*?)<\/a>/igm); //トピックスを抜き出す

  for (i=0;i<list.length;i++){
	
	list[i].match(/<a .*?dailynews.*?>(.*?)<\/a>/ig);
	outtext += '・' + RegExp.$1.substr(0,20) + "\n";

  }

Memo.text = outtext;
