photostream解析に失敗することがあるのを修正

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@223 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 45f05b6..972e0f8 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -8140,7 +8140,7 @@ RETRY:
                 If mc.Success Then
                     Dim src As String = ""
                     If (New HttpVarious).GetData(url.Key, Nothing, src, 5000) Then
-                        Dim _mc As MatchCollection = Regex.Matches(src, mc.Result("http://farm[0-9]+\.static\.flickr\.com/[0-9]+/.+\.([a-zA-Z]+)"))
+                        Dim _mc As MatchCollection = Regex.Matches(src, mc.Result("http://farm[0-9]+\.static\.flickr\.com/[0-9]+/.+?\.([a-zA-Z]+)"))
                         '二つ以上キャプチャした場合先頭の一つだけ 一つだけの場合はユーザーアイコンしか取れなかった
                         If _mc.Count > 1 Then
                             Dim _img As Image = http.GetImage(_mc.Item(1).Value, url.Key)