Hallo leute,
ich möchte meine Textdatei nach einen bestimmten Datum und Value suchen und in der anschließenden in eine bestimmte Stelle eines anderen Datei reinschreiben. Irgendwie klappt das ganze nicht. Es sortiert es einfach nicht nach Value (String) mit Datum.
Zu verarbeitende Textdatei ist wie folgt aufgebaut:
in der neuen Textdatei soll es wie folgt aufgebaut werden:
Mein Ansatz ist wie folgt aufgebaut:
Public Sub DataAnalysis()
Try
Dim path As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory), "Form.txt")
Dim Data As New FileStream(Explorer1.pathBase, FileMode.Open)
Dim ReaderData As New StreamReader(Data)
Dim lineData As String
Dim lineForm As String
Dim dataLine() As String
Dim formLine() As String
Do Until ReaderData.Peek() = -1
lineData = ReaderData.ReadLine
dataLine = lineData.Split(",")
Dim FormData As New FileStream(path, FileMode.Open)
Dim ReaderFormData As New StreamReader(FormData)
Dim context As String
Do Until ReaderFormData.Peek() = -1
lineForm = ReaderFormData.ReadLine
If lineForm = "" Then
context = dataLine(0) & ";" & dataLine(UBound(dataLine)) & ";" & dataLine(1) & ";" & vbNewLine
End If
formLine = lineForm.Split(";")
If dataLine(0) = formLine(0) Then
If dataLine(UBound(dataLine)).Contains(formLine(UBound(formLine))) Then
context = dataLine(0) & ";" & dataLine(UBound(dataLine)) & ";" & dataLine(1) & ";" & vbNewLine
ReaderFormData.
End If
End If
Loop
ReaderFormData.Close()
System.IO.File.AppendAllText(path, context)
Loop
ReaderData.Close()
Catch Exc As System.ArgumentNullException
MsgBox("Zunächst Datei selektieren")
End Try
End Sub
ich möchte meine Textdatei nach einen bestimmten Datum und Value suchen und in der anschließenden in eine bestimmte Stelle eines anderen Datei reinschreiben. Irgendwie klappt das ganze nicht. Es sortiert es einfach nicht nach Value (String) mit Datum.
Zu verarbeitende Textdatei ist wie folgt aufgebaut:
20.12.2013 14:53:10, Value(1),
20.12.2013 14:54:10, Value(2),
20.12.2013 14:56:10, Value(1),
in der neuen Textdatei soll es wie folgt aufgebaut werden:
20.12.2013 14:53:10, Value(1),
20.12.2013 14:56:10, Value(1),
20.12.2013 14:54:10, Value(2),
Mein Ansatz ist wie folgt aufgebaut:
Public Sub DataAnalysis()
Try
Dim path As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory), "Form.txt")
Dim Data As New FileStream(Explorer1.pathBase, FileMode.Open)
Dim ReaderData As New StreamReader(Data)
Dim lineData As String
Dim lineForm As String
Dim dataLine() As String
Dim formLine() As String
Do Until ReaderData.Peek() = -1
lineData = ReaderData.ReadLine
dataLine = lineData.Split(",")
Dim FormData As New FileStream(path, FileMode.Open)
Dim ReaderFormData As New StreamReader(FormData)
Dim context As String
Do Until ReaderFormData.Peek() = -1
lineForm = ReaderFormData.ReadLine
If lineForm = "" Then
context = dataLine(0) & ";" & dataLine(UBound(dataLine)) & ";" & dataLine(1) & ";" & vbNewLine
End If
formLine = lineForm.Split(";")
If dataLine(0) = formLine(0) Then
If dataLine(UBound(dataLine)).Contains(formLine(UBound(formLine))) Then
context = dataLine(0) & ";" & dataLine(UBound(dataLine)) & ";" & dataLine(1) & ";" & vbNewLine
ReaderFormData.
End If
End If
Loop
ReaderFormData.Close()
System.IO.File.AppendAllText(path, context)
Loop
ReaderData.Close()
Catch Exc As System.ArgumentNullException
MsgBox("Zunächst Datei selektieren")
End Try
End Sub