0

XMLHTTP オブジェクトを使用してページのタイトルを取得することは可能ですか?

function getTitle(url)
Dim objRequest

Set objRequest = CreateObject("Msxml2.ServerXMLHTTP.3.0")
objRequest.open "GET", url , false
objRequest.Send

'getMsg = objRequest.status
'getMsg = objRequest.ResponseText

end function

objRequest.titleうまくいかないものを試しました。

アップデート

これを試してみました-おそらく失敗のないものではありません-今のところ機能します:

f = objRequest.ResponseText
loc = Instr(f,"<title>")
loc2= Instr(f,"</title>")
getTitle = Mid(f,loc+7,loc2-loc-7)
4

1 に答える 1

0

コンテンツが HTML で認識されるようにするには、結果を DOM に挿入する必要があります。次に、DOM にページのタイトルを問い合わせる必要があります。

XHR から返されるのは、何かを行うまでは単なるテキストの塊です。

于 2013-01-07T21:32:10.943 に答える