From 339af62239b5d60bdc6dea3017b5264a8996e710 Mon Sep 17 00:00:00 2001 From: Dominic Reich Date: Mon, 23 May 2016 19:06:22 +0200 Subject: [PATCH] updates emails and urls --- WiW RCON Chat/Form1.resx | 1624 +++++++++++++++++++------------------- WiW RCON Chat/Form1.vb | 166 ++-- 2 files changed, 895 insertions(+), 895 deletions(-) diff --git a/WiW RCON Chat/Form1.resx b/WiW RCON Chat/Form1.resx index b509da7..ba90524 100644 --- a/WiW RCON Chat/Form1.resx +++ b/WiW RCON Chat/Form1.resx @@ -1,813 +1,813 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - Inset - - - - 2 - - - True - - - - 3, 3 - - - 121, 17 - - - 0 - - - No Servermessages - - - chkbox_NoServerMessages - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel1 - - - 0 - - - 3, 26 - - - 182, 20 - - - 1 - - - txt_FilterInput - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel1 - - - 1 - - - 3, 52 - - - 182, 28 - - - 2 - - - Add to filter - - - button_AddToFilter - - - System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel1 - - - 2 - - - 3, 86 - - - 182, 28 - - - 4 - - - Delete from Filter - - - button_RemoveFromFilter - - - System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel1 - - - 3 - - - 3, 120 - - - 182, 28 - - - 5 - - - Clear All Filters - - - button_ClearFilters - - - System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel1 - - - 4 - - - 3, 154 - - - 182, 108 - - - 3 - - - listbox_Filters - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel1 - - - 5 - - - Fill - - - TopDown - - - 777, 5 - - - 194, 265 - - - 0 - - - FlowLayoutPanel1 - - - System.Windows.Forms.FlowLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 0 - - - 3, 3 - - - 182, 23 - - - 0 - - - Sort and Filter - - - button_SortAndFilter - - - System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 0 - - - False - - - 3, 32 - - - 182, 23 - - - 1 - - - Save to File - - - button_SaveToFile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 1 - - - True - - - Courier New, 9.75pt - - - 3, 58 - - - 112, 16 - - - 2 - - - Input Lines: - - - lbl_LinesInput - - - System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 2 - - - True - - - Courier New, 9.75pt - - - 3, 74 - - - 112, 16 - - - 3 - - - Output Lines: - - - lbl_LinesOutput - - - System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 3 - - - Courier New, 9.75pt - - - 3, 90 - - - 182, 23 - - - 5 - - - Conversion progress - - - BottomLeft - - - lbl_Progressbar - - - System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 4 - - - 3, 116 - - - 182, 16 - - - 4 - - - ProgressBar1 - - - System.Windows.Forms.ProgressBar, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 5 - - - 3, 135 - - - 182, 86 - - - 6 - - - lbl_Empty - - - System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 6 - - - 3, 221 - - - 182, 19 - - - 7 - - - dominic@tmsn.at - - - MiddleCenter - - - link_Email - - - System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 7 - - - 3, 240 - - - 182, 20 - - - 8 - - - http://tmsn.at/?tools&&rcon-chat - - - MiddleCenter - - - link_Website - - - System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - FlowLayoutPanel2 - - - 8 - - - Bottom - - - TopDown - - - 777, 278 - - - 194, 266 - - - 1 - - - FlowLayoutPanel2 - - - System.Windows.Forms.FlowLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 1 - - - 1 - - - True - - - Bottom - - - Palatino Linotype, 14.25pt, style=Bold - - - 3, 4 - - - 758, 26 - - - 0 - - - Input - - - label_Input - - - System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel2 - - - 0 - - - Fill - - - Microsoft Sans Serif, 9.75pt - - - 3, 33 - - - 3276700 - - - True - - - Vertical - - - 758, 229 - - - 1 - - - txt_Input - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel2 - - - 1 - - - Fill - - - 5, 5 - - - 2 - - - 764, 265 - - - 2 - - - TableLayoutPanel2 - - - System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 2 - - - <?xml version="1.0" encoding="utf-16"?><TableLayoutSettings><Controls><Control Name="label_Input" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /><Control Name="txt_Input" Row="1" RowSpan="1" Column="0" ColumnSpan="1" /></Controls><Columns Styles="Percent,100" /><Rows Styles="Absolute,30,Percent,100" /></TableLayoutSettings> - - - 1 - - - True - - - Bottom - - - Palatino Linotype, 14.25pt, style=Bold - - - 3, 4 - - - 758, 26 - - - 0 - - - Output - - - label_Output - - - System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel3 - - - 0 - - - Fill - - - Microsoft Sans Serif, 9.75pt - - - 3, 33 - - - 3276700 - - - True - - - Vertical - - - 758, 230 - - - 1 - - - txt_Output - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel3 - - - 1 - - - Fill - - - 5, 278 - - - 2 - - - 764, 266 - - - 3 - - - TableLayoutPanel3 - - - System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TableLayoutPanel1 - - - 3 - - - <?xml version="1.0" encoding="utf-16"?><TableLayoutSettings><Controls><Control Name="label_Output" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /><Control Name="txt_Output" Row="1" RowSpan="1" Column="0" ColumnSpan="1" /></Controls><Columns Styles="Percent,100" /><Rows Styles="Absolute,30,Percent,100" /></TableLayoutSettings> - - - Fill - - - 0, 0 - - - 2 - - - 976, 549 - - - 0 - - - TableLayoutPanel1 - - - System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 0 - - - <?xml version="1.0" encoding="utf-16"?><TableLayoutSettings><Controls><Control Name="FlowLayoutPanel1" Row="0" RowSpan="1" Column="1" ColumnSpan="1" /><Control Name="FlowLayoutPanel2" Row="1" RowSpan="1" Column="1" ColumnSpan="1" /><Control Name="TableLayoutPanel2" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /><Control Name="TableLayoutPanel3" Row="1" RowSpan="1" Column="0" ColumnSpan="1" /></Controls><Columns Styles="Percent,100,Absolute,200" /><Rows Styles="Percent,50,Percent,50" /></TableLayoutSettings> - - - True - - - 6, 13 - - - 976, 549 - - - WiW RCON Chat - - - frmMain - - - System.Windows.Forms.Form, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + Inset + + + + 2 + + + True + + + + 3, 3 + + + 121, 17 + + + 0 + + + No Servermessages + + + chkbox_NoServerMessages + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel1 + + + 0 + + + 3, 26 + + + 182, 20 + + + 1 + + + txt_FilterInput + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel1 + + + 1 + + + 3, 52 + + + 182, 28 + + + 2 + + + Add to filter + + + button_AddToFilter + + + System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel1 + + + 2 + + + 3, 86 + + + 182, 28 + + + 4 + + + Delete from Filter + + + button_RemoveFromFilter + + + System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel1 + + + 3 + + + 3, 120 + + + 182, 28 + + + 5 + + + Clear All Filters + + + button_ClearFilters + + + System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel1 + + + 4 + + + 3, 154 + + + 182, 108 + + + 3 + + + listbox_Filters + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel1 + + + 5 + + + Fill + + + TopDown + + + 777, 5 + + + 194, 265 + + + 0 + + + FlowLayoutPanel1 + + + System.Windows.Forms.FlowLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel1 + + + 0 + + + 3, 3 + + + 182, 23 + + + 0 + + + Sort and Filter + + + button_SortAndFilter + + + System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 0 + + + False + + + 3, 32 + + + 182, 23 + + + 1 + + + Save to File + + + button_SaveToFile + + + System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 1 + + + True + + + Courier New, 9.75pt + + + 3, 58 + + + 112, 16 + + + 2 + + + Input Lines: + + + lbl_LinesInput + + + System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 2 + + + True + + + Courier New, 9.75pt + + + 3, 74 + + + 112, 16 + + + 3 + + + Output Lines: + + + lbl_LinesOutput + + + System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 3 + + + Courier New, 9.75pt + + + 3, 90 + + + 182, 23 + + + 5 + + + Conversion progress + + + BottomLeft + + + lbl_Progressbar + + + System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 4 + + + 3, 116 + + + 182, 16 + + + 4 + + + ProgressBar1 + + + System.Windows.Forms.ProgressBar, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 5 + + + 3, 135 + + + 182, 86 + + + 6 + + + lbl_Empty + + + System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 6 + + + 3, 221 + + + 182, 19 + + + 7 + + + Email + + + MiddleCenter + + + link_Email + + + System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 7 + + + 3, 240 + + + 182, 20 + + + 8 + + + Website + + + MiddleCenter + + + link_Website + + + System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + FlowLayoutPanel2 + + + 8 + + + Bottom + + + TopDown + + + 777, 278 + + + 194, 266 + + + 1 + + + FlowLayoutPanel2 + + + System.Windows.Forms.FlowLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel1 + + + 1 + + + 1 + + + True + + + Bottom + + + Palatino Linotype, 14.25pt, style=Bold + + + 3, 4 + + + 758, 26 + + + 0 + + + Input + + + label_Input + + + System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel2 + + + 0 + + + Fill + + + Microsoft Sans Serif, 9.75pt + + + 3, 33 + + + 3276700 + + + True + + + Vertical + + + 758, 229 + + + 1 + + + txt_Input + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel2 + + + 1 + + + Fill + + + 5, 5 + + + 2 + + + 764, 265 + + + 2 + + + TableLayoutPanel2 + + + System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel1 + + + 2 + + + <?xml version="1.0" encoding="utf-16"?><TableLayoutSettings><Controls><Control Name="label_Input" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /><Control Name="txt_Input" Row="1" RowSpan="1" Column="0" ColumnSpan="1" /></Controls><Columns Styles="Percent,100" /><Rows Styles="Absolute,30,Percent,100" /></TableLayoutSettings> + + + 1 + + + True + + + Bottom + + + Palatino Linotype, 14.25pt, style=Bold + + + 3, 4 + + + 758, 26 + + + 0 + + + Output + + + label_Output + + + System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel3 + + + 0 + + + Fill + + + Microsoft Sans Serif, 9.75pt + + + 3, 33 + + + 3276700 + + + True + + + Vertical + + + 758, 230 + + + 1 + + + txt_Output + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel3 + + + 1 + + + Fill + + + 5, 278 + + + 2 + + + 764, 266 + + + 3 + + + TableLayoutPanel3 + + + System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TableLayoutPanel1 + + + 3 + + + <?xml version="1.0" encoding="utf-16"?><TableLayoutSettings><Controls><Control Name="label_Output" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /><Control Name="txt_Output" Row="1" RowSpan="1" Column="0" ColumnSpan="1" /></Controls><Columns Styles="Percent,100" /><Rows Styles="Absolute,30,Percent,100" /></TableLayoutSettings> + + + Fill + + + 0, 0 + + + 2 + + + 976, 549 + + + 0 + + + TableLayoutPanel1 + + + System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + <?xml version="1.0" encoding="utf-16"?><TableLayoutSettings><Controls><Control Name="FlowLayoutPanel1" Row="0" RowSpan="1" Column="1" ColumnSpan="1" /><Control Name="FlowLayoutPanel2" Row="1" RowSpan="1" Column="1" ColumnSpan="1" /><Control Name="TableLayoutPanel2" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /><Control Name="TableLayoutPanel3" Row="1" RowSpan="1" Column="0" ColumnSpan="1" /></Controls><Columns Styles="Percent,100,Absolute,200" /><Rows Styles="Percent,50,Percent,50" /></TableLayoutSettings> + + + True + + + 6, 13 + + + 976, 549 + + + WiW RCON Chat + + + frmMain + + + System.Windows.Forms.Form, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + \ No newline at end of file diff --git a/WiW RCON Chat/Form1.vb b/WiW RCON Chat/Form1.vb index 21f4969..9750757 100644 --- a/WiW RCON Chat/Form1.vb +++ b/WiW RCON Chat/Form1.vb @@ -1,84 +1,84 @@ -Imports System -Imports System.Diagnostics - -Public Class frmMain - - Private Sub button_AddToFilter_Click(sender As Object, e As EventArgs) Handles button_AddToFilter.Click - If txt_FilterInput.Text <> "" Then - listbox_Filters.Items.Add(txt_FilterInput.Text) - txt_FilterInput.Text = Nothing - End If - End Sub - - Private Sub button_RemoveFromFilter_Click(sender As Object, e As EventArgs) Handles button_RemoveFromFilter.Click - On Error Resume Next - listbox_Filters.Items.Remove(listbox_Filters.SelectedItem) - listbox_Filters.SetSelected(0, True) - End Sub - - Private Sub button_SortAndFilter_Click(sender As Object, e As EventArgs) Handles button_SortAndFilter.Click - If txt_Input.Text = "" Then - Exit Sub - End If - txt_Output.Text = "" - - Dim aInput As Array = txt_Input.Lines - 'Dim aOutput() As Array - - Array.Reverse(aInput) - ProgressBar1.Value = 0 - ProgressBar1.Maximum = Int(aInput.Length) - - For Each _inputlines As String In aInput - ProgressBar1.Increment(1) - If chkbox_NoServerMessages.Checked = True And _inputlines.ToString.Contains("Server") Then - Continue For - End If - If listbox_Filters.Items.Count > 0 Then - ' run filters on _inputlines - For Each _filter As String In listbox_Filters.Items - If _inputlines.ToString.Contains(_filter) Then - txt_Output.AppendText(_inputlines + vbNewLine) - End If - Next - Else - txt_Output.AppendText(_inputlines + vbNewLine) - End If - Next - - Dim strInputLines As String = Int(aInput.Length) - Dim strOutputLines As String = Int(txt_Output.Lines.Length) - 1 - - lbl_LinesInput.Text = " Input Lines: " + strInputLines - lbl_LinesOutput.Text = "Output Lines: " + strOutputLines - End Sub - - Private Sub link_Email_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Email.LinkClicked - On Error GoTo showerr - link_Email.LinkVisited = True - System.Diagnostics.Process.Start("mailto:Dominic Reich ") - Exit Sub -showerr: - MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error) - End Sub - - Private Sub link_Website_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Website.LinkClicked - On Error GoTo showerr - link_Website.LinkVisited = True - System.Diagnostics.Process.Start("http://tmsn.at/?tools&rcon-chat") - Exit Sub -showerr: - MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error) - End Sub - - Private Sub txt_FilterInput_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_FilterInput.KeyDown - If e.KeyCode = Keys.Enter Then - button_AddToFilter_Click(txt_FilterInput, Nothing) - End If - End Sub - - Private Sub button_ClearFilters_Click(sender As Object, e As EventArgs) Handles button_ClearFilters.Click - On Error Resume Next - listbox_Filters.Items.Clear() - End Sub +Imports System +Imports System.Diagnostics + +Public Class frmMain + + Private Sub button_AddToFilter_Click(sender As Object, e As EventArgs) Handles button_AddToFilter.Click + If txt_FilterInput.Text <> "" Then + listbox_Filters.Items.Add(txt_FilterInput.Text) + txt_FilterInput.Text = Nothing + End If + End Sub + + Private Sub button_RemoveFromFilter_Click(sender As Object, e As EventArgs) Handles button_RemoveFromFilter.Click + On Error Resume Next + listbox_Filters.Items.Remove(listbox_Filters.SelectedItem) + listbox_Filters.SetSelected(0, True) + End Sub + + Private Sub button_SortAndFilter_Click(sender As Object, e As EventArgs) Handles button_SortAndFilter.Click + If txt_Input.Text = "" Then + Exit Sub + End If + txt_Output.Text = "" + + Dim aInput As Array = txt_Input.Lines + 'Dim aOutput() As Array + + Array.Reverse(aInput) + ProgressBar1.Value = 0 + ProgressBar1.Maximum = Int(aInput.Length) + + For Each _inputlines As String In aInput + ProgressBar1.Increment(1) + If chkbox_NoServerMessages.Checked = True And _inputlines.ToString.Contains("Server") Then + Continue For + End If + If listbox_Filters.Items.Count > 0 Then + ' run filters on _inputlines + For Each _filter As String In listbox_Filters.Items + If _inputlines.ToString.Contains(_filter) Then + txt_Output.AppendText(_inputlines + vbNewLine) + End If + Next + Else + txt_Output.AppendText(_inputlines + vbNewLine) + End If + Next + + Dim strInputLines As String = Int(aInput.Length) + Dim strOutputLines As String = Int(txt_Output.Lines.Length) - 1 + + lbl_LinesInput.Text = " Input Lines: " + strInputLines + lbl_LinesOutput.Text = "Output Lines: " + strOutputLines + End Sub + + Private Sub link_Email_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Email.LinkClicked + On Error GoTo showerr + link_Email.LinkVisited = True + System.Diagnostics.Process.Start("mailto:Dominic Reich ") + Exit Sub +showerr: + MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Sub + + Private Sub link_Website_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles link_Website.LinkClicked + On Error GoTo showerr + link_Website.LinkVisited = True + System.Diagnostics.Process.Start("http://klamm.io") + Exit Sub +showerr: + MessageBox.Show(Err.Description, "An error occured", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Sub + + Private Sub txt_FilterInput_KeyDown(sender As Object, e As KeyEventArgs) Handles txt_FilterInput.KeyDown + If e.KeyCode = Keys.Enter Then + button_AddToFilter_Click(txt_FilterInput, Nothing) + End If + End Sub + + Private Sub button_ClearFilters_Click(sender As Object, e As EventArgs) Handles button_ClearFilters.Click + On Error Resume Next + listbox_Filters.Items.Clear() + End Sub End Class \ No newline at end of file