私はまだ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 属性値が文字列配列のどの数値とも一致しない属性ノードを削除するにはどうすればよいですか?
前もって感謝します。
PS - 私の問題を説明する際に、自分自身を明確にしていただければ幸いです。