getter1【超高速】ゲッター１at SOFTWAREgetter1【超高速】ゲッター１ - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト150:名無しさん＠お腹いっぱい。 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 = "http://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,">","＞") ↓続きます 151:名無しさん＠お腹いっぱい。 08/05/11 20:07:57 URKj1fey0 myFileName = ReplaceAllB(myFileName,"/","／") myFileName = ReplaceAllB(myFileName,"\","＼") myFileName = ReplaceAllB(myFileName,"*","＊") myFileName = ReplaceAllB(myFileName,"?","？") myFileName = ReplaceAllB(myFileName,chr(34),"”") S_DownloadFileName = myFileName print(myURL) >> 142 >> 147 こんな感じでどう？ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch