getter1【超高速】ゲッター１ Part3

173 ：名無しさん＠お腹いっぱい。：2014/01/01(水) 21:23:57.79 ID:QPQ7SIQB0.net

タイトルのところだけなら

// for GINZA
if myFileName = "" then
myFileName = MS_NthFieldB(S_Source, chr(34) + "videoHeaderTitle" + chr(34), 2)
myFileName = MS_NthFieldB(myFileName,">", 2)
myFileName = MS_NthFieldB(myFileName,"</span", 1)
myFileName = MS_HTMLtoText(myFileName)
myFileName = Trim(myFileName)
end if

こんな感じで。