|で始まる文字列がハッシュタグとして認識されてしまうバグを修正

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@927 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 22286e9..e0033ef 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -6948,7 +6948,7 @@ RETRY:
     Friend Sub CheckReplyTo(ByVal StatusText As String)
         Dim m As MatchCollection
         'ハッシュタグの保存
-        m = Regex.Matches(StatusText, "(^|[^a-zA-Z0-9_/])[#|＃](?<hash>[a-zA-Z0-9_]+)")
+        m = Regex.Matches(StatusText, "(^|[^a-zA-Z0-9_/])(#|＃)(?<hash>[a-zA-Z0-9_]+)")
         Dim hstr As String = ""
         For Each hm As Match In m
             If Not IsNumeric(hm.Result("${hash}")) Then