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