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,":","：")
myFileName = ReplaceAllB(myFileName,"<","＜")
myFileName = ReplaceAllB(myFileName,">","＞")
myFileName = ReplaceAllB(myFileName,"/","／")
myFileName = ReplaceAllB(myFileName,"\","＼")
myFileName = ReplaceAllB(myFileName,"*","＊")
myFileName = ReplaceAllB(myFileName,"?","？")
myFileName = ReplaceAllB(myFileName,chr(34),"”")
if myFileName <> "" then
S_DownloadFileName = myFileName
end if
print(myURL)
↑どこをどう直せばいいのやら。