正規表現による文字列の取得について

質問

こんにちわ。

正規表現でマッチした箇所を変数に取り込むためにはどのようにしたらよいのでしょう？

HTMLのデータの中から情報を取り込みたいのですが、

PERLの場合は
if($_ =~ />データ([0-9\.]+)<\/FONT>/){$value=$1;}

のようなかんじでやれば「データ2005」という文字列から「2005」と取得できたものをｖｂではどのように記述すればいいのかわかりません。

VB初心者のため、あまりマトを得ていないかもしれませんが、よろしくお願いします。

説明不足があれば補足いたします。

参考サイトなどでも結構です。

回答No.1

BLUEPIXY · ベストアンサー

ＶＢ６だとこんな感じでやればいいと思います。
'---------------------------------------------
Dim objRegExp, objMatches, objMatch
Dim str As String, value As String

str = "<FONT>データ2005</FONT>"

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = ">データ([0-9\.]+)</FONT>"
'objRegExp.Global = True
Set objMatches = objRegExp.Execute(str)
Set objMatch = objMatches(0)
MsgBox objMatch.SubMatches(0) '2005が表示される

お礼

お返事が遅くなってしまい申しわけありません。
実現できました。
本当にありがとうございます。

もう一件の質問でもご回答いただき、感謝しております。

回答No.2

maruru01

こんにちは。maruru01です。

方法はNo.1の方のやり方でOKなので、参考URLを紹介します。

http://www.geocities.co.jp/SiliconValley-Bay/1992/excel/moji/vbreg01.html

↑この中の参考サイト（マイクロソフトのサイト）も参照して下さい。

参考URL：

http://www.geocities.co.jp/SiliconValley-Bay/1992/excel/moji/vbreg01.html