140文字オーバーでの末尾カットで、最後が＠IDっぽかったら投稿しないように変更

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

diff --git a/Tween/My Project/Resources.Designer.vb b/Tween/My Project/Resources.Designer.vb
index 4e04fea..022947f 100644 (file)
--- a/Tween/My Project/Resources.Designer.vb
+++ b/Tween/My Project/Resources.Designer.vb
@@ -775,7 +775,7 @@ Namespace My.Resources
         '''<Associator developer>
         '''Developer:Takeshi KIRIYA(http://www.takeshik.org/)
         '''Developer:moz
-        '''Developper:sin_sin(http://twitter.com/sinsinpub)
+        '''Developer:sin_sin(http://twitter.com/sinsinpub)
         '''Developer:anis774(http://d.hatena.ne.jp/anis774/)
         '''Tester:fantasticswallow(http://twitter.com/f_swallow)
         '''Icons:Minami(http://www.pi-kun.com/) に類似しているローカライズされた文字列を検索します。
@@ -1519,6 +1519,15 @@ Namespace My.Resources
         End Property
         
         '''<summary>
+        '''  文末の＠ユーザー名が切り捨てられた可能性があるため、投稿をキャンセルします。 に類似しているローカライズされた文字列を検索します。
+        '''</summary>
+        Friend ReadOnly Property PostLengthOverMessage3() As String
+            Get
+                Return ResourceManager.GetString("PostLengthOverMessage3", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
         '''  画像を投稿します。よろしいですか？ に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property PostPictureConfirm1() As String

diff --git a/Tween/My Project/Resources.en.resx b/Tween/My Project/Resources.en.resx
index 7a64d4b..f5cfe23 100644 (file)
--- a/Tween/My Project/Resources.en.resx
+++ b/Tween/My Project/Resources.en.resx
@@ -903,4 +903,7 @@
   <data name="MyLists1" xml:space="preserve">
     <value> : Manage Lists</value>
   </data>
+  <data name="PostLengthOverMessage3" xml:space="preserve">
+    <value>Abort to posting status because @id may be rounded down.</value>
+  </data>
 </root>
\ No newline at end of file

diff --git a/Tween/My Project/Resources.resx b/Tween/My Project/Resources.resx
index 3301e5a..32018ff 100644 (file)
--- a/Tween/My Project/Resources.resx
+++ b/Tween/My Project/Resources.resx
@@ -976,4 +976,7 @@
   <data name="MyLists1" xml:space="preserve">
     <value>を含むリストの管理</value>
   </data>
+  <data name="PostLengthOverMessage3" xml:space="preserve">
+    <value>文末の＠ユーザー名が切り捨てられた可能性があるため、投稿をキャンセルします。</value>
+  </data>
 </root>
\ No newline at end of file

diff --git a/Tween/My Project/Resources.zh-CHS.resx b/Tween/My Project/Resources.zh-CHS.resx
index 47620d4..f79fc2b 100644 (file)
--- a/Tween/My Project/Resources.zh-CHS.resx
+++ b/Tween/My Project/Resources.zh-CHS.resx
@@ -936,4 +936,7 @@
   <data name="RtCountText1" xml:space="preserve">
     <value>人锐推了该消息</value>
   </data>
+  <data name="PostLengthOverMessage3" xml:space="preserve">
+    <value>Abort to posting status because @id may be rounded down.</value>
+  </data>
 </root>
\ No newline at end of file

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 8642f17..dbd240b 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1698,6 +1698,10 @@ Public Class TweenMain
 
         If isCutOff AndAlso args.status.status.Length > 140 Then
             args.status.status = args.status.status.Substring(0, 140)
+            If Regex.IsMatch(args.status.status, "@[a-zA-Z0-9_/]+$", RegexOptions.IgnoreCase) Then
+                MessageBox.Show(My.Resources.PostLengthOverMessage3 + Environment.NewLine + Environment.NewLine + args.status.status, "Abort", MessageBoxButtons.OK)
+                Exit Sub
+            End If
             If MessageBox.Show(args.status.status, "Post or Cancel?", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then Exit Sub
         End If