Valori letterali XML in Visual Basic (LINQ to XML)

  • Articolo

Questo articolo fornisce informazioni sulla creazione di alberi XML in Visual Basic tramite valori letterali XML ed espressioni incorporate.

Esempio: Usare valori letterali XML per creare un albero XML

Nell'esempio seguente viene illustrato come creare un oggetto XElement, in questo caso contacts, con valori letterali XML:

Dim contacts As XElement = _
    <Contacts>
        <Contact>
            <Name>Patrick Hines</Name>
            <Phone>206-555-0144</Phone>
            <Address>
                <Street1>123 Main St</Street1>
                <City>Mercer Island</City>
                <State>WA</State>
                <Postal>68042</Postal>
            </Address>
        </Contact>
    </Contacts>

Esempio: Usare valori letterali XML per creare un oggetto XElement con contenuto semplice

È possibile creare un oggetto XElement con contenuto semplice, come illustrato di seguito:

Dim n as XElement = <Customer>Adventure Works</Customer>
Console.WriteLine(n)

Nell'esempio viene prodotto l'output seguente:

<Customer>Adventure Works</Customer>

Esempio: Usare un valore letterale XML per creare un elemento vuoto

È possibile creare un oggetto XElement vuoto, come illustrato di seguito:

Dim n As XElement = <Customer/>
Console.WriteLine(n)

Nell'esempio viene prodotto l'output seguente:

<Customer />

Usare espressioni incorporate per creare contenuti

Un'importante funzionalità dei valori letterali XML è che consentono di usare espressioni incorporate. Con le espressioni incorporate è possibile valutare un'espressione e inserirne i risultati nell'albero XML. Se l'espressione restituisce un tipo di XElement, nell'albero viene inserito un elemento. Se l'espressione restituisce un tipo di XAttribute, nell'albero viene inserito un attributo. È possibile inserire elementi e attributi nell'albero solo nei casi in cui sono validi.

È importante notare che un'espressione incorporata può includere una sola espressione. Non è possibile incorporare più istruzioni. Se un'espressione si estende oltre una singola riga, è necessario usare il carattere di continuazione di riga.

Se si usa un'espressione incorporata per aggiungere nodi (inclusi elementi) e attributi esistenti a un nuovo albero XML e se per i nodi esistenti è già presente un elemento padre, i nodi vengono duplicati. I nuovi nodi duplicati vengono collegati al nuovo albero XML. Se per i nodi esistenti non è presente un elemento padre, i nodi vengono semplicemente collegati al nuovo albero XML. Questo comportamento è illustrato nell'ultimo esempio di questo articolo.

Esempio: Usare un'espressione incorporata per inserire un elemento

Nell'esempio seguente viene usata un'espressione incorporata per inserire un elemento nell'albero.

xmlTree1 As XElement = _
    <Root>
        <Child>Contents</Child>
    </Root>
Dim xmlTree2 As XElement = _
    <Root>
        <%= xmlTree1.<Child> %>
    </Root>
Console.WriteLine(xmlTree2)

Nell'esempio viene prodotto l'output seguente:

<Root>
  <Child>Contents</Child>
</Root>

Esempio: Usare un'espressione incorporata per i contenuti

È possibile usare un'espressione incorporata per fornire il contenuto di un elemento:

Dim str As String
str = "Some content"
Dim root As XElement = <Root><%= str %></Root>
Console.WriteLine(root)

Nell'esempio viene prodotto l'output seguente:

<Root>Some content</Root>

Esempio: Usare una query LINQ in un'espressione incorporata

È possibile usare i risultati di una query LINQ per fornire il contenuto di un elemento:

Dim arr As Integer() = {1, 2, 3}

Dim n As XElement = _
    <Root>
        <%= From i In arr Select <Child><%= i %></Child> %>
    </Root>

Console.WriteLine(n)

Nell'esempio viene prodotto l'output seguente:

<Root>
  <Child>1</Child>
  <Child>2</Child>
  <Child>3</Child>
</Root>

Esempio: Usare un'espressione incorporata per fornire i nomi dei nodi

È possibile usare un'espressione incorporata anche per calcolare nomi e valori di attributi ed elementi:

Dim eleName As String = "ele"
Dim attName As String = "att"
Dim attValue As String = "aValue"
Dim eleValue As String = "eValue"
Dim n As XElement = _
    <Root <%= attName %>=<%= attValue %>>
        <<%= eleName %>>
            <%= eleValue %>
        </>
    </Root>
Console.WriteLine(n)

Nell'esempio viene prodotto l'output seguente:

<Root att="aValue">
  <ele>eValue</ele>
</Root>

Esempio: Usare un'espressione incorporata per clonare e collegare nodi

Come accennato in precedenza, se si usa un'espressione incorporata per aggiungere nodi (inclusi elementi) e attributi esistenti a un nuovo albero XML e se per i nodi aggiunti è già presente un elemento padre, i nodi vengono clonati e i cloni vengono collegati al nuovo albero XML. Se per i nodi esistenti non è presente un elemento padre, i nodi vengono semplicemente collegati al nuovo albero XML.

Nel codice seguente viene illustrato il diverso comportamento relativo all'aggiunta di un elemento con o senza elemento padre a una struttura ad albero.

' Create a tree with a child element.
Dim xmlTree1 As XElement = _
    <Root>
        <Child1>1</Child1>
    </Root>

' Create an element that's not parented.
Dim child2 As XElement = <Child2>2</Child2>

' Create a tree and add Child1 and Child2 to it.
Dim xmlTree2 As XElement = _
    <Root>
        <%= xmlTree1.<Child1>(0) %>
        <%= child2 %>
    </Root>

' Compare Child1 identity.
Console.WriteLine("Child1 was {0}", _
    IIf(xmlTree1.Element("Child1") Is xmlTree2.Element("Child1"), _
    "attached", "cloned"))

' Compare Child2 identity.
Console.WriteLine("Child2 was {0}", _
    IIf(child2 Is xmlTree2.Element("Child2"), _
    "attached", "cloned"))

Nell'esempio viene prodotto l'output seguente:

Child1 was cloned
Child2 was attached

Vedi anche