svnno****@sourc*****
svnno****@sourc*****
2011年 5月 29日 (日) 15:42:51 JST
Revision: 1544
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1544
Author: syo68k
Date: 2011-05-29 15:42:51 +0900 (Sun, 29 May 2011)
Log Message:
-----------
ドメインにマイナス記号が含まれる場合にURLを正しく認識できていなかったのを修正
Modified Paths:
--------------
trunk/Tween/Twitter.vb
-------------- next part --------------
Modified: trunk/Tween/Twitter.vb
===================================================================
--- trunk/Tween/Twitter.vb 2011-05-29 04:59:00 UTC (rev 1543)
+++ trunk/Tween/Twitter.vb 2011-05-29 06:42:51 UTC (rev 1544)
@@ -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][\.-_](?=[^\p{P}\s])|[^\p{P}\s]){1,}\.[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 + ")"