svnno****@sourc*****
svnno****@sourc*****
2011年 3月 8日 (火) 12:02:50 JST
Revision: 1485
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1485
Author: syo68k
Date: 2011-03-08 12:02:50 +0900 (Tue, 08 Mar 2011)
Log Message:
-----------
イベントログ保存処理修正
Modified Paths:
--------------
trunk/Tween/EventViewerDialog.vb
trunk/Tween/My Project/Resources.Designer.vb
trunk/Tween/My Project/Resources.resx
-------------- next part --------------
Modified: trunk/Tween/EventViewerDialog.vb
===================================================================
--- trunk/Tween/EventViewerDialog.vb 2011-03-07 18:26:09 UTC (rev 1484)
+++ trunk/Tween/EventViewerDialog.vb 2011-03-08 03:02:50 UTC (rev 1485)
@@ -163,10 +163,16 @@
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 @@
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
Modified: trunk/Tween/My Project/Resources.Designer.vb
===================================================================
--- trunk/Tween/My Project/Resources.Designer.vb 2011-03-07 18:26:09 UTC (rev 1484)
+++ trunk/Tween/My Project/Resources.Designer.vb 2011-03-08 03:02:50 UTC (rev 1485)
@@ -1988,7 +1988,7 @@
End Property
'''<summary>
- ''' 全項目を保存しますか？{0} 「はい」 ：全項目を保存する{0} 「いいえ」 ：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します） に類似しているローカライズされた文字列を検索します。
+ ''' 現在のタブに表示されているイベントログを保存しますか？{0} 「はい」 ：現在タブに表示されているイベントログを保存する{0} 「いいえ」 ：全てのイベントログを保存する{0}「キャンセル」：保存処理をキャンセル{0}（タブ区切りのテキストファイル形式で保存します） に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property SaveLogMenuItem_ClickText5() As String
Get
Modified: trunk/Tween/My Project/Resources.resx
===================================================================
--- trunk/Tween/My Project/Resources.resx 2011-03-07 18:26:09 UTC (rev 1484)
+++ trunk/Tween/My Project/Resources.resx 2011-03-08 03:02:50 UTC (rev 1485)
@@ -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