2009-06-12 2 views

ответ

5
Dim Doc as HtmlDocument = new HtmlDocument 
doc.LoadHtml(MyHtml) 

Dim links As HtmlNodeCollection = doc.DocumentNode.SelectNodes("//a") 

For Each link In links 

    Dim att As HtmlAttribute = link.Attributes("href") 
    MyHtml = Myhtml.Replace(link.OuterHtml, att.Value) 

Next 
Смежные вопросы