VBS HTML抽取線

Question

嗨，大家好我需要litlle幫助。我有一些網頁，這條線在他的html：

<h3 class="entity-title"><a name="33333" class="link" href="/xy/xy-33333">some text</a></h3> 

我想的VBScript其打開網頁，找到這一行和「/ XY/XY-33333」複製到一些字符串變量。名，href和一些文字總是隨機

我有這樣的一部分（保存所有的HTML FILE.TXT）

Dim oXMLHTTP 
Dim oStream 

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0") 

oXMLHTTP.Open "GET", "http://www.yyy.com", False 
oXMLHTTP.Send 

If oXMLHTTP.Status = 200 Then 
    Set oStream = CreateObject("ADODB.Stream") 
    oStream.Open 
    oStream.Type = 1 
    oStream.Write oXMLHTTP.responseBody 
    oStream.SaveToFile "c:\te\file.txt" 
    oStream.Close 
End If 

Answer 1

嘗試是這樣的：

... 

If oXMLHTTP.Status = 200 Then 
    Set html = CreateObject("HTMLfile") 
    html.write oXMLHTTP.responseText 
    For Each h3 In html.getElementsByTagName("h3") 
    If h3.getAttribute("class") = "entity-title" Then 
     For Each a In h3.getElementsByTagName("a") 
     WScript.Echo a.href 
     Next 
    End If 
    Next 
End If