0173名無しさん@お腹いっぱい。
2014/01/01(水) 21:23:57.79ID:QPQ7SIQB0// 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
こんな感じで。