Запись и чтение xml

[kitit]

Друзья научите новичка считывать данные и записывать в XML,

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


'Запись
Dim xtw As System.Xml.XmlTextWriter = New System.Xml.XmlTextWriter(My.Application.Info.DirectoryPath & "\my.cfg", Nothing)
With xtw
            .Formatting = System.Xml.Formatting.Indented
            .WriteStartDocument(False)
            .WriteComment("Confidential")
            .WriteStartElement("Spisok_Diskov", "Lokalnih")
            .WriteElementString("Disk1", "C:\")
            .WriteElementString("Disk2", "D:")
            .WriteStartElement("Maski_Faylov")
            .WriteElementString("Pattern1", "*.txt")
            .WriteElementString("Pattern1", "*.doc")
            .WriteEndElement()
            .WriteEndDocument()
            .Flush()
            .Close()
        End With


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

'Чтение
Dim xr As System.Xml.XmlTextReader = New System.Xml.XmlTextReader(My.Application.Info.DirectoryPath & "\my.cfg")
        While xr.Read()
            Select Case (xr.NodeType)
                                Case System.Xml.XmlNodeType.Element
                    Me.ListBox1.Items.Add("ElementName:" & xr.Name)
                                  Case System.Xml.XmlNodeType.Text
                                      Me.ListBox1.Items.Add("Text:" & xr.Value)
                              End Select
        End While


Но я не могу разобраться как записывать например четко в строку "Disk2", например поменять его на E:

Можно както не перебирая каждую строку, напирмер как в ИНИ-файл записать точно в конкретную......

Заранее всем спасибо.

[Nord777]

Тебе это нужно для настроек приложения?

[kitit]

да...
Только хотелось бы с примерчиком, не отправка меня в MSDN

[Ramzes]

Создай класс настроек (все равно из него удобниее считывать) а потом сериализация / десериализация

[kitit]

Создай класс настроек (все равно из него удобниее считывать) а потом сериализация / десериализация

Ну примерчик можно... яж совсем дикий в этом вопросе ...pleeees

[Ramzes]

Создай класс настроек (все равно из него удобниее считывать) а потом сериализация / десериализация

Ну примерчик можно... яж совсем дикий в этом вопросе ...pleeees

Набросла за 5 мин на C#
если чего, пиши, переведу, сейчас лень на VB писать

[Nord777]

Как вариант зайди в свойства проекта на вкладу "Settings".
В поле "Name" задай имя переменной (к примеру "LastAccess").
Доступ из кода

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

    MsgBox(My.Settings.LastAccess)
    My.Settings.LastAccess = Now.ToString
    My.Settings.Save()

[kitit]

Набросла за 5 мин на C#
если чего, пиши, переведу, сейчас лень на VB писать [/quote]

Спасибо...
На VB.NET нужно... у меня С# нет

Отдельное спасибо Nord777

[kitit]

Еще вопросик в Settings настройки только на текущий сеанс и после перезапуска приложения все станут по-умолчанию или нет?

[Nord777]

настройки сохраняются

[kitit]

Можно ли програмно добавлять и удалять настройки?

[Nord777]

Можно ли програмно добавлять и удалять настройки?

Не знаю. Подозреваю что нет.

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

    Dim path As String = My.Application.Info.DirectoryPath & "\my.xml"
    Dim xr As System.Xml.XmlTextReader = New System.Xml.XmlTextReader(path)

    Dim XDoc As New XmlDocument
    XDoc.Load(xr)

    Dim XNlist As XmlNodeList = XDoc.GetElementsByTagName("Disk1")
    XNlist(0).InnerText = "Z:\"
    xr.Close()

    Dim xtw As System.Xml.XmlTextWriter = New System.Xml.XmlTextWriter(path, Nothing)
    XDoc.WriteTo(xtw)
    xtw.Close()

[Thomas]

kitit
Посмотри еще вот это
Может пригодиться.