einen Wert von XML

Question

Lese habe ich die XML folgenden

<applicationSettings> 
<CR.Properties.Settings> 
    <setting name="AllowSslTrustAll" serializeAs="String"> 
    <value>False</value> 
    </setting> 
    <setting name="SyncInterval" serializeAs="String"> 
    <value>30</value> 
    </setting> 
    <setting name="SyncServiceToken" serializeAs="String"> 
    <value>1597538520147</value> 
    </setting> 
    <setting name="SyncServiceUrl" serializeAs="String"> 
    <value>http://cr.myurl.com:4012/-cr/DataService.svc</value> 
    </setting> 
    <setting name="SaveChangesOptions" serializeAs="String"> 
    <value>Batch</value> 
    </setting> 
</CR.Properties.Settings> 

ich die SyncServiceToken in einen String zu setzen versuchen und ich erscheinen kläglich daran zu scheitern.

Mein aktueller Code ist dies:

 Dim XMLpath As String = "C:\temp\CR.SyncClient.exe.config" 
    Dim SyncToken As String = Nothing 

    Dim xml = XDocument.Load(XMLpath) 
    TextBox1.Text = xml.Document.<applicationSettings>.<CR.Properties.Settings>.Elements("SyncServiceToken").Value 

Answer 1

Try xml linq

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

    Sub Main() 
     Dim xml As String = _ 
      "<applicationSettings>" & _ 
       "<CR.Properties.Settings>" & _ 
        "<setting name=""AllowSslTrustAll"" serializeAs=""String"">" & _ 
         "<value>False</value>" & _ 
        "</setting>" & _ 
        "<setting name=""SyncInterval"" serializeAs=""String"">" & _ 
         "<value>30</value>" & _ 
        "</setting>" & _ 
        "<setting name=""SyncServiceToken"" serializeAs=""String"">" & _ 
         "<value>1597538520147</value>" & _ 
        "</setting>" & _ 
        "<setting name=""SyncServiceUrl"" serializeAs=""String"">" & _ 
         "<value>http://cr.myurl.com:4012/-cr/DataService.svc</value>" & _ 
        "</setting>" & _ 
        "<setting name=""SaveChangesOptions"" serializeAs=""String"">" & _ 
         "<value>Batch</value>" & _ 
        "</setting>" & _ 
       "</CR.Properties.Settings>" & _ 
      "</applicationSettings>" 

     Dim settings As XElement = XElement.Parse(xml) 
     Dim SyncServiceToken As String = settings.Descendants("setting").Where(Function(x) CType(x.Attribute("name"), String) = "SyncServiceToken").FirstOrDefault() 
    End Sub 

End Module