Удалить XElement на основе атрибута - PullRequest
Новая
       23

Удалить XElement на основе атрибута

0 голосов
/ 07 марта 2009

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

<?xml version="1.0" encoding="utf-8"?>
<Attributes>
 <AttributeSet id="10110">
  <Attribute id="1">some text here</Attribute>
  <Attribute id="2">some text here</Attribute>
  <!-- 298 more Attribute nodes follow -->
  <!-- note that the value for the id attribute is numbered consecutively -->
 </AttributeSet>
</Attributes>

Всего 300 узлов атрибутов, большинство из которых мне не нужны. То, что я хотел бы сделать, это удалить все узлы атрибутов, которые не имеют указанного значения для атрибута id. Я установил массив строк примерно с 10 значениями. Эти значения представляют атрибуты, которые я хотел бы сохранить в XML. Остальное я бы хотел удалить.

То, что я пытаюсь сделать с помощью приведенного ниже кода, это изменить XML, удалив все узлы атрибута, которые я не хочу использовать: 

Dim ss() As String = New String() {"39", "41", "38", "111", "148", "222", "256", "270", "283", "284"} 'keep the Attributes whose id value is one of these numbers
Dim rv As New List(Of String)'will hold Attribute ids to remove
Dim bool As Boolean = False
For Each x As XElement In doc...<eb:Attribute>
 For Each s As String In ss
  If x.@id = s Then
   bool = True
   Exit For
  End If
 Next
 If bool = True Then
  'do nothing
 Else 'no attribute matched any of the attribute ids listed mark xelement for removal
  rv.Add(x.@id)
 End If
Next
'now remove the xelement
For Each tr As String In rv
 Dim h As String = tr
 doc...<eb:Attribute>.Where(Function(g) g.@id = h).Remove()
Next
'save the xml
doc.Save("C:\myXMLFile.xml")

По какой-то причине мой код не работает. Ни один из нежелательных узлов атрибутов не удален.

В чем проблема? Как я могу удалить узлы атрибутов, чьи значения атрибута id не совпадают ни с одним номером в моем строковом массиве?

Заранее спасибо.

P.S. - Надеюсь, я четко изложил свою проблему.

Ответы [ 2 ]

0 голосов
/ 27 апреля 2012

Удалить все ненужные узлы: 

XDocument xDoc = XDocument.Load(xmlFilename);

List<string> keepList = new List<string> { "1", "2", "3" };

var unwanted = from element in xDoc.Elements("Attributes").Elements("AttributeSet").Elements("Attribute")
               where !keepList.Contains((string)element.Attribute("id"))
               select element;

unwanted.Remove();

xDoc.Save(xmlFilename);
0 голосов
/ 07 марта 2009

Неважно. Я понял. Вот что я сделал: 

For Each x As XElement In doc...<eb:Attribute>
 **bool = False 'I simply added this line of code and everything worked perfectly**
 For Each s As String In ss
  If x.@id = s Then
   bool = True
   Exit For
  End If
 Next
 If bool = True Then
  'do nothing
 Else 'no attribute matched any of the attribute ids listed so remove the xelement
  rv.Add(x.@id)
 End If
Next
...