08/05/11 20:06:21 URKj1fey0
myURL = MS_NthFieldB(S_Source,"addVariable(" + chr(34) + "video" + chr(34) + ", " + chr(34) ,2)
myURL = MS_NthFieldB(myURL,chr(34),1)
myURL = MS_DecodeURL(myURL)
myURL = MS_NthFieldB(myURL,"@@",1)
myURL = "URLﾘﾝｸ(www.dailymotion.com)" + myURL
myFileName = MS_NthFieldB(S_Source,"<h1 class=" + chr(34) + "nav with_uptitle" + chr(34) + ">",2)
myFileName = MS_NthFieldB(myFileName,"</h1>",1)
myFileName = ReplaceAllB(myFileName,".","．")
myFileName = ReplaceAllB(myFileName,":","：")
myFileName = ReplaceAllB(myFileName,"<","＜")
myFileName = ReplaceAllB(myFileName,">","＞")
↓続きます