正規表現について

質問

VB6ですが・・・

'次のようなコードがあって <!-- と --> に囲まれる文字列を抜き出したのですが
'どのようなパターンマッチを書けばいいのでしょうか？

'HTMLのコメントのみを抜き出したいと思っています。

Const s = "<!--今日-->" _
& "<!--僕は--><!--正規表現を--><!--勉強します-->"

Dim x As RegExp
Dim v As match

Set x = New RegExp
x.Pattern = "パターン"
x.Global = True
For Each v In x.Execute(s)
Debug.Print v.Value
Next

回答No.1

perse · ベストアンサー

vb6でも正規表現使えたんですね。
多分コンナ感じでいいと思います。

Dim s As String

s = s & "<!--今日-->"
s = s & "余計な"
s = s & "<!--僕は-->"
s = s & "文字を"
s = s & "<!--正規表現を-->"
s = s & "入れときます"
s = s & "<!--勉強します-->"

Dim x As RegExp
Dim v As Match

Set x = New RegExp

x.Pattern = "<!--(.*?)-->"
x.Global = True

For Each v In x.Execute(s)
Debug.Print v.SubMatches(0)
Next

'[出力結果]
'今日
'僕は
'正規表現を
'勉強します

参考URL：

http://cheb.sakura.ne.jp/gena/blog/archives/2006/03/vb60.html