• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

AriOps

[VB.NET 2005] Acesso e manipulação de files XML

5 mensagens neste tópico

Boas,

Estou a criar uma aplicação em vb.net 2005 e surgiu a necessidade de desenvolver  um  sistema de profiles. Pensei logo em usar XML por pensar ser a mais funcional e também porque gostava de aprender a trabalhar com estes ficheiros. Já criei um ficheiro XML, agora o que eu não sei é:

- Como aceder

- Como manipular

Se alguém pudesse ajudar agradecia, também já vi o Nazgulled a falar sobre isto algures :)

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu uso o System.Xml ( XmlWriter, XmlReader, etc etc) ... explora tambem o XPath...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

alguns exemplos usando o SYSTEM.XML

system.xml

    'Reading xml
    Private Sub Read_XML()
        Dim XMLReader As Xml.XmlReader
        XMLReader = New Xml.XmlTextReader("List.xml")
        While XMLReader.Read
            Select Case XMLReader.NodeType
                Case Xml.XmlNodeType.Element
                    If XMLReader.AttributeCount > 0 Then
                        While XMLReader.MoveToNextAttribute
                            If XMLReader.Name = "File" Then
                                ListBox1.Items.Add(XMLReader.Value)
                            ElseIf XMLReader.Name = "Title" Then
                                ListBox2.Items.Add(XMLReader.Value)
                            Else
                                ' Do Nothing
                            End If
                        End While
                    End If
            End Select
        End While
        XMLReader.Close()
    End Sub


    'Writing xml
    Private Sub Write_XML()
        Dim XMLobj As Xml.XmlTextWriter
        Dim ue As New System.[Text].UnicodeEncoding()
        XMLobj = New Xml.XmlTextWriter("List.xml", ue)

        XMLobj.Formatting = Xml.Formatting.Indented
        XMLobj.Indentation = 3
        XMLobj.WriteStartDocument()

        XMLobj.WriteStartElement("List")

        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            XMLobj.WriteStartElement("MP3_File")
            Dim temp As String = ""
            Dim temp1 As String = ""
            ListBox1.SetSelected(i, True)
            ListBox2.SetSelected(i, True)
            temp = ListBox1.SelectedItem
            temp1 = ListBox2.SelectedItem
            XMLobj.WriteAttributeString("File", temp)
            XMLobj.WriteAttributeString("Title", temp1)
            XMLobj.WriteEndElement()
        Next
        XMLobj.WriteEndElement()
        XMLobj.Close()
    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora