文字列 str から title タグに囲まれた文字列を返す VBS

Other

だから何ってやつですが(苦
へっぽこ杉なので、訂正・・・

' title タグに囲まれた文字列を返す。
Function getTitle(str)
	Dim intStarttag , intEndtag
	intStarttag = InStr(str,"")
	intEndtag = Instr(str, "")
	If intStarttag <> 0 and intEndtag <> 0 Then
		getTitle = Mid(str, intStarttag + 7,intEndtag - (intStarttag + 7))
	End If
End Function

VBS で html を取得する方法は、[openmya:035469] Re: [しつもん]Webサイトの 保存を参照。