Ｐａｇｅ 6 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼キャッシュファイルからMoonBrowserのbookmark.htmlを作成(vbs) YAma(作成者Nagi氏) 02/8/1(木) 9:42 ─────────────────────────────────────── ■題名 ： キャッシュファイルからMoonBrowserのbookmark.htmlを作成(vbs) ■名前 ： YAma(作成者Nagi氏) ■日付 ： 02/8/1(木) 9:42 -------------------------------------------------------------------------
| 'キャッシュファイルからMoonBrowserのbookmark.htmlを作成 'BugWebBookmark.htmが既存の場合は上書きされる ' by Nagi 2000.10.20 ' modified YAma 2000.11.6 Dim BugWeb Dim BMPath, CafPath Dim bolQuitFlag Dim fsoTmp Dim wrkPath Set fsoTmp = CreateObject("Scripting.FileSystemObject") Set BugWeb = CreateObject("BugWeb.BugBrowserAPI") wrkPath = fsoTmp.GetParentFolderName(fsoTmp.GetAbsolutePathName("BugWeb.exe")) BMPath = wrkPath & "\BugWebBookmark.html" CafPath = wrkPath & "\BugWeb_Cache.dat" Call BugWeb.ShowMessage("結果を" & BMPath & "に出力します" & vbCrLf & "処理を開始します。") bolQuitFlag = fncMkBookMark(BMPath, CafPath) If bolQuitFlag Then Call BugWeb.ShowMessage("エラーが発生しました。" & vbCrLf & "処理を終了します。") Else Call BugWeb.ShowMessage("変換が終了しました。" & vbCrLf & "処理を終了します。") End If Set BugWeb = Nothing Set fsoTmp = Nothing WScript.Quit '◆◆◆◆ fncMkBookMark() ◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ 'キャッシュファイルを読み込んでMoonBrowserのbookmark.htmlを出力する ' '引数： 出力先ファイルのパス(String)[byVal]，キャッシュファイルのパス(String)[byVal] '返り値： Bool値(True:異常,False：正常) '◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ Function fncMkBookMark(ByVal mkstrBMPath, ByVal mkstrCafPath) Dim mkfsoCaf, mktsCaf Dim mkstrNum Dim mkfsoBM, mktsBM Dim mkintFLV Dim mkstrTmp Dim mkbolExit Dim mkstrTime, mkstrUrlAtt '初期設定 mkintFLV = 4 Set mkfsoCaf = CreateObject("Scripting.FileSystemObject") Set mkfsoBM = CreateObject("Scripting.FileSystemObject") fncMkBookMark = True '[.caf]ファイルの有無をチェック。ファイルがなければ変換終了。 If (mkfsoCaf.FileExists(mkstrCafPath) = False) Then Call BugWeb.ShowMessage("指定されたファイルが存在しません。") Set mktsCaf = Nothing Set mktsBM = Nothing Exit Function End If Set mktsCaf = mkfsoCaf.OpenTextFile(mkstrCafPath, 1, 0, 0) '[.caf]を開く Set mktsBM = mkfsoBM.OpenTextFile(mkstrBMPath, 2, 1, 0) '出力ファイルを作成 '初期処理 mktsBM.WriteLine ("<HTML>") mktsBM.WriteLine ("<TITLE>Moon Browser BookMark</TITLE>") mktsBM.WriteLine ("<UL>") Do While mktsCaf.AtEndOfStream <> True 'キャッシュファイルの最終行（EOS）まで処理 mkstrNum = CStr(mktsCaf.ReadLine) '1行読み出し 'Case処理 Select Case mkstrNum Case "0" 'mkstrNum = 0 …次行の文字列をディレクトリとして処理。 mkstrTmp = String(mkintFLV, " ") & "<LI>" & CStr(mktsCaf.ReadLine) & "<UL>" mktsBM.WriteLine (mkstrTmp) mkintFLV = CInt(mkintFLV + 4) mktsCaf.SkipLine Case "1" 'cnvstrNum = 1 …ワークフォルダを１階層上げる mkintFLV = CInt(mkintFLV - 4) mktsBM.WriteLine (String(mkintFLV, " ") & "</UL>") mktsCaf.SkipLine mktsCaf.SkipLine Case "2" 'cnvstrNum = 2 …URLとページタイトルをリンクとして出力 mkstrTmp = CStr(mktsCaf.ReadLine) '1行（HPのタイトル）を読込む。 mkstrTmp = String(mkintFLV, " ") & "<LI><A HREF=" & Chr(34) & mktsCaf.ReadLine & Chr(34) & ">" & mkstrTmp & "</A>" mktsBM.WriteLine (mkstrTmp) Case Else If mktsCaf.AtEndOfStream = False Then Call BugWeb.ShowMessage("キャッシュファイルの内容（形式）が不正です。") Exit Do End If End Select Loop If mktsCaf.AtEndOfStream = True Then mktsBM.WriteLine ("</UL>") mktsBM.WriteLine ("</HTML>") fncMkBookMark = False End If mktsCaf.Close mktsBM.Close Set mktsCaf = Nothing Set mktsBM = Nothing End Function '◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ |