[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

vb.net XML edit in form..

Posted on 2010-08-19
11
Medium Priority
?
231 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
Get your Disaster Recovery as a Service basics

Disaster Recovery as a Service is one go-to solution that revolutionizes DR planning. Implementing DRaaS could be an efficient process, easily accessible to non-DR experts. Learn about monitoring, testing, executing failovers and failbacks to ensure a "healthy" DR environment.

 
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

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

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

Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
Are you ready to place your question in front of subject-matter experts for more timely responses? With the release of Priority Question, Premium Members, Team Accounts and Qualified Experts can now identify the emergent level of their issue, signal…

649 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