- 1 名前：名無しさん＠お腹いっぱい。 [2007/10/18(木) 12:10:45 ID:Zz9b8aag0]
-
公式
hccweb1.bai.ne.jp/ili/getter1.html
- 149 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/05/11(日) 20:05:16 ID:URKj1fey0]
- ついでに dailymotion.usc 直してみた。
//-Split-//2番目のスクリプト
'ここから下はソースを取得する場合のメソッド
'S_SourceURL = ソースのURL
'S_Source = 取得したHTMLソース
'S_DownloadFileName = ファイル名
'MS_NthFieldB = オリジナルNthFieldBメソッド。RbスクリプトでNthFieldBをサポートしていないため。
'MS_DecodeURL = URLデコードメソッド
Dim myURL as string
Dim myFileName As string
↓続きます
- 150 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/05/11(日) 20:06:21 ID: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 = "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 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/05/11(日) 20:07:57 ID: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
こんな感じでどう？
- 152 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/05/11(日) 20:14:31 ID:URKj1fey0]
- あー。書き忘れたけれど
//-Split-//2番目のスクリプト
の後からを書き換えるんだからね。
|
 |
