投稿文内の全角スペースを半角スペースにする処理で、半角スペース2つから1つへの置換に変更

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 5de0edb..ce24fc1 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1763,12 +1763,12 @@ Public Class TweenMain
             adjustCount += Regex.Matches(tmpStatus, "https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+").Count
         End If
 
-        If IdeographicSpaceToSpaceToolStripMenuItem.Checked Then
-            ' 文中の全角スペースを半角スペース2個にする
-            For i As Integer = 0 To tmpStatus.Length - 1
-                If tmpStatus.Substring(i, 1) = "　" Then adjustCount += 1
-            Next
-        End If
+        'If IdeographicSpaceToSpaceToolStripMenuItem.Checked Then
+        '    ' 文中の全角スペースを半角スペース2個にする
+        '    For i As Integer = 0 To tmpStatus.Length - 1
+        '        If tmpStatus.Substring(i, 1) = "　" Then adjustCount += 1
+        '    Next
+        'End If
 
 
         Dim isCutOff As Boolean = False
@@ -1835,8 +1835,8 @@ Public Class TweenMain
         End If
 
         If IdeographicSpaceToSpaceToolStripMenuItem.Checked Then
-            ' 文中の全角スペースを半角スペース2個にする
-            args.status.status = args.status.status.Replace("　", "  ")
+            ' 文中の全角スペースを半角スペース1個にする
+            args.status.status = args.status.status.Replace("　", " ")
         End If
 
         If isCutOff AndAlso args.status.status.Length > 140 Then