C# と VB.NET の質問掲示板

"str01" って指定したら XML の <str01> タグの値が取れればいいのかな？

SortedList とか。

入力XMLの仕様とコード上からXMLタグをどのように指定してどのような値を取りたいのか
をもう少し詳細に書いたらいいですね。
おそらく、
<str01 value="1" name="山田" />
<str02 value="2" name="田中" />
<str03 value="3" name="上下" />
<str04 value="4" name="左右" />
...
<str99 value="99" name="九九" />

こんなんじゃなかろうかと思いますが。構造体がどーのこーのだから、値の部分が
クラスにでもなるのかな？

で、こんなんやつを、
"str01" をキーにして 値を("1" , "山田") で保持したいってことでしょう？

public class XXX
   private value as String  //strXX のプロパティ
   private name as String  //strXX のプロパティ
   private tag as String //XML の タグ名 str01 〜 str99 まで？（タグ名でソートする場合に使う、及びマップのキー）
   private index as Integer //XML の上からの定義順序（定義順序でソートする場合に使う）
end class

なんちゅークラスでもこさえて、

private _map as new HashMap

_map.put(xxx.tag, xxx)

とかしておいて、

プログラムからは、

_map.get("str01") とか名指しで取得する。

定義順序が重要な局面では、index でソートして、
タグ名の序列が重要なら tag でソートかければ

順序に関してもOKですね。


XML は全部読み込んでから、"str01" から "str99" まですべてのノードを検索して
そのプロパティでもって、XXX クラス作ってどーたらこーたらで完成です。

連想配列って言葉を知っているってことは Perl/PHP の知識はあるんですよね、
あれと同じです。あれの場合はこーなるから、VBならこーなるって適当に組んじゃえば
OK。

IXmlSerializableを実装してみました。

データを格納するクラス(TestClass)です。
名前が超適当な上に、必要最低限な実装ですが…
-----------------
Imports System.Xml.Schema
Imports System.Xml.Serialization
Imports System.Collections.Generic

Public Class TestClass
    Implements IXmlSerializable

    Public Items As Dictionary(Of String, String)

    Public Sub New()
        Me.Items = New Dictionary(Of String, String)
    End Sub

    Public Function GetSchema() As System.Xml.Schema.XmlSchema Implements System.Xml.Serialization.IXmlSerializable.GetSchema
        Return Nothing
    End Function

    Public Sub ReadXml(ByVal reader As System.Xml.XmlReader) Implements System.Xml.Serialization.IXmlSerializable.ReadXml
        '省略
    End Sub

    Public Sub WriteXml(ByVal writer As System.Xml.XmlWriter) Implements System.Xml.Serialization.IXmlSerializable.WriteXml
        For Each key As String In Me.Items.Keys
            writer.WriteElementString(key, Me.Items(key))
        Next
    End Sub
End Class
-----------------

そしてこんな感じに値をセットしていきます。
Dim tc As TestClass = New TestClass
tc.Items.Add("str01", "aaa")
tc.Items.Add("str02", "bbb")
tc.Items.Add("str03", "ccc")
で、XMLへとシリアライズすると、以下のような結果になりました。
<?xml version="1.0"?>
<TestClass>
  <str01>aaa</str01>
  <str02>bbb</str02>
  <str03>ccc</str03>
</TestClass>

目的に適っているでしょうか？？
ReadXmlメソッドを思いっきり省略しているので、
もしXMLからデシリアライズするなら実装しないといけませんが。。