Ｐａｇｅ 68 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼連番ページ移動（検索バーの数値）.vbs pepe 03/7/5(土) 18:03 ─────────────────────────────────────── ■題名 ： 連番ページ移動（検索バーの数値）.vbs ■名前 ： pepe ■日付 ： 03/7/5(土) 18:03 -------------------------------------------------------------------------
| '連番ページ移動（検索バーの数値） 'BugBrowserの旧スクリプトBBSにあったものを改造させていただきました '連番ページで加算・減算する数を指定してジャンプします '検索バーのキーワードに予め整数を入力しておいてください（１とか−１０とか） '例えば−１０の場合、スクリプトを実行すると〜200.htmlが〜190.htmlになります Dim BugWeb Dim Doc Dim sURL Dim regEX Dim Matches Dim sSource Dim sDes Dim Len1 Dim Len2 Dim Index Dim intBar Set BugWeb = CreateObject("BugWeb.BugBrowserAPI") '現在のURLを取得 Set Doc = BugWeb.CreateDocumentViewObject(BugWeb.ActiveView) sURL = Doc.document.URL intBar = BugWeb.SearchKeywordString '数字かどうかチェック If IsNumeric(intBar) Then '正規表現 Set regEX = new RegExp '数字部分を検索 '今回は2桁以上6桁以下の数字限定 regEX.Pattern = "\d{2,6}" regEx.Global = True Set Matches = regEx.Execute(sURL) If Matches.Count <> 0 Then '数字部分を発見した場合は一番最後に見つけた部分を書き換える ' Call BugWeb.ShowMessage(Matches.Count) sSource = Matches.Item(Matches.Count - 1).Value sDes = Cstr(Clng(sSource) + Clng(intBar)) Len1 = Matches.Item(Matches.Count -1 ).Length Len2 = Len(sDes) if Len1 > Len2 Then sDes = String(Len1 - Len2, "0") & sDes End If Index = Matches.Item(Matches.Count -1 ).FirstIndex sURL = MID(sURL,1,Index) & sDes & MID(sURL, Index+Len1+1) '/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_ '新規に開く場合は上の行を、見ているタブに開く場合は下の行を '有効にしてください。 ' Call BugWeb.NavigateNew(sURL) Call BugWeb.Navigate(sURL,BugWeb.ActiveView) '/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_ Else Call BugWeb.ShowMessage("URLに数字部分は検出できませんでした") End If Else Call BugWeb.ShowMessage("検索バーに数値がありません") End If Set Doc = Nothing Set BugWeb = Nothing |