array to xml

[jernej]

i made a webservice that generates an 2 dimensional array and fills it with information. I found som tutorials on how to generate xml with the dataset method WriteXmlShema. How can i represent the data from my array in xml?
thanks

[jkw119]

Dim myStream As System.IO.Stream
Dim saveFileDialog1 As New SaveFileDialog()
Dim SomeFileName As String
Dim SomeDataSet as DataSet
Dim myDataColumn As DataColumn
Dim myDataRow As DataRow
 
SomeDataSet = New DataSet("SomeDataSet")
SomeTable = New DataTable("SomeTable")
SomeDataSet.Tables.Add(SomeTable)
 
'Create First Column
myDataColumn = New DataColumn()
myDataColumn.ColumnName = "Array1"
SomeTable.Columns.Add(myDataColumn)
 
' Create second column.
myDataColumn = New DataColumn()
myDataColumn.ColumnName = "Array 2"
SomeTable.Columns.Add(myDataColumn)
 
Dim x As Integer
For x = 0 To (EndofFile)
      myDataRow = SomeTable.NewRow
      myDataRow("Array 1") = Array1(x, y)
      myDataRow("Array 2") = Array2(x, y)
      SomeTable.Rows.Add(myDataRow)
Next
 
saveFileDialog1.Title = "Save XML File"
saveFileDialog1.InitialDirectory = "c:"
saveFileDialog1.Filter = "xml files (*.xml)|*.xml|All files (*.*)|*.*"
saveFileDialog1.FilterIndex = 1
saveFileDialog1.RestoreDirectory = True
 
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
     SomeFileName = saveFileDialog1.FileName
     SomeDataSet.WriteXml(SomeFileName)
     If Not (myStream Is Nothing) Then
           myStream.Close()
     End If
End If

[jernej]

thanks a tousand times