From aa97401fdbc74b12ab6703b956b5754f4a2b9015 Mon Sep 17 00:00:00 2001
From: syo68k <syo68k@users.sourceforge.jp>
Date: Thu, 7 Oct 2010 05:26:07 +0000
Subject: [PATCH] =?utf8?q?140=E6=96=87=E5=AD=97=E3=82=92=E8=B6=85=E3=81=88?=
 =?utf8?q?=E3=81=9F=E5=A0=B4=E5=90=88=E3=81=AE=E5=88=87=E3=82=8A=E6=8D=A8?=
 =?utf8?q?=E3=81=A6=E3=81=AE=E9=9A=9B=E3=81=AB=E3=83=8F=E3=83=83=E3=82=B7?=
 =?utf8?q?=E3=83=A5=E3=82=BF=E3=82=B0=E3=81=A8URL=E3=81=A3=E3=81=BD?=
 =?utf8?q?=E3=81=84=E6=96=87=E5=AD=97=E5=88=97=E3=82=82=E8=80=83=E6=85=AE?=
 =?utf8?q?=E3=81=99=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@943 e39ad16e-3079-482e-bb30-4b4d378143b6
---
 Tween/Tween.vb | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 83e5a55d..61daa003 100644
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1716,11 +1716,13 @@ Public Class TweenMain
 
         If isCutOff AndAlso args.status.status.Length > 140 Then
             args.status.status = args.status.status.Substring(0, 140)
-            Dim mc As Match = Regex.Match(args.status.status, "(@|ï¼ )[a-z0-9_/]+$", RegexOptions.IgnoreCase)
+            Dim AtId As String = "(@|ï¼ )[a-z0-9_/]+$"
+            Dim HashTag As String = "(^|[^0-9A-Z&\/\?]+)(#|＃)([0-9A-Z_]*[A-Z_]+)$"
+            Dim Url As String = "https?:\/\/[a-z0-9!\*'\(\);:&=\+\$\/%#\[\]\-_\.,~?]+$" '簡易判定
+            Dim pattern As String = String.Format("({0})|({1})|({2})", AtId, HashTag, Url)
+            Dim mc As Match = Regex.Match(args.status.status, pattern, RegexOptions.IgnoreCase)
             If mc.Success Then
-                'MessageBox.Show(My.Resources.PostLengthOverMessage3 + Environment.NewLine + Environment.NewLine + args.status.status, "Abort", MessageBoxButtons.OK)
-                'Exit Sub
-                'さらに@IDと推測される文字列をカットする
+                'さらに@ID、ハッシュタグ、URLと推測される文字列をカットする
                 args.status.status = args.status.status.Substring(0, 140 - mc.Value.Length)
             End If
             If MessageBox.Show(args.status.status, "Post or Cancel?", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then Exit Sub
-- 
2.11.0