Add attributes with XElement

Question

I have a file xml like this:

<?xml version="1.0" encoding="utf-8"?>

<svg version="1.1">
<g ID="Prova1"/>
<g ID="Prova2"/>
</svg>

I need to add some attributes in the nodes For example:

<?xml version="1.0" encoding="utf-8"?>

<svg version="1.1">
 <g ID="Prova1" onclick="prova()" />
 <g ID="Prova2" onclick="prova()" />
</svg>

Where the id is null i don't do something. I use VB.net and class XElement

You have to use `XAttribute`. – sborfedor Dec 01 '15 at 11:36 — sborfedor, Dec 01 '15 at 11:36

dbasnett · Answer 1 · 2015-12-02T09:46:00.527

1

Give this a try

Dim someXE As XElement = <svg version="1.1">
                             <g ID="Prova1"/>
                             <g ID="Prova2"/>
                         </svg>

For Each xe As XElement In someXE.Elements
    xe.@onclick = "prova()"
Next

edited Dec 02 '15 at 09:46

answered Dec 01 '15 at 12:21

dbasnett

11,334
2
25
33

@Fabio - don't understand your comment. – dbasnett Dec 02 '15 at 09:44
I liked that you used `XML Literals` - specific property of VB.NET – Fabio Dec 02 '15 at 10:03

score 0 · Answer 2 · answered Dec 01 '15 at 13:23

Try this

Imports System.Xml
Imports System.Xml.Linq
Module Module1

    Sub Main()
        Dim xml As String = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
                            "<svg version=""1.1"">" & _
                            "<g ID=""Prova1""/>" & _
                            "<g ID=""Prova2""/>" & _
                            "</svg>"
        Dim element As XElement = XElement.Parse(xml)
        For Each g As XElement In element.Descendants("g")
            g.Add(New XAttribute("onclick", "prova()"))
        Next g
    End Sub

End Module

Add attributes with XElement

2 Answers2