Help with adding data elements in string variable using VB.NET
Hi,
How do you modify the code below to add data elements from a string variable (i.e. S = Effect, NSC, NSN, AGD)?
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim xdoc As XDocument = XDocument.Load(Application.StartupPath + "\AOP5.xml") Dim results = (From n In xdoc.Root.Descendants("AOP5") Select n).ToList() Dim resultsa = (From n In xdoc.Root.Descendants("Effect") Select n).Count() If resultsa = 0 Then results.ForEach(Sub(n) n.Add(<Effect></Effect>)) End If xdoc.Save(Application.StartupPath + "\AOP5.xml")