人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ASPで開発をしていますが、
他のサイトが出しているXMLを読み込みたいと思っています。
DOM を解析してXMLのデータの一部を表示するVBScriptサンプルを教えてください。

●質問者: yamazakiis
●カテゴリ:コンピュータ
✍キーワード:ASP DOM VBScript XML サイト
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● ohguma
●25ポイント

http://www.atmarkit.co.jp/fxml/rensai/msxml01/msxml03.html

無料のVBScriptでXMLプログラミング

こんなんどうでしょう?


<%@ LANGUAGE=”VBSCRIPT” %>

<%

Dim objDOM, rtResult, szResult

Set objDOM = Server.CreateObject(”MSXML2.DOMDocument”)

objDOM.async = false

rtResult = objDOM.load(”http://www.example.com/test.xml”)

If rtResult = True Then

procDispDatas objDOM.childNodes

End If

Set objDOM = Nothing


Sub procDispDatas(objNode)

Dim obj

For Each obj In objNode

If obj.nodeType = 3 and obj.parentNode.nodeName = ”title” Then

response.write obj.parentNode.nodeName & ” : ” & obj.nodeValue & ”

” & vbcrlf

End If

If obj.hasChildNodes Then

procDispDatas obj.childNodes

End If

Next

End Sub

%>

◎質問者からの返答

http://www.example.com/test.xml

って実在しないですよね。

出来れば実在するサイト・xml で読み込む例が欲しいです。


2 ● rowlock
●25ポイント

http://www.hatena.ne.jp/1137822399#

人力検索はてな - ASPで開発をしていますが、 他のサイトが出しているXMLを読み込みたいと思っています。 DOM を解析してXMLのデータの一部を表示するVBScriptサンプルを教えてください。..

朝日新聞のRSSを解析して、タイトルとURLを表示します。


<%

dim doc

dim items


set doc = CreateObject(”msxml2.domdocument”)

doc.async = false

doc.load(”http://www3.asahi.com/rss/index.rdf”)


set items = doc.selectNodes(”//item”)


for each i in items

writeLink i

next


sub writeLink(item)


Response.Write item.selectNodes(”title”)(0).text + ”<br>”

Response.Write item.selectNodes(”link”)(0).text + ”<br>”


end sub

%>

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ