Using strings in XML literals

Question

I am a C # developer who broke into the first VB code he wrote with VB6, so if I ask a pretty obvious question, please forgive me.

I decided to experiment with XML literals to generate some XML code for me, instead of using XMLDocument

I have 2 questions, the second about a workaround due to my inability to find out the first.

1: The perfect solution

I have an ElementName element dictionary, ElementValue, whose KeyValue pairs I looped in the hope of dynamically generating values, but the following syntax is dying terribly

Dim xConnections As XElement        
For Each connection As Connection In connections.AsList
    For Each kvp As KeyValuePair(Of String, String) In connection.DecompiledElements
        xConnections = <Connections> <<%= kvp.Key %>><%= kvp.Value %><\<%=kvp.Key %>>  </Connections>
    Next
Next

I vaguely recall the T4 syntax (syntax <% =%>) that can handle more complex operations (rather than directly assigning it to the object <% =) and the Response.Write object, write the output, but I cannot remember the details.

2: Cludgy workaround

Instead, I thought about creating a StringBuilder object and assigning it .ToString to XElement, but this also failed with a conversion error.

I would rather continue to use the concept of a pair of key values ​​in the example above, since I feel that concatenating a string, as in example 2 above, is rather unpleasant, and I really should return to using XMLDocument if instead.

Any thoughts or help that are much appreciated

Answer 1

, , StringBuilder. StringBuilder.Append XmlElement 'OuterXml'.

:

sb.append(xmlElement.OuterXml)

Answer 2

XML- VB.NET , LINQ . , .

Dim Elements = New Dictionary(Of String, String)
Elements.Add("Key1", "Value1")
Elements.Add("Key2", "Value2")
Elements.Add("Key3", "Value3")

Dim xConnections = <Connections>
                       <%= From elem In Elements _
                           Select <<%= elem.Key %>><%= elem.Value %></> %>
                   </Connections>

</> - , vb, xml, <%= %>.

xConnections.ToString :

<Connections>
    <Key1>Value1</Key1>
    <Key2>Value2</Key2>
    <Key3>Value3</Key3>
</Connections>

Answer 3

...

XML , XElement.Parse XElement ( , )

, :

Dim conns = connections.AsList()
If conns IsNot Nothing AndAlso conns.length > 0 Then
    Dim index = 0
    Dim xConnections = _
        <Connections>
            <%= From kvp As KeyValuePair(Of String, String) In conns (System.Threading.Interlocked.Increment(index)).DecompiledElements() _
            Select XElement.Parse("<" & <%= kvp.Key %> & ">" & <%= kvp.Value %> & "</" & <%= kvp.Key %> & ">") _
             %>
        </Connections>
    Return xConnections.ToString()
End If

ToString OuterXML ( ...) , ToString(), XElement

, AsList(), , DecompiledElements, . , .

Answer 4

, XML-, , . XML , :

. XML /, plists?

<dict>
    <key>Author</key>
    <string>William Shakespeare</string>
    <key>Title</key>
    <string>Romeo et</string>
    <key>ISBN</key>
    <string>?????</string>
</dict>