close

一段範例如下

<DT><H3 ADD_DATE="1312850481" LAST_MODIFIED="1319985361">書籤工具列</H3>
        <DL><p>
            <DT><H3 ADD_DATE="1312850481" LAST_MODIFIED="1319985363">Android___</H3>
            <DL><p>
                <DT><A HREF="http://gphonefans.net/forum-49-3.html" ADD_DATE="1310539680" LAST_MODIFIED="1319985346">Android 軟件及遊戲討論 - GPhonefans.net</A>
                <DT><A HREF="http://www.soft4fun.net/website-recommand/10%E5%80%8B-android-%E5%85%8D%E8%B2%BB-app-%E4%B8%8B%E8%BC%89%E3%80%81%E4%BB%8B%E7%B4%B9%E7%B6%B2%E7%AB%99.htm" ADD_DATE="1310722061" LAST_MODIFIED="1319985346">10個 Android 免費 APP 下載、介紹網站 | 硬是要學</A>
                <DT><A HREF="http://www.freewarelovers.com/android/category/system" ADD_DATE="1310740049" LAST_MODIFIED="1319985346">Android Freeware: Browse the SYSTEM category</A> 

 

如果我們想要取

 

<A HREF="http://gphonefans.net/forum-49-3.html" ADD_DATE="1310539680" LAST_MODIFIED="1319985346">Android 軟件及遊戲討論 - GPhonefans.net</A> 


這段 內的 Href= 後面的字串該怎麼寫 程式碼呢

'

For Each Myweb As HtmlElement In WebBrowser1.Document.All
      If Myweb.TagName = "A" Then

        If Myweb.GetAttribute("HREF") <> Nothing Then
          '傳回 href 內的值
          Form1.ListBox1.Items.Add(Myweb.GetAttribute("HREF").Normalize)
        End If
      End If

    Next 

 

arrow
arrow
    文章標籤
    vb.net GetAttribute 取值
    全站熱搜

    dark99 發表在 痞客邦 留言(0) 人氣()