Двумерный массив -> XML

[vi-kar]

1- Создаю динамический массив: Dim x(,) as string. Правильно создаю?

2- Далее записываю этот массив через класс:

Код: Выделить всё

Dim mySerialize As New Xml.Serialization.XmlSerializer(GetType(Class1))
Dim myWriter As New IO.StreamWriter(MyConfigFileName)
mySerialize.Serialize(myWriter, MyConfig)
myWriter.Close()

При записи в XML появляется ошибка, когда выполняется строчка

Код: Выделить всё

Xml.Serialization.XmlSerializer(GetType(Class1))

следующего содержания:
Возникла ошибка при отражении типа "WindowsApplication1.Class1"

Как исправить эту ошибку?

3- Массиву нужно присвоить данные из ListView:

Код: Выделить всё

x(0, 0) = ListView1.Items.Item(0).ToString

Правильно ли я это выполняю?

4- Вообще в XML можно записать двумерный массив?

[Viper]

1. Правильно.
2. А что за класс Class1? Что в нем есть?
3. Это присваивание первому элементу первого элемента ListView.
4. Почему нет?

З.Ы. Мало исходых данных, пиши больше. Короче, код в студию.

[vi-kar]

Вот класс формы(на форме всего два объекта: ListView и Button):

Код: Выделить всё

Public Class Form1
    Public MyConfig As New Class1
    Public MyConfigFileName As String = Application.StartupPath & "\data.xml"

    Private Sub ListView1_ColumnWidthChanging(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnWidthChangingEventArgs) Handles ListView1.ColumnWidthChanging
        e.Cancel = True
        e.NewWidth = ListView1.Columns.Item(e.ColumnIndex).Width
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.Dispose()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        a = 0
        b = 0
        c = ListView1.Items.Count

        While a < c
            If b = 0 Then
                MyConfig.x(a, b) = ListView1.Items.Item(a).ToString
            Else
                MyConfig.x(a, b) = ListView1.Items(a).SubItems(b).ToString
            End If
            b = b + 1
            If b = 3 Then
                b = 0
                a = a + 1
            End If
        End While

        Dim mySerialize As New Xml.Serialization.XmlSerializer(GetType(Class1))
        Dim myWriter As New IO.StreamWriter(MyConfigFileName)
        mySerialize.Serialize(myWriter, MyConfig)
        myWriter.Close()
    End Sub
End Class

Вот класс Class1(в нем просто хранится переменная для записи ее в файл):

Код: Выделить всё

Imports System.Xml.Serialization

Public Class Class1
    Public x(,) As String
End Class

[vi-kar]

Ну так... Что я не правильно сделал?

[Viper]

Во-первых, у тебя нигде не переопределяется массив.
Во-вторых, сериализация сложных типов, а к таковым относятся в том числе и массивы любой размерности напрямую неподдерживается.
Однако сериализовать можно все, что угодно. Хоть в XML, хоть куда. Только для этого надо приложить ряд усилий. Щаз непомню, но в свое время, когда возился с сериализацией никаких особых сложностей не было. В MSDN очень подробно все описано.

[vi-kar]

Можно ссылочку на пример или сам пример, как переопределить массив?
И ссылку на пример в MSDN или пример сюда?

И вообще как искать примеры в msdn?

[vi-kar]

Я посмотрел на msdn но того что надо не нашел. Выложите пример по работе с двумерным массивом и xml. Пожалуйста!

[ACiD]

http://msdn.microsoft.com/en-us/library ... ation.aspx

[vi-kar]

Спасибо за ссылку.
Пару дней с xml не работал, а сегодня решил продолжить опыты с примером.

Так вот. Застопорился опять на том же месте:

'Объявляю массив
Dim array(,) as string

'Присвайваю строку
array(0, 0) = ListView1.Items.Item(0).ToString

При запуске моего проекта на месте присваивания строки появляется ошибка: "В экземпляре объекта не заданна ссылка на объект"

Как исправить проблему?

На поисковике и MSDN (установленный с студией) был, но не чего не нашел.

[Viper]

Слово Redim автору не знакомо?
C его помощью можно можно (и нужно) задать нужный размер массиву.

[vi-kar]

Так, последняя проблемка решена. Сохранение получилось.

Теперь мучаюсь с загрузкой.
Когда разберусь, выложу исходники.