ASPで開発をしていますが、

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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2006/01/28 14:46:39
  • 終了:--

回答(2件)

id:ohguma No.1

ohguma回答回数26ベストアンサー獲得回数02006/01/21 23:12:47

ポイント25pt

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

%>

id:yamazakiis

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

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

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

2006/01/22 11:54:38
id:rowlock No.2

rowlock回答回数16ベストアンサー獲得回数12006/01/28 23:28:45

ポイント25pt

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

%>

コメントはまだありません

この質問への反応(ブックマークコメント)

トラックバック

  • [hatena]謎 [hatena]謎 2006-03-13 16:13:21
    ASPで開発をしていますが、 他のサイトが出しているXMLを読み込みたいと思っています。 DOM を解析してXMLのデータの一部を表示するVBScriptサンプルを教えてください。 http://www.hatena.ne.jp/1137
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません