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

以下のプログラムを実行した際に出力されるXMLで
<TitleList>の要素が３つに分割されているのを一つにまとめて
  <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>

■No38513 (しろくま さん) に返信
> 以下のプログラムを実行した際に出力されるXMLで
> <TitleList>の要素が３つに分割されているのを一つにまとめて
>   <TitleList>
>     <title>1000</title>
>     <title>2000</title>
>     <title>3000</title>
>   </TitleList>
> と出力したいのですが、どのようにすればよいのでしょうか？


(案1) DataSet.WriteXml した結果を、XSLT を用いて構造変換する。

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
	<xsl:output indent="yes" omit-xml-declaration="no" standalone="yes" />
	<xsl:template match="/">
		<Setting>
			<TitleList>
				<xsl:apply-templates />
			</TitleList>
		</Setting>
	</xsl:template>
	<xsl:template match="TitleList/title">
		<xsl:copy-of select="." />
	</xsl:template>
</xsl:stylesheet> 



(案2) DataSet.WriteXml に頼らず、自分で XML を組み立てる。

Dim xml = <?xml version="1.0" standalone="yes"?>
          <Setting>
            <TitleList>
              <%= From s In TextBox1.Lines Select <title><%= s %></title> %>
            </TitleList>
          </Setting>
xml.Save("C:\SettingList.xml")