Nodes & XML - File Sample – Visual Basic – Fórum – Programujte.com

Cavte

Potreboval by som nejaký link na File sample ako uložit nodes s treeview do XML (samozrejme aj s ich child nodes). Staci ked napisete link na návod podla ktorého ste sa vi riadili ked ste robili nieco podobne prvý krat respektive link na nejaký file sample kde je to už hotové. Vopred dakujem.

nazdar ........ mám takýto kód na ukladanie nodes do XML súboru 

       Dim settings As New XmlWriterSettings()
        settings.Indent = True

        ' Initialize the XmlWriter.
        Dim XmlWrt As XmlWriter = XmlWriter.Create("MyName.xml", settings)

        With XmlWrt


            .WriteStartDocument()

            .WriteComment("TreeView1Nodes")



            Dim i As Integer = 0
            Dim iend As Integer = TreeView1.Nodes.Count - 1
            Do Until i = iend
                .WriteStartElement(TreeView1.Nodes.Item(i).Text)
                Dim i2 As Integer = 0
                Dim i2end As Integer = TreeView1.Nodes.Item(i).Nodes.Count - 1
                Do Until i2 = i2end
                    .WriteStartElement(TreeView1.Nodes.Item(i).Nodes.Item(i2).Text)
                    Dim i3 As Integer = 0
                    Dim i3end As Integer = TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Count - 1
                    Do Until i3 = i3end
                        .WriteStartElement(TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Item(i3).Text)
                        i3 = i3 + 1
                    Loop
                    Dim i3info As String = TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Item(i3end).Text
                    .WriteEndElement(i3info)
                    i2 = i2 + 1
                Loop
                Dim i2info As String = TreeView1.Nodes.Item(i).Nodes.Item(i2end).Text
                .WriteEndElement(i2info)
                i = i + 1
            Loop
            Dim iinfo As String = TreeView1.Nodes.Item(iend).Text
            .WriteEndElement(iinfo)


            .WriteEndElement()
            .WriteEndDocument()
            .Close()


        End With


        MessageBox.Show("XML file saved.")

ale pri .WriteEndElement(iinfo) ; .WriteEndElement(i2info) ; WriteEndElement(i3info) mi vyhodí túto chybu 

"Too many arguments to 'Public MustOverride Sub WriteEndElement()'."

Poradte pls ..... Vopred díky

WriteEndElement nemá parametry.

aha ... díky

a nevies preco mi to aj tak nic nezapíše do súboru

Pokud máš jen prázdný soubor, tak zkus před Close dát ještě .Flush().

teraz to vyzerá asi takto 

Dim settings As New XmlWriterSettings()
        settings.Indent = True

        ' Initialize the XmlWriter.
        Dim XmlWrt As XmlWriter = XmlWriter.Create("MyName.xml", settings)

        With XmlWrt


            .WriteStartDocument()

            .WriteComment("TreeView1Nodes")



            Dim i As Integer = 0
            Dim iend As Integer = TreeView1.Nodes.Count - 1
            Do Until i = iend
                .WriteStartElement(TreeView1.Nodes.Item(i).Text)
                Dim i2 As Integer = 0
                Dim i2end As Integer = TreeView1.Nodes.Item(i).Nodes.Count - 1
                Do Until i2 = i2end
                    .WriteStartElement(TreeView1.Nodes.Item(i).Nodes.Item(i2).Text)
                    Dim i3 As Integer = 0
                    Dim i3end As Integer = TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Count - 1
                    Do Until i3 = i3end
                        .WriteStartElement(TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Item(i3).Text)
                        i3 = i3 + 1
                    Loop
                    Dim i3info As String = TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Item(i3end).Text
                    .WriteEndElement()
                    i2 = i2 + 1
                Loop
                Dim i2info As String = TreeView1.Nodes.Item(i).Nodes.Item(i2end).Text
                .WriteEndElement()
                i = i + 1
            Loop
            Dim iinfo As String = TreeView1.Nodes.Item(iend).Text
            .WriteEndElement()


            .WriteEndElement()  'A tu my vyhadzuje InvalidOperationException !!!!!!!!!!!!!!!!!!!!!

            .WriteEndDocument()

	    .Flush() 'Neviem či to má byť tu alebo úplne na začiatku !!!!!!!!!!!!!!!!!!!!!!
            .Close()


        End With


        MessageBox.Show("XML file saved.")

uz netreba uz som to vyriesil ale teraz mam uz konecne kód, ktorý už aj dačo ukladá ale ked mám prvý Node a ten má Child Node a ten má ešte jedno Child Node tak mi to do XML uloží iba

<Node0>
  <Node1 />

a ďalej nepokračuje ......

Kód:

Dim settings As New XmlWriterSettings()
        settings.Indent = True
        Dim XmlWrt As XmlWriter = XmlWriter.Create("C:\MyName.xml", settings)

        With XmlWrt
            .WriteStartDocument()

            .WriteComment("TreeView1Nodes")

            Dim i As Integer = 0
            Dim iend As Integer = TreeView1.Nodes.Count - 1
            Do Until i = iend
                Try
                    .WriteStartElement(TreeView1.Nodes.Item(i).Text)
                    Dim i2 As Integer = 0
                    Dim i2end As Integer = TreeView1.Nodes.Item(i).Nodes.Count - 1


                    Try
                        If TreeView1.Nodes.Item(i).Nodes.Item(0).IsVisible = True Then
                            Do Until i2 = i2end
                                Try
                                    .WriteStartElement(TreeView1.Nodes.Item(i).Nodes.Item(i2).Text)
                                    Dim i3 As Integer = 0
                                    Dim i3end As Integer = TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Count - 1


                                    Try
                                        If TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Item(0).IsVisible = True Then
                                            Do Until i3 = i3end
                                                Try
                                                    .WriteStartElement(TreeView1.Nodes.Item(i).Nodes.Item(i2).Nodes.Item(i3).Text)

                                                    i3 = i3 + 1
                                                Catch ex As Exception
                                                    MsgBox("i3 Error")
                                                    Exit Do
                                                End Try
                                            Loop
                                            .WriteEndElement()
                                        Else
                                            i2 = i2 + 1
                                        End If
                                    Catch ex As NullReferenceException
                                        i2 = i2 + 1
                                    Catch ex As Exception
                                        MsgBox("Unknown Error i2!")
                                        Exit Do
                                    End Try
                                Catch ex As Exception
                                    Exit Do
                                End Try
                            Loop
                            .WriteEndElement()
                        Else
                            i = i + 1
                        End If
                    Catch ex As NullReferenceException
                        i = i + 1
                    Catch ex As Exception
                        MsgBox("Unknown Error i!")
                        Exit Do
                    End Try
                Catch ex As Exception
                    Exit Do
                End Try
            Loop
            .WriteEndElement()

            .WriteEndDocument()

            .Flush()

            .Close()
        End With
        MessageBox.Show("XML file saved.")

neviem preco mi to neuklada ....

A co na to říká debugger a krokování? Projde ti to celý kód nebo tě to někde vyhodí?

.WriteStartElement(TreeView1.Nodes.Item(i).Text) 
pri tomto to ešte ide v pohode ale keď už prejde na Dim i2 As Integer = 0 tak vyhodí chybu

Takže to vyhodí  výjimku? A jakou? Nebo to zdechne jinou chybou? A jakou?

vyhodí toto

 

MsgBox("Unknown Error i!")

Takže ti to skončí na výjimce. Takže stačí zobrazit informace v ní obsažené a víš, kde je chyba.

Zasláno z mobilního telefonu.

Nevieš prečo mi tu  

.WriteStartElement(TreeView1.Nodes.Item(i1).Text)

vyhodí chybu Invalid Operation ???

i1 = 0

uz by som to aj mal ale zapisuje mi to všetko do jedneho riadku ...

Zkus nastavit další vlastnosti z XmlWriterSettings.