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

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 67 を表示中)
■38513 / )  DataSetで特定の要素をまとめてXMLに出力するには
□投稿者/ しろくま (1回)-(2009/07/17(Fri) 11:16:58)

分類:[VB.NET/VB2005 以降] 

以下のプログラムを実行した際に出力されるXMLで
<TitleList>の要素が3つに分割されているのを一つにまとめて
  <TitleList>
    <title>1000</title>
    <title>2000</title>
    <title>3000</title>
  </TitleList>
と出力したいのですが、どのようにすればよいのでしょうか?
環境はVS2008Pro SP1のVBを使用しております

■プログラム
Dim ds As New DataSet("Setting")

Dim dr As DataRow

Dim dt3 As New DataTable("TitleList")
dt3.Columns.Add("title", Type.GetType("System.String"))

For i As Integer = 0 To TextBox1.Lines.Count - 1
    dr = dt3.NewRow
    dr.Item("title") = TextBox1.Lines(i).ToString
    dt3.Rows.Add(dr)
Next
ds.Tables.Add(dt3)

ds.WriteXml("Settings/SettingList.xml")

■出力結果
<?xml version="1.0" standalone="yes"?>
<Setting>
  <TitleList>
    <title>1000</title>
  </TitleList>
  <TitleList>
    <title>2000</title>
  </TitleList>
  <TitleList>
    <title>3000</title>
  </TitleList>
</Setting>

返信 編集キー/


管理者用

- Child Tree -