VBAでRegExによる抽出

Question

下記のようなurlからrecordと&で挟まれた16を取得したいのですが、どのメソッドを利用すればよいのでしょうか？regex.execute等も調べたのですが、Matchesコレクションを返すなど、16を取得しに行っているわけではないように思えるのですが、どなたかアドバイスをお願いいたします。

Dim url As String
Dim pattern As String
 Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
　　　url = "https://example.show#record=16&l.view.example.XX.jp"
　　　pattern = "record(.+?)&"

Comments

[yambejp]

ハッシュ後の文字列はパラメータではないので
urlとしてはサーバーに送られませんが大丈夫ですか？

[SugiuraY]

コメントありがとうございます。はい、文字列としてだけ、16を取得したいという意図になります。

Answer 1

Split関数はどうですかね
Split関数で文字列を区切る

Comments

[SugiuraY]

ありがとうございます。今リンク先を拝見したのですが、第3引数が","といった具合に同じ文字列に挟まれるものしか取得できなそうなのですが、今回のように"record="と"&"に囲まれるという指定の仕方は難しいのではないでしょうか？

[退会済みユーザー]

区切り文字列で分割するだけなので、挟まれてなくても大丈夫ですよ。
Split(Split(url, "record=")(1), "&")(0)
2段階に分ければいけると思います。
区切り文字列を含んでないパターンは考慮してないので、そこは条件文でチェックしてください。

[SugiuraY]

無事解決いたしました！コメント遅くなり申し訳ございません。

Answer 2

Dim url As String
Dim pattern As String
Dim regex As Object
Dim sbmc

Set regex = CreateObject("VBScript.RegExp")
url = "https://example.show#record=16&l.view.example.XX.jp"
regex.pattern = "record.*?(\d+)(?=&)"
Set objMatches = regex.Execute(url)
Set sbmc = objMatches.Item(0).submatches
MsgBox sbmc.Item(0)