| ■69860 |
Re[1]: ASP.NETでのWEBのAPIにおけるXMLの取得について |
□投稿者/ kazu -(2014/02/03(Mon) 08:13:05)
| 2014/02/03(Mon) 08:39:20 編集(投稿者)
エラーという表示をいれて構造がずれないようにしたのですが、エラーが表示されません。これを使って帳票形式のフォームを作ろうとしましたが、ダメでした。どうして、エラーという文字が出ないのでしょうか？宜しくお願いします。
Imports System.Web
Imports System.Xml
Imports System.Xml.Xsl
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim xmldoc As New XmlDocument()
Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(xmldoc.NameTable)
nsmgr.AddNamespace("dc", "http://purl.org/dc/elements/1.1/")
nsmgr.AddNamespace("xsi", "http://www.w3.org/2001/XMLSchema-instance")
nsmgr.AddNamespace("dcndl", "http://ndl.go.jp/dcndl/terms/")
xmldoc.Load("http://iss.ndl.go.jp/api/opensearch?isbn=9784062812016")
Dim d(11) As String
Dim list As XmlNodeList
Dim node As XmlNode
list = xmldoc.SelectNodes("/rss/channel/item/dc:identifie[@xsi:type='dcndl:ISBN']", nsmgr)
For Each node In list
Select Case list.Count
Case Is = 1
d(11) = node.InnerText
TextBox11.Text = d(11)
Case Is = 0
TextBox11.Text = "エラー"
End Select
Next
End Sub
End Class
Caseの所に何か適切なものを入れて条件分岐で判断してデータを取得して、 GridView1に表示させようと考えました。 |
|