Hallo liebe Community,
und zwar habe ich ein Problem. Ich besitze einen Server und habe dort bestimmte LogFiles die Extrem groß sind.
Und möchte mir dafür ein kleines "FilterTool" basteln.
Ich habe mit dem ganzen auch bereits angefangen nun weis ich allerdings nicht weiter.
Ich möchte das man mit einem "Button Click" die vorher ausgelesene TextFile filtert und nur die Zeilen behält die folgende Schlagwörter enthält: "Type" und "Object"
Alles andere soll gelöscht werden.
Wie kann ich das realisieren?
Ich freue mich schon jetzt auf eure Antworten und bedanke mich im voraus das ihr euch Zeit für nehmt.
Euer Wisiskyline
EDIT*
Code bis jetzt:
und zwar habe ich ein Problem. Ich besitze einen Server und habe dort bestimmte LogFiles die Extrem groß sind.
Und möchte mir dafür ein kleines "FilterTool" basteln.
Ich habe mit dem ganzen auch bereits angefangen nun weis ich allerdings nicht weiter.
Ich möchte das man mit einem "Button Click" die vorher ausgelesene TextFile filtert und nur die Zeilen behält die folgende Schlagwörter enthält: "Type" und "Object"
Alles andere soll gelöscht werden.
Wie kann ich das realisieren?
Ich freue mich schon jetzt auf eure Antworten und bedanke mich im voraus das ihr euch Zeit für nehmt.
Euer Wisiskyline
EDIT*
Code bis jetzt:
Quellcode
- Private Sub Filename()
- OpenFileDialog1.ShowDialog()
- path_tb.Text = OpenFileDialog1.FileName
- End Sub
- Private Sub open_file_Click(sender As Object, e As EventArgs) Handles open_file.Click
- Filename()
- RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
- End Sub
- Sub write()
- Dim strFileName As String = path_tb.Text
- Dim strValue As String = ""
- Dim writer As StreamWriter
- Dim enc As System.Text.Encoding
- Dim blnAppend As Boolean = False
- enc = System.Text.Encoding.ASCII
- writer = New StreamWriter(strFileName, blnAppend, enc)
- strValue = RichTextBox1.Text
- writer.Write(strValue)
- writer.Close()
- End Sub
- Private Sub cmd_save_Click(sender As Object, e As EventArgs) Handles cmd_save.Click
- write()
- MsgBox("Log File wurde erfolgreich gespeichert!", MsgBoxStyle.Information, "Erfolg!")
- End Sub
- Private Sub cmd_delete_Click(sender As Object, e As EventArgs) Handles cmd_delete.Click
- RichTextBox1.Clear()
- MsgBox("Inhalt wurde erfolgreicht gelöscht! (Speichern nicht vergessen!)", MsgBoxStyle.Information, "Erfolg!")
- End Sub