スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

VB.Net XMLの読み込み方

今回は、かなり私的なメモです。

'保存元のファイル名
Dim fileName As String
fileName = System.IO.Directory.GetCurrentDirectory() + "\data.xml"
If System.IO.File.Exists(fileName) Then
'XmlSerializerオブジェクトを作成
Dim serializer As _
New System.Xml.Serialization.XmlSerializer(GetType(ComboBox.ObjectCollection))
'読み込むファイルを開く
Dim fs As New System.IO.FileStream(fileName, System.IO.FileMode.Open)
'XMLファイルから読み込み、逆シリアル化する
Dim reader As System.Xml.XmlTextReader = New System.Xml.XmlTextReader(fs) '(New StringReader(textBoxSource.Text))
Try
While reader.Read()
'String.Format("{0}円の商品を{1}個買う", 1000, 12)
Debug.WriteLine(String.Format("ノードを発見: {0}", reader.NodeType.ToString()))
Select Case reader.NodeType
Case Xml.XmlNodeType.Element
If reader.MoveToFirstAttribute() Then
Do
Debug.Print(String.Format("属性を発見 {0}={1}", reader.Name, reader.Value))
Loop Until (Not reader.MoveToNextAttribute())
End If
Case Xml.XmlNodeType.EndElement
Case Xml.XmlNodeType.Text
Debug.Print(String.Format("Textを発見 {0}={1}", reader.Name, reader.Value))
Me.TextBox_Keyword.Items.Add(reader.Value)
End Select
End While
Catch
Finally
reader.Close()
End Try

'ファイルを閉じる
fs.Close()
End If

スポンサーサイト

この記事のトラックバックURL

http://alphaiota.blog105.fc2.com/tb.php/479-9b79e5f5

コメント

コメントする

管理者にだけ表示を許可する

Template Designed by DW99

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。