?
Solved

vb.net XML edit in form..

Posted on 2010-08-19
11
Medium Priority
?
228 Views
Last Modified: 2012-05-10
Hello.. I have some problem. Start from the beginning..

I have XML-File


looks like this...


<?xml version="1.0" encoding="utf-8"?>
<tagdata>
  <readopcvalues>
    <value opctag="TEST.AI_Weight_KL3" />
    <value opctag="TEST._produktion" />
    <value opctag="SystemVariables.ServerTime" />
  </readopcvalues>
</tagdata>



What I would like to do first is have the change to add some new tags to my taglist..

tex. add this..

<value opctag="TEST.Goood" />


<?xml version="1.0" encoding="utf-8"?>
<tagdata>
  <readopcvalues>
    <value opctag="TEST.AI_Weight_KL3" />
    <value opctag="TEST._produktion" />
    <value opctag="SystemVariables.ServerTime" />
    <value opctag="TEST.Goood" />
  </readopcvalues>
</tagdata>




I have done this with this code but dosent get really waht I want.. The problem is that I always starts a new nodes and not write in the old one...

look


<?xml version="1.0" encoding="utf-8"?>
<tagdata>
  <readopcvalues>
    <value opctag="TEST.AI_Weight_KL3" />
    <value opctag="TEST._produktion" />
    <value opctag="SystemVariables.ServerTime" />
   </readopcvalues>
  <value opctag="TEST.Goood" />
</tagdata>




This is the code...

   '-- Declare local variable and load xml file
        Dim doc2 As New XmlDocument()
        doc2.Load("XML\TagData.xml")

        '-- Create a new node and add it to the document.
        Dim newline As XmlElement = doc2.CreateElement("value")

        newline.SetAttribute("opctag", "PLC.Beijer_Agnesberg.OP_Dagens_produktion")

        doc2.DocumentElement.AppendChild(newline)
        '-- Save the xml file with the new changes.
        doc2.Save("XML\TagData.xml")



Please give me some tips.. My follow question is that I wolud like to show the Whole XML lines in textboxes..
like this.

textbox1.text =  <value opctag="TEST.Goood" />
textbox2.text =    <value opctag="TEST.AI_Weight_KL3" />

Why I want this it´s because I wolud like to edit the old line.. or add a new line.. or remove one..
I hope someone understand! But first we take the easy party to write in the same nod! :D

//Kavvis
0
Comment
Question by:kavvis
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 5
11 Comments
 
LVL 27

Expert Comment

by:nmarun
ID: 33474452
0
 

Author Comment

by:kavvis
ID: 33474483
Arun  thank you but I really dont know how to use this info into my code....
any other idees?
0
 
LVL 27

Expert Comment

by:nmarun
ID: 33474842
This is what I'm talking.

Arun

private static void UpdateXml()
{
    string xmlPath = @"C:\Arun\Projects\ConsoleTest\ConsoleTest\Response.xml";

    DataSet dataSet = new DataSet();
    dataSet.ReadXml(xmlPath);
    dataSet.AcceptChanges();
    // <value opctag="TEST.Goood" />
    DataRow readopcvaluesRow = dataSet.Tables["readopcvalues"].Rows[0];
    DataRow newRow = dataSet.Tables["value"].NewRow();
    newRow["opctag"] = "Test.Gooood";
    dataSet.Tables["value"].Rows.Add(newRow);
    newRow.SetParentRow(readopcvaluesRow);
    dataSet.WriteXml(xmlPath, XmlWriteMode.IgnoreSchema);
}

Open in new window

0
How To Reduce Deployment Times With Pre-Baked AMIs

Even if we can't include all the files in the base image, we can sometimes include some of the larger files that we would otherwise have to download, and we can also sometimes remove the most time-consuming steps. This can help a lot with reducing deployment times.

 
LVL 27

Expert Comment

by:nmarun
ID: 33474852
And here's the vb.net version.

Arun

Private Shared Sub UpdateXml()
	Dim xmlPath As String = "C:\Arun\Projects\ConsoleTest\ConsoleTest\Response.xml"

	Dim dataSet As New DataSet()
	dataSet.ReadXml(xmlPath)
	dataSet.AcceptChanges()
	' <value opctag="TEST.Goood" />
	Dim readopcvaluesRow As DataRow = dataSet.Tables("readopcvalues").Rows(0)
	Dim newRow As DataRow = dataSet.Tables("value").NewRow()
	newRow("opctag") = "Test.Gooood"
	dataSet.Tables("value").Rows.Add(newRow)
	newRow.SetParentRow(readopcvaluesRow)
	dataSet.WriteXml(xmlPath, XmlWriteMode.IgnoreSchema)
End Sub

Open in new window

0
 

Author Comment

by:kavvis
ID: 33474956
Arun

OJ!! Thank you! Verry mutch!
It works greate!

Can I somehow remove on of lines tags in some simple way to?

I will give you the points just want to know some more info if you have before I close it! :D
/kavvis

0
 
LVL 27

Expert Comment

by:nmarun
ID: 33474960
And here's the second part of your question.

Arun

Private Shared Sub ReadInnerXml()
	Dim xmlPath As String = "C:\Arun\Projects\ConsoleTest\ConsoleTest\Response.xml"

	Dim xDocument__1 As XDocument = XDocument.Load(xmlPath)

	Dim valueXmlList As List(Of String) = (From value In xDocument__1.Descendants("value")value.ToString()).ToList()

	For i As Integer = 0 To valueXmlList.Count - 1
		Console.WriteLine(valueXmlList(i))
	Next
End Sub

Open in new window

0
 

Author Comment

by:kavvis
ID: 33474981
nmarun:  I can´t really get that to work my friend...
0
 
LVL 27

Accepted Solution

by:
nmarun earned 2000 total points
ID: 33475014
Try this.

Arun

Private Shared Sub RemoveXmlNode()
	Dim xmlPath As String = "C:\Arun\Projects\ConsoleTest\ConsoleTest\Response.xml"

	Dim dataSet As New DataSet()
	dataSet.ReadXml(xmlPath)
	dataSet.AcceptChanges()
	' <value opctag="TEST.Goood" />

	For i As Integer = 0 To dataSet.Tables("value").Rows.Count - 1
		If dataSet.Tables("value").Rows(i)("opctag").Equals("Test.Gooood") Then
			dataSet.Tables("value").Rows(i).Delete()
			dataSet.Tables("value").Rows(i).AcceptChanges()
		End If
	Next

	dataSet.WriteXml(xmlPath, XmlWriteMode.IgnoreSchema)
End Sub

Open in new window

0
 
LVL 27

Expert Comment

by:nmarun
ID: 33475023
What are you getting?

Arun
0
 

Author Comment

by:kavvis
ID: 33475100
Sorry it was my bad!
that line worked perfekt!

Can I ask one more question..

If I want to show   " <value opctag="Test.Gooood" /> "  in a textbox

just to show all the lines... so I can se what the diffrent rows I have...
so I can delete or replace one of the line easy...

How do I do that the best way?

I have tried to make the whole XML dokumet to a long string and then
like this

textbox1.text = doc.tostring.substring(0.10)
textbox2.text = doc.tostring.substring(23.34)

but that dosent work.. so please tips me then I can close this question and give booth points! :D
0
 

Author Closing Comment

by:kavvis
ID: 33475646
Thank you!
everythin works very well now!
0

Featured Post

DFW AZURE MEETUP TONIGHT FRI 6PM

We will be discussing what Azure Stack is, how does it fit into the suit of offerings that Azure has currently, and where can it fit into your organizations technology stack. We will also be discussing limitations of the platform while covering various applicable scenarios.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes relatively difficult and non-obvious issues that are likely to arise when creating COM class in Visual Studio and deploying it by professional MSI-authoring tools. It is assumed that the reader is already familiar with the cla…
For those of you who don't follow the news, or just happen to live under rocks, Microsoft Research released a beta SDK (http://www.microsoft.com/en-us/download/details.aspx?id=27876) for the Xbox 360 Kinect. If you don't know what a Kinect is (http:…
Sometimes it takes a new vantage point, apart from our everyday security practices, to truly see our Active Directory (AD) vulnerabilities. We get used to implementing the same techniques and checking the same areas for a breach. This pattern can re…
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…
Suggested Courses

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question