Ниже мой XML-файл кодаКак добавить новый узел в существующий узел в XML
<XMLFile> <EMail> <From> <Address>[email protected]</Address> </From> <Receipent> <To>[email protected]</To> </Receipent> <Subject>fffffsadasd</Subject> <Body>ggggasdsd</Body> </EMail> </XMLFile>
я посланный ВПО button.On нажав на эту кнопку каждый раз, когда я хочу, чтобы добавить узел Enail и correponding childnodes в существующий xml-файл. В послано buttonclick i hve написано следующий код.
Dim currNode As XmlNode
Dim doc As New XmlDocument
doc.LoadXml(("<XMLFile>" + " <EMail></EMail>" + "</XMLFile>"))
Dim docFrag As XmlDocumentFragment = doc.CreateDocumentFragment()
docFrag.InnerXml = "<From>" + " <Address>" + txtFrom.Text + " </Address>" + "</From>"
currNode = doc.DocumentElement.FirstChild
currNode.InsertAfter(docFrag, currNode.LastChild)
docFrag.InnerXml = "<Receipent>" + " <To>" + txtTo.Text + " </To>" + "</Receipent>"
currNode = doc.DocumentElement.FirstChild
currNode.InsertAfter(docFrag, currNode.LastChild)
docFrag.InnerXml = "<Subject>" + txtSubject.Text + "</Subject>"
currNode = doc.DocumentElement.FirstChild
currNode.InsertAfter(docFrag, currNode.LastChild)
docFrag.InnerXml = "<Body>" + txtBody.Text + "</Body>"
currNode = doc.DocumentElement.FirstChild
currNode.InsertAfter(docFrag, currNode.LastChild)
doc.Save("C:\xmlmailfile.xml")
Какие изменения я должен сделать в кнопку мыши
Вы имеете в виду несколько EMails в одном XMLFile или вы добавляете новое поле? Кроме того, вы можете захотеть правильно начертить Получателя, если этот файл используется для широкого использования. – Mark
Да, несколько EMails в одном XMLFile – user42348
Для всех, кто интересуется этим вопросом, он развивается из этого: http://stackoverflow.com/questions/763177/concerned-with-writing-xml/ – Cerebrus