svnno****@sourc*****
svnno****@sourc*****
2010年 11月 2日 (火) 22:40:42 JST
Revision: 1028 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1028 Author: syo68k Date: 2010-11-02 22:40:42 +0900 (Tue, 02 Nov 2010) Log Message: ----------- Sourceがtxtの場合に対応 Modified Paths: -------------- trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2010-11-02 13:28:18 UTC (rev 1027) +++ trunk/Tween/Tween.vb 2010-11-02 13:40:42 UTC (rev 1028) @@ -4445,7 +4445,13 @@ Else Dim mc As Match = Regex.Match(_curPost.SourceHtml, "<a href=""(?<sourceurl>.+?)""") If mc.Success Then + Dim src As String = mc.Groups("sourceurl").Value SourceLinkLabel.Tag = mc.Groups("sourceurl").Value + mc = Regex.Match(src, "^https?://") + If Not mc.Success Then + src = src.Insert(0, "http://twitter.com") + End If + SourceLinkLabel.Tag = src Else SourceLinkLabel.Tag = Nothing End If