[.NET] 如何修改 能擷取特定文字 而非URL
請輸入專案類型(網站專案或者應用程式專案):
以下是我寫的程式碼
Private Obj_IE As SHDocVw.InternetExplorer ' 引用項目 Microsoft Internet
Controls
Private hdoc As MSHTML.HTMLDocument ' 引用項目 Microsoft HTML
Object Library
Private Sub Form_Activate()
Dim sHTML As String, intS As Integer, intL As Integer
sHTML = GetHTML("http://tw.yahoo.com/")
sHTML = Mid(sHTML, InStr(sHTML, "熱門:"))
sHTML = Mid(sHTML, 1, InStr(sHTML, "</div>"))
Do
If InStr(sHTML, "</a>") = 0 Then Exit Do
intS = InStrRev(sHTML, ">", InStr(sHTML, "</a>")) + 1
intL = InStr(sHTML, "</a>") - intS
Print Mid(sHTML, intS, intL)
sHTML = Mid(sHTML, intS + intL + Len("</a>"))
Loop
End Sub
Private Function GetHTML(ByVal InUrl As String) As String
Set Obj_IE = New SHDocVw.InternetExplorer
With Obj_IE
.Visible = True
DoEvents
.navigate InUrl
End With
' 等待網頁開啟完成
Do Until Obj_IE.readyState = 4
DoEvents
Loop
' 抓取 IE 的網頁內容物件
Set hdoc = Obj_IE.document
GetHTML = LCase(hdoc.body.outerHTML)
Obj_IE.Quit
Set hdoc = Nothing
Set Obj_IE = Nothing
End Function
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.232.132.5