Imports System: System 名前空間には、共通して使用される値データ型と参照データ型、イベントとイベントハンドラ、インターフェイス、属性、および処理例外を定義する基本的なクラスや基本クラスが含まれています。
http://msdn2.microsoft.com/ja-jp/library/system(VS...
Imports System.Xml: System.Xml 名前空間は、XML を処理するための標準ベースのサポートを提供
http://msdn2.microsoft.com/ja-jp/library/system.xm...
Imports System.Text.RegularExpressions: System.Text.RegularExpressions 名前空間には、.NET Framework 正規表現エンジンへのアクセスを提供するクラスが含まれています。この名前空間は、Microsoft .NET Framework 内で実行するいずれのプラットフォームまたは言語より使用される可能性のある正規表現機能を提供します。
http://msdn2.microsoft.com/ja-jp/library/system.te...

▲上へ

Xmlドキュメントを読み込む

XmlDocumentクラスを利用する

.NET Framework クラスライブラリ
XmlDocument クラス
XML ドキュメントを表します。

Visual Basic (使用法)
Dim instance As XmlDocument

== ローカルのXMLファイルを利用 ==
Xml.XmlDocument.Load(FILE_PATH)

Dim XmlWebSrvInstance As New Xml.XmlDocument
XmlWebSrvInstance.Load("c:\WebSrv\srv.xml")

== WebサービスのURLを指定 ==
Xml.XmlDocument.Load(URL)

Dim XmlWebSrvInstance As New Xml.XmlDocument
XmlWebSrvInstance.Load("http://sample-WebSrv.com/XmlSrv/Rest/Srv.xml")

▲上へ

WebClientを利用する

.NET Framework クラスライブラリ
WebClient メンバ
URI で識別されるリソースとのデータの送受信用の共通のメソッドを提供します。==

.NET Framework クラスライブラリ
File.OpenRead メソッド
読み取り用の既存のファイルを開きます。

Visual Basic (使用法)
Dim path As String
Dim returnValue As FileStream
returnValue = File.OpenRead(path)

.NET Framework クラスライブラリ
Stream メンバ
バイトシーケンスのジェネリックビューを提供します。

Visual Basic (使用法)
Dim instance As Stream

.NET Framework クラスライブラリ
XmlDocument.Load メソッド (Stream)
指定したストリームから XML ドキュメントを読み込みます。

Visual Basic (使用法)
Dim instance As XmlDocument
Dim inStream As Stream

instance.Load(inStream)

== 記述例 ==
System.Net.WebClient() , System.IO.Stream を使用し Xml.XmlDocument.Load()

.NET Framework クラスライブラリ
WebClient.OpenRead メソッド (String)

Visual Basic (使用法)
Dim instance As WebClient
Dim address As String
Dim returnValue As Stream

returnValue = instance.OpenRead(address)

Const WEB_SRV_URI As String = "http://sample-WebSrv.com/XmlSrv/Rest/Srv.xml"
Dim XmlWebSrvInstance As New Xml.XmlDocument
Dim XmlWebSrvClient As New System.Net.WebClient()
Dim SysIoStream As System.IO.Stream = XmlWebSrvClient.OpenRead(WEB_SRV_URI)

XmlWebSrvInstance.Load(SysIoStream)

SysIoStream.Close()

== 記述例 ==
System.Net.HttpWebRequest , System.Net.HttpWebResponse を使用し Xml.XmlDocumen.Load()

.NET Framework クラスライブラリ
HttpWebRequest クラス

Visual Basic (使用法)
Dim instance As HttpWebRequest

.NET Framework クラスライブラリ
WebRequest.Create メソッド (String)

Visual Basic (使用法)
Dim requestUriString As String
Dim returnValue As WebRequest

returnValue = WebRequest.Create(requestUriString)

.NET Framework クラスライブラリ
HttpWebResponse クラス

Visual Basic (使用法)
Dim instance As HttpWebResponse

.NET Framework クラスライブラリ
HttpWebRequest.GetResponse メソッド

Visual Basic (使用法)
Dim instance As HttpWebRequest
Dim returnValue As WebResponse

returnValue = instance.GetResponse

.NET Framework クラスライブラリ
HttpWebResponse.GetResponseStream メソッド

Visual Basic (使用法)
Dim instance As HttpWebResponse
Dim returnValue As Stream

returnValue = instance.GetResponseStream

Const WEB_SRV_URI As String = "http://sample-WebSrv.com/XmlSrv/Rest/Srv.xml"
Dim XmlWebSrvInstance As New Xml.XmlDocument
Dim HttpWebRequest As System.Net.HttpWebRequest
HttpWebRequest = System.Net.HttpWebRequest.Create(WEB_SRV_URI)
Dim HttpWebResPonse As System.Net.HttpWebResponse = HttpWebRequest.GetResponse()

XmlWebSrvInstance.Load(HttpWebResPonse.GetResponseStream())

▲上へ

XmlDocument.LoadXmlメソッドを利用する

.NET Framework クラスライブラリ
XmlDocument.LoadXml メソッド
指定した文字列から XML ドキュメントを読み込みます。

Visual Basic (使用法)
Dim instance As XmlDocument
Dim xml As String
instance.LoadXml(xml)

== 記述例 ==
Xml.XmlDocument.LoadXml(strXml)

Dim XmlWebSrvInstance As New Xml.XmlDocument
Dim strXml As String = "<item><name>wrench</name></item>"

XmlWebSrvInstance.LoadXml(strXml)

※strXml :: XMLデータが読み込まれた変数名

==使用例==
XML を XmlDocument オブジェクトに読み込み、ファイルに保存する例。
Visual Basic コードのコピー

Imports System
Imports System.Xml

public class Sample

　public shared sub Main()

　　' Create the XmlDocument.
　　Dim doc as XmlDocument = new XmlDocument()
　　doc.LoadXml("<item><name>wrench</name></item>")

　　' Add a price element.
　　Dim newElem as XmlElement = doc.CreateElement("price")
　　newElem.InnerText = "10.95"
　　doc.DocumentElement.AppendChild(newElem)

　　' Save the document to a file and auto-indent the output.
　　Dim writer as XmlTextWriter = new XmlTextWriter("data.xml",nothing)
　　writer.Formatting = Formatting.Indented
　　doc.Save(writer)

　end sub

end class

※上記 ↑ XmlDocumentオブジェクトの作成

▲上へ

XmlTextReaderクラスを使用する

.NET Framework クラスライブラリ
XmlTextReader.Read メソッド

Visual Basic (使用法)
Dim instance As XmlTextReader
Dim returnValue As Boolean

returnValue = instance.Read

== 記述例 ==

Dim xlr As XmlTextReader        'XML
xlr = New XmlTextReader(WebSrv)

While xlr.Read()                  'XMLファイル読み込みを繰り返す
  Select Case xlr.LocalName         'XMLタグによる処理分岐
    Case "Title"                      '<Title>
      Title = xlr.ReadString
      ListBox4.Items.Add(Title)
    Case "DetailPageURL"              '<DetailPageURL>
      Url = xlr.ReadString
      ListBox5.Items.Add(Url)
    Case "ClickUrl"                   '<ClickUrl>
      Url = xlr.ReadString
      ListBox5.Items.Add(Url)
  End Select
End While

xlr.Close()

▲上へ