From 133c1756cf9767bc7cb26043c1e49d42497c00fe Mon Sep 17 00:00:00 2001 From: syo68k Date: Tue, 8 Mar 2011 03:02:50 +0000 Subject: [PATCH] =?utf8?q?=E3=82=A4=E3=83=99=E3=83=B3=E3=83=88=E3=83=AD?= =?utf8?q?=E3=82=B0=E4=BF=9D=E5=AD=98=E5=87=A6=E7=90=86=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@1485 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/EventViewerDialog.vb | 52 ++++++++++++++++++---------------- Tween/My Project/Resources.Designer.vb | 2 +- Tween/My Project/Resources.resx | 2 +- 3 files changed, 30 insertions(+), 26 deletions(-) diff --git a/Tween/EventViewerDialog.vb b/Tween/EventViewerDialog.vb index 40be1bd1..7cecd601 100644 --- 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 791a4af8..70266ef3 100644 --- a/Tween/My Project/Resources.Designer.vb +++ b/Tween/My Project/Resources.Designer.vb @@ -1988,7 +1988,7 @@ Namespace My.Resources End Property ''' - ''' 全項目を保存しますか？{0}　「はい」　　　：全項目を保存する{0}　「いいえ」　　：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します） に類似しているローカライズされた文字列を検索します。 + ''' 現在のタブに表示されているイベントログを保存しますか？{0}　「はい」　　：現在タブに表示されているイベントログを保存する{0}　「いいえ」　：全てのイベントログを保存する{0}「キャンセル」：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します） に類似しているローカライズされた文字列を検索します。 ''' Friend ReadOnly Property SaveLogMenuItem_ClickText5() As String Get diff --git a/Tween/My Project/Resources.resx b/Tween/My Project/Resources.resx index 3325db98..6bf742df 100644 --- a/Tween/My Project/Resources.resx +++ b/Tween/My Project/Resources.resx @@ -1079,6 +1079,6 @@ タブ作成エラー - 全項目を保存しますか？{0}　「はい」　　　：全項目を保存する{0}　「いいえ」　　：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します） + 現在のタブに表示されているイベントログを保存しますか？{0}　「はい」　　：現在タブに表示されているイベントログを保存する{0}　「いいえ」　：全てのイベントログを保存する{0}「キャンセル」：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します） \ No newline at end of file -- 2.11.0