だから何ってやつですが(苦 へっぽこ杉なので、訂正・・・ ' title タグに囲まれた文字列を返す。 Function getTitle(str) Dim intStarttag , intEndtag intStarttag = InStr(str,"") intEndtag = Instr(str, "") If intStarttag <> 0 and intEndtag <> 0 Th…