comtest4.hsp

sample\comobj\comtest4.hsp » Plain Format

	;	XMLパーサー(MSXML)を使用してRSSを読み込む
	;
	url="http://hotwired.goo.ne.jp/news/index.rdf"
	;
	newcom oDom,"Microsoft.XMLDOM"
	oDom("async")="FALSE"		; 同期読み込みを行う
	;oDom->"load" "test.xml"	; ファイルを指定する時
	oDom->"load" url		; URLを指定する時
	oRoot = oDom("documentElement")
	if varuse(oRoot)=0 : dialog "取得に失敗しました。" : end
	if oRoot("tagName")!="rdf:RDF" : dialog "RSSではありません。" : end

	mes "RSSの内容を表示します。"
	mes url

	comres elm_ch
	oDom->"getElementsByTagName" "title"

	comres elm_link
	oDom->"getElementsByTagName" "link"

	node = elm_ch("item",0)
	node2 = node("firstChild")
	mes "タイトル:"+node2("nodeValue")

	node = elm_link("item",0)
	node2 = node("firstChild")
	link = node2("nodeValue")
	mes link

	mes "----------------------------------------------------------------"

	max=elm_ch("length")
	if max>11 : max=11

	repeat max-1
	i=cnt+1
	node = elm_ch("item",i)
	node2 = node("firstChild")
	mes ""+i+":"+node2("nodeValue")

	node = elm_link("item",i)
	node2 = node("firstChild")
	link = node2("nodeValue")
	mes link

	loop

	stop