Leggi XML in VB.net

Question

Ho cercato su Google l'ultima ora circa senza fortuna (mi piacerebbe pensare di essere un grande googler anche io!), Quindi eccomi qui.

Ho un file XML che sto usando per le mie impostazioni di programmi, sembra in questo modo:

<?xml version="1.0" encoding="utf-8"?> 
<config> 
    <store> 
     <number>0323</number> 
     <address>address</address> 
     <phone>phone</phone> 
    </store> 

    <emailsettings> 
     <emailfrom>emailfrom</emailfrom> 
     <emailpass>pass</emailpass> 
     <emailsubject>received</emailsubject> 
     <smtpserver>smtp.gmail.com</smtpserver> 
     <smtpport>587</smtpport> 
     <enablessl>true</enablessl> 
     <emailbody>package received</emailbody> 
    </emailsettings> 
    <dbconfig> 
     <dbpath>path</dbpath> 
    </dbconfig> 
</config> 

Come posso utilizzare vb.net per ottenere ogni elemento e restituire un valore specifico che voglio ? Mi piacerebbe restituire <number> (sotto <store>) nella casella di testo1 e <emailbody> (nella casella <emailsettings>) nella casella di testo2.

Help pleaseeeeee! Grazie :)

Answer 1

Ah, un esempio perfetto per mettersi in mostra le potenti funzionalità XML di VB.NET con Framework 3.5:

Sub Main() 
    Dim xml = XDocument.Load("config.xml") 
    Console.WriteLine("Number: " & xml.<config>.<store>.<number>.Value) 
    Console.WriteLine("Body: " & xml.<config>.<emailsettings>.<emailbody>.Value) 
End Sub 

cede:

Number: 0323 
Body: package received 

Answer 2

È possibile utilizzare la serializzazione XML. Creare classi che rappresentano la struttura XML e utilizzare la classe di serializzazione XML per deserializzare i dati. Dopo averlo fatto, puoi utilizzare i dati nella tua applicazione.

Qui di seguito è un link ad un esempio da MSDN:

http://msdn.microsoft.com/en-us/library/ms950721.aspx

Answer 3

Ecco una console app utilizzando il supporto letterale VB.Net XML.

Module Module1 

    Sub Main() 

     Dim xElem = <config> 
         <store> 
          <number>0323</number> 
          <address>address</address> 
          <phone>phone</phone> 
         </store> 

         <emailsettings> 
          <emailfrom>emailfrom</emailfrom> 
          <emailpass>pass</emailpass> 
          <emailsubject>received</emailsubject> 
          <smtpserver>smtp.gmail.com</smtpserver> 
          <smtpport>587</smtpport> 
          <enablessl>true</enablessl> 
          <emailbody>package received</emailbody> 
         </emailsettings> 
         <dbconfig> 
          <dbpath>path</dbpath> 
         </dbconfig> 
        </config> 

     Dim number = xElem.<store>.<number>.Value 
     Dim emailbody = xElem.<emailsettings>.<emailbody>.Value 

     Console.WriteLine(String.Format("Number={0}", number)) 
     Console.WriteLine(String.Format("emailbody={0}", emailbody)) 
     Console.ReadLine() 

     '--- What it'd look like if you loaded from a file using XDocument.Load 
     Dim xDoc = XDocument.Load(New IO.StringReader(xElem.ToString)) 
     number = xDoc.Root.<store>.<number>.Value 
     emailbody = xDoc.Root.<emailsettings>.<emailbody>.Value 

     Console.WriteLine(String.Format("Number={0}", number)) 
     Console.WriteLine(String.Format("emailbody={0}", emailbody)) 
     Console.ReadLine() 


    End Sub 

End Module 

I risultati saranno:

Number=0323 
emailbody=package received 

Number=0323 
emailbody=package received 

Answer 4

Se si ha familiarità con serie di dati e DataTable, questo è un modo semplice per farlo:

Dim DS As New DataSet 
DS.ReadXml("Data.xml") 

DataSet in grado di leggere qualsiasi XML. Uso anche questo per chiamare i servizi XML abilitati al resto.