ＶＢ．ＮＥＴで正規表現を教えてください。ＵＲＬ文字を取得

質問

ＶＢ．ＮＥＴなのですが、

htmlソースを変数に入れて、その中からＵＲＬを抽出して、
１つずつ保存していくという動作をさせたいのですが、
どうしてもＵＲＬを一つずつ取得することができません。

Dim r As Regex
Dim m As Match
Dim JpgFile As String

r = New Regex("http://.+\.jpg")
m = r.Match(html)

If m.Success = False Then
　 Else
JpgFile = m.Value
ここで１つずつ保存
End If

現在、ここまで出来たのですが、
これだと、変数html内に複数のjpgのＵＲＬがあると
最初のＵＲＬの１文字目から、最後のＵＲＬの末尾までを一度に
取得してしまいます。
ＵＲＬの文字列はhttp://で始まっていて、終わりは・・・.jpg"
になっていたり、"がなかったりします。
>で閉じる前に同じタグ内にWidthなどサイズを指定している場合もあります。
また、上記のようにタグ内に書かれていなくて、クリッカブルリンクになっていないＵＲＬの場合もありそれも取得したいです。

一つずつ取得する方法や一度に配列に読み込む方法などがありましたら、
ご教示頂けると助かります。
よろしくお願い致します。

回答No.1

sakusaker7 · ベストアンサー

> ＵＲＬの文字列はhttp://で始まっていて、終わりは・・・.jpg"
この条件だけ満たすなら、
New Regex("​http://.+​\.jpg")

正規表現の繰り返し指定(*とか+など)はできるだけ長いマッチを
とろうとします。このため、.+ が複数のURLを食ってしまっている
というわけです。
#085　正規表現の落とし穴
http://www.ne.jp/asahi/futohen/sankaku/h085.htm

今回の場合とりあえず正規表現を "http://.+?\.jpg" にすればいいです。
量指定子
http://msdn2.microsoft.com/ja-jp/library/3206d374(vs.80,d=toc).aspx

htmlテキスト丸ごと与えて、その中からすべて取り出したいのなら
Regex.Matchesメソッドを使えば一発でできます。
一つずつ処理するならイテレータを、一度に配列に取り出したいのなら
CopyToメソッドを使えばいいでしょう。

Regex.Matches メソッド (String) (System.Text.RegularExpressions)
http://msdn2.microsoft.com/ja-jp/library/e7sf90t3(VS.80).aspx

お礼

大変よくわかりました。
詳しいご回答ありがとうございました。
助かりました。勉強になります。