処理そのものは一般的なものですが、VBScript の正規表現の記述は、 JavaScript のそれより少し複雑です。 まず、最初に New RegExp で正規表現処理用のオブジェクトを作成し て、どのような検索をするかは、プロパティに設定します。 さらに、() を使った中の文字列を取得するには、Pattern に指定した 正規表現全体の文字列が入っている Match に対して、プロパティとし て SubMatches コレクションが存在するので、その中の先頭として取り 出しています 今回、() の指定は一つだったので、SubMatches(0) しか存在しませんが、複数 の場合は、インデックスに 1 以上を使って参照します ※ .jp のみの場合は regEx.Pattern = "http://(.+?\.jp)/"
Dim str : str = "http://winofsql.jp/php/cnvtext/frame.htm" & vbCrLf & _ "http://js4web.seesaa.net/article/122772668.html" & vbCrLf & _ "http://hp.vector.co.jp/authors/VA003334/mslink.htm" MsgBox(str) Dim regEx : Set regEx = New RegExp ' 検索パターンを文字列で設定 regEx.Pattern = "http://(.+?)/" ' 大文字小文字を区別しない ' ( この場合はどちらでも良い ) regEx.IgnoreCase = True ' 文字列全体を検索 ' False だと一件しか検索しない regEx.Global = True ' 検索の実行 Dim Matches : Set Matches = regEx.Execute(str) Dim Match For Each Match in Matches ' 検索結果の中の () 内の文字列を取得 MsgBox(Match.SubMatches(0)) Next
|
|
【VBScriptの最新記事】
- 指定した位置でレジストリエディタを開く為の VBScript をダウンロードします
- VBScript(WSH) と PHP(7.3) で氏名をランダムに作成
- VBScript : XCOPYで新しいファイルのみバックアップする為のスクリプトを作成するスクリプト
- VBScript + PowerShell : PowerShell がファイルを開くダイアログで取得したパスをテキストファイル経由で VBScript に戻して使用する
- VBScript : XMLファイルのテキストノードの値の更新
- HTA : 指定したキーでレジストリエディタを開く
- WSH(VBScript) : 指定したキーでレジストリエディタを開く
- VBScript : WEB上のHTMLを使用して、InternetExplorer.Application でパスワード入力を実装する
- 文字列を指定してその名前の変数でオブジェクトを作成する : WEB に VBScript ライブラリ
- 実行中のスクリプトのタイプを知る : WEB に VBScript ライブラリ
- VBS : FileZilla用誰にでも使える拡張子ランチャー
