過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      32
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼閲覧中URLを保存(URLList.vbs)修正  Hiroshi Munakata 02/9/23(月) 3:08

　───────────────────────────────────────
　■題名 ： 閲覧中URLを保存(URLList.vbs)修正
　■名前 ： Hiroshi Munakata <hmunakata@bigfoot.com>
　■日付 ： 02/9/23(月) 3:08
　-------------------------------------------------------------------------
   
すんごいご無沙汰です。BugWeb相変わらず便利に利用させていただいております。

今更なんですが、URLListの不具合を若干修正しました。お恥ずかしい限り。ほっといてごめんなさい。



・キャンセルしてもファイルができてしまっていた！

・環境により、変なところへファイルができる/パスの不正によりエラーが出るため、せっかく用意していただいたScriptPathプロパティを利用するように変更



> EG6+さんへ

次のリリースから、ファイルの差し替えをお願いできますか？





--------------------------------------------------------------

'閲覧中URLを保存

'Ver1.1

'

'by Hiroshi.Munakata

'

'



Dim　　　　　　　　BugWeb

Dim　　　　　　　　FileSysObj

Dim　　　　　　　　FileObj

Dim　　　　　　　　DocObj

Dim　　　　　　　　Idx

Dim　　　　　　　　FileName



Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")



FileName = InputBox("URLリストを保存するファイル名を入力してください。" & Chr(13) & "（拡張子は要りません）","ファイル名")

If FileName="" then

　　　　WScript.Quit()

End If



Set FileSysObj = CreateObject("Scripting.FileSystemObject")

Set FileObj = FileSysObj.CreateTextFile( BugWeb.ScriptPath & FileName & ".vbs",True)



'----------------------------------------------------------------- ファイル作成

FileObj.WriteLine( "'" & FileName & " を開く" )

FileObj.WriteLine( "" )

FileObj.WriteLine( "Dim　　　　BugWeb" )

FileObj.WriteLine( "Dim　　　　BugDoc" )

FileObj.WriteLine( "Set　　　　BugWeb = CreateObject(" & Chr(34) & "BugWeb.BugBrowserAPI" & Chr(34) & ")" )

FileObj.WriteLine( "" )

FileObj.WriteLine( "For Idx = 0 To BugWeb.DocumentCount-1" )

FileObj.WriteLine( "　　　　BugWeb.CloseView(BugWeb.ActiveView)" )

FileObj.WriteLine( "Next" )

FileObj.WriteLine( "" )



Set DocObj = BugWeb.CreateDocumentViewObject( BugWeb.DocumentView(0) )

FileObj.WriteLine( "Set BugDoc = BugWeb.CreateDocumentViewObject( BugWeb.DocumentView(0) )" )

FileObj.WriteLine( "BugDoc.Navigate(" & Chr(34) & DocObj.URL & Chr(34) & ")" )

Set DocObj = Nothing



For Idx=1 To BugWeb.DocumentCount-1

　　　　Set DocObj = BugWeb.CreateDocumentViewObject( BugWeb.DocumentView(Idx) )

　　　　FileObj.WriteLine( "BugWeb.NavigateNew(" & Chr(34) & DocObj.URL & Chr(34) & ")" )

　　　　Set DocObj = Nothing

Next



FileObj.WriteLine( "" )

FileObj.WriteLine( "Set BugDoc = Nothing" )

FileObj.WriteLine( "Set BugWeb = Nothing" )

　　　　

FileObj.Close



'----------------------------------------------------------------

Set FileObj = Nothing

Set FileSysObj = Nothing

　　　　

BugWeb.ShowMessage( FileName & " を保存しました。" )

Set BugWeb = Nothing


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      32