From 97d6c328e3a9a14c356a93a307ab83014a155efe Mon Sep 17 00:00:00 2001 From: syo68k Date: Fri, 30 Apr 2010 04:40:19 +0000 Subject: [PATCH] =?utf8?q?photostream=E8=A7=A3=E6=9E=90=E3=81=AB=E5=A4=B1?= =?utf8?q?=E6=95=97=E3=81=99=E3=82=8B=E3=81=93=E3=81=A8=E3=81=8C=E3=81=82?= =?utf8?q?=E3=82=8B=E3=81=AE=E3=82=92=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@223 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Tween.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tween/Tween.vb b/Tween/Tween.vb index 45f05b61..972e0f81 100644 --- 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) -- 2.11.0