我有这个HTML代码:
<ul>
<li class="purple">Sky</li>
<li class="purple">Earth</li>
<li class="green">Grass</li>
<li class="purple">Sun</li>
</ul>
我想删除所有<li>
标记,其属性为class="purple"
。
我在网上找不到任何类似的代码,所以我不知道怎么做。
修改
我找到了这段代码。它找到具有给定属性值的标签,但我不知道如何修改它以删除元素。
For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("li")
If Element.GetAttribute("class") = "green" Then
'What to do
End If
Next
答案 0 :(得分:0)
这似乎有效:
Dim old = WebBrowser1.Document
For Each Element As HtmlElement In old.GetElementsByTagName("li")
If Element.OuterHtml.Contains("green") Then
Element.OuterHtml = ""
End If
Next
WebBrowser1.DocumentText = old.Body.InnerHtml