イベントログ保存処理修正

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

diff --git a/Tween/EventViewerDialog.vb b/Tween/EventViewerDialog.vb
index 40be1bd..7cecd60 100644 (file)
--- a/Tween/EventViewerDialog.vb
+++ b/Tween/EventViewerDialog.vb
@@ -163,10 +163,16 @@ Public Class EventViewerDialog
     Private Sub SaveLogButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveLogButton.Click
         Dim rslt As DialogResult = MessageBox.Show(String.Format(My.Resources.SaveLogMenuItem_ClickText5, Environment.NewLine), _
                 My.Resources.SaveLogMenuItem_ClickText2, _
-                MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-        If rslt = Windows.Forms.DialogResult.No Then Exit Sub
+                MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
+        Select Case rslt
+            Case Windows.Forms.DialogResult.Yes
+                SaveFileDialog1.FileName = "TweenEvents" + _curTab.Tag.ToString + Format(Now, "yyMMdd-HHmmss") + ".tsv"
+            Case Windows.Forms.DialogResult.No
+                SaveFileDialog1.FileName = "TweenEvents" + Format(Now, "yyMMdd-HHmmss") + ".tsv"
+            Case Else
+                Exit Sub
+        End Select
 
-        SaveFileDialog1.FileName = "TweenEvents" + Format(Now, "yyMMdd-HHmmss") + ".tsv"
         SaveFileDialog1.InitialDirectory = My.Application.Info.DirectoryPath
         SaveFileDialog1.Filter = My.Resources.SaveLogMenuItem_ClickText3
         SaveFileDialog1.FilterIndex = 0
@@ -176,31 +182,29 @@ Public Class EventViewerDialog
         If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
             If Not SaveFileDialog1.ValidateNames Then Exit Sub
             Using sw As StreamWriter = New StreamWriter(SaveFileDialog1.FileName, False, Encoding.UTF8)
-                If rslt = Windows.Forms.DialogResult.Yes Then
-                    'All
-                    For Each _event As Twitter.FormattedEvent In EventSource
-                        sw.WriteLine(_event.Eventtype.ToString & vbTab & _
-                                 """" & _event.CreatedAt.ToString + """" & vbTab & _
-                                 _event.Event & vbTab & _
-                                 _event.Username & vbTab & _
-                                 _event.Target & vbTab & _
-                                 _event.Id.ToString)
-                    Next
-                    'Else
-                    '    For Each idx As Integer In _curList.SelectedIndices
-                    '        Dim post As PostClass = _statuses.Item(_curTab.Text, idx)
-                    '        sw.WriteLine(_event.Eventtype.ToString & vbTab & _
-                    '             """" & _event.CreatedAt.ToString + """" & vbTab & _
-                    '             _event.Event & vbTab & _
-                    '             _event.Username & vbTab & _
-                    '             _event.Target & vbTab & _
-                    '             _event.Id.ToString)
-                    '    Next
-                End If
+                Select Case rslt
+                    Case Windows.Forms.DialogResult.Yes
+                        SaveEventLog(_filterdEventSource.ToList(), sw)
+                    Case Windows.Forms.DialogResult.No
+                        SaveEventLog(EventSource, sw)
+                    Case Else
+                        '
+                End Select
                 sw.Close()
                 sw.Dispose()
             End Using
         End If
         Me.TopMost = AppendSettingDialog.Instance.AlwaysTop
     End Sub
+
+    Private Sub SaveEventLog(ByVal source As List(Of Twitter.FormattedEvent), ByVal sw As StreamWriter)
+        For Each _event As Twitter.FormattedEvent In source
+            sw.WriteLine(_event.Eventtype.ToString & vbTab & _
+                         """" & _event.CreatedAt.ToString + """" & vbTab & _
+                         _event.Event & vbTab & _
+                         _event.Username & vbTab & _
+                         _event.Target & vbTab & _
+                         _event.Id.ToString)
+        Next
+    End Sub
 End Class

diff --git a/Tween/My Project/Resources.Designer.vb b/Tween/My Project/Resources.Designer.vb
index 791a4af..70266ef 100644 (file)
--- a/Tween/My Project/Resources.Designer.vb
+++ b/Tween/My Project/Resources.Designer.vb
@@ -1988,7 +1988,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  全項目を保存しますか？{0}　「はい」　　　：全項目を保存する{0}　「いいえ」　　：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します） に類似しているローカライズされた文字列を検索します。
+        '''  現在のタブに表示されているイベントログを保存しますか？{0}　「はい」　　：現在タブに表示されているイベントログを保存する{0}　「いいえ」　：全てのイベントログを保存する{0}「キャンセル」：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します） に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property SaveLogMenuItem_ClickText5() As String
             Get

diff --git a/Tween/My Project/Resources.resx b/Tween/My Project/Resources.resx
index 3325db9..6bf742d 100644 (file)
--- a/Tween/My Project/Resources.resx
+++ b/Tween/My Project/Resources.resx
@@ -1079,6 +1079,6 @@
     <value>タブ作成エラー</value>
   </data>
   <data name="SaveLogMenuItem_ClickText5" xml:space="preserve">
-    <value>全項目を保存しますか？{0}　「はい」　　　：全項目を保存する{0}　「いいえ」　　：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します）</value>
+    <value>現在のタブに表示されているイベントログを保存しますか？{0}　「はい」　　：現在タブに表示されているイベントログを保存する{0}　「いいえ」　：全てのイベントログを保存する{0}「キャンセル」：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します）</value>
   </data>
 </root>
\ No newline at end of file