Цикл через xml для добавления отсутствующего тега

Question

Я работаю над XML-файлом, который имеет открывающие теги, за которыми следуют некоторые дочерние теги с внутренним текстом. Когда открывающий тег появляется снова, он делает это без закрывающего тега для предыдущего. Так, например, файл выглядит следующим образом:

<?xml version="1.0" encoding="utf-8"?> 
<invoice> 
    <id>999</id> 
    <newRa elem="0"> 
     <createD>20150519</createD> 
     <modD>12345</modD> 
    </newRa> 
    <total>123.99</total> 
<invoice> 

Я хочу создать Vb подпрограмму, которая использует XPath, чтобы добавить «/ счет» метки на каждом вхождении «счетов-фактуры».

Должно выглядеть так:

<?xml version="1.0" encoding="utf-8"?> 
<invoice> 
    <id>999</id> 
    <newRa elem="0"> 
     <createD>20150519</createD> 
     <modD>12345</modD> 
    </newRa> 
    <total>123.99</total> 
</invoice> 
<invoice> 
... 
... 

Answer 1

Если файл достаточно мал, чтобы открыть в полном объеме, вы можете использовать:

Dim st As String = My.Computer.FileSystem.ReadAllText("C:\temp\test.xml") 
st = st.Replace("</total>", "</total>" & vbCrLf & "</invoice>") 
My.Computer.FileSystem.WriteAllText("c:\temp\test.xml", st, False) 

Если файл большой, создать StreamReader, что читает каждую строку и использует строку, аналогичную линии st = st.Replace..., чтобы добавить дополнительный тег в нужное место и добавить каждую строку в новый файл.