getter1y΄¬zQ ..
144:Ό³΅³ρ¨ ’ΑΟ’B
08/05/07 20:21:36 s+Tzuh/b0
>>143 ΒΓ«
Dim myURL as string
Dim myFileName As string
if instrB(S_Source,"addVariable(" + chr(34) + "url8" + chr(34) + ", " + chr(34)) > 0 then
myURL = MS_NthFieldB(S_Source,"addVariable(" + chr(34) + "url8" + chr(34) + ", " + chr(34) ,2)
else
myURL = MS_NthFieldB(S_Source,"addVariable(" + chr(34) + "url" + chr(34) + ", " + chr(34) ,2)
end if
myURL = MS_NthFieldB(myURL,chr(34),1)
myURL = MS_DecodeURL(myURL)
if myURL = "" then
myURL = "Ο·Ε«άΉρΕ΅½"
end if
myFileName = MS_NthFieldB(S_Source,"<h1 class=" + chr(34) + "nav with_uptitle" + chr(34) + ">",2)
myFileName = MS_NthFieldB(myFileName,"</h1>",1)
myFileName = ReplaceAllB(myFileName,":","F")
myFileName = ReplaceAllB(myFileName,"<","")
myFileName = ReplaceAllB(myFileName,">","")
myFileName = ReplaceAllB(myFileName,"/","^")
myFileName = ReplaceAllB(myFileName,"\","_")
myFileName = ReplaceAllB(myFileName,"*","")
myFileName = ReplaceAllB(myFileName,"?","H")
myFileName = ReplaceAllB(myFileName,chr(34),"h")
if myFileName <> "" then
S_DownloadFileName = myFileName
end if
print(myURL)
ͺΗ±πΗ€ΌΉΞ’’ΜβηB
y[WΕVX\¦XbhΜυήXκbθΜj
[X¨ά©ΉXg₯IvVπ\¦ΙΒΤ΅2ch
4983ϊOΙXV/120 KB
S:undef