svnno****@sourc*****
svnno****@sourc*****
2011年 5月 27日 (金) 19:57:11 JST
Revision: 1541
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1541
Author: kiri_feather
Date: 2011-05-27 19:57:11 +0900 (Fri, 27 May 2011)
Log Message:
-----------
アンダーバーの含まれたドメインをURLとして認識していなかったので修正
Modified Paths:
--------------
trunk/Tween/Twitter.vb
-------------- next part --------------
Modified: trunk/Tween/Twitter.vb
===================================================================
--- trunk/Tween/Twitter.vb 2011-05-26 16:08:24 UTC (rev 1540)
+++ trunk/Tween/Twitter.vb 2011-05-27 10:57:11 UTC (rev 1541)
@@ -2756,7 +2756,7 @@
If Text Is Nothing Then Return Nothing
Dim retStr As String = Text.Replace(">", "<<<<<tweenだいなり>>>>>").Replace("<", "<<<<<tweenしょうなり>>>>>")
'uriの正規表現
- Const url_valid_domain As String = "(?<domain>(?:[\.-]|[^\p{P}\s])+\.[a-z]{2,}(?::[0-9]+)?)"
+ Const url_valid_domain As String = "(?<domain>(?:[^\p{P}\s][\.-_](?=[^\p{P}\s])|[^\p{P}\s]){1,}\.[a-z]{2,}(?::[0-9]+)?)"
Const url_valid_general_path_chars As String = "[a-z0-9!*';:=+$/%#\[\]\-_,~]"
Const url_balance_parens As String = "(?:\(" + url_valid_general_path_chars + "+\))"
Const url_valid_url_path_ending_chars As String = "(?:[a-z0-9=_#/\-\+]+|" + url_balance_parens + ")"