Private Sub DatenLaden(ByVal FileName As String)
 
dt1.Clear
 
        Dim sr As New System.IO.StreamReader(FileName)
        Dim Zeile As String = Nothing
        Dim i As Integer = 0
 
        Dim arr() As String = Nothing
 
        Do While Not sr.EndOfStream
            Zeile = sr.ReadLine()
 
            arr = Zeile.Split(",")
            If Not arr(0).Contains("Seriennummer") Then
 
                Dim newRow As DataRow = dt1.NewRow
                i = i + 1
 
                newRow("ID") = i
                newRow("Seriennummer") = arr(0)
                newRow("Bauteil") = arr(1)
                newRow("Baudatum") = arr(2)
                newRow("Status") = ""
 
                dt1.Rows.Add(newRow)
 
            End If
        Loop
 
        sr.Close()
 
        Application.DoEvents()
 
    End Sub
 
    Private Sub txtSeriennummer_TextChanged(sender As Object, e As EventArgs) _
      Handles txtSeriennummer.TextChanged
 
        If (Not txtSeriennummer.Text = "" Or Not txtSeriennummer.Text = _
          Nothing) And txtSeriennummer.Text.Length = 7 Then
            dv1.RowFilter = "Seriennummer LIKE '%" & txtSeriennummer.Text & "%'"
            For Each drv As DataRowView In dv1
                drv.Item(4) = "X"
            Next
            dt1.AcceptChanges()
        Else
            dv1.RowFilter = Nothing
        End If
 
    End Sub
 
    Private Sub cmbAuswahl_SelectedIndexChanged(sender As Object, e As _
      EventArgs) Handles cmbAuswahl.SelectedIndexChanged
        txtSeriennummer.Text = ""
 
        If cmbAuswahl.Text = "Alle" Then
            dv1.RowFilter = Nothing
            ToolStripStatusLabel1.Text = "Alle Datensätze: " & dv1.Count
        ElseIf cmbAuswahl.Text = "Gefundene" Then
            dv1.RowFilter = "Status = 'X'"
            ToolStripStatusLabel1.Text = "Gefundene: " & dv1.Count
        ElseIf cmbAuswahl.Text = "Nicht gefundene" Then
            dv1.RowFilter = "Status=''"
            ToolStripStatusLabel1.Text = "Nicht gefundene: " & dv1.Count
        End If
    End Sub
 
    Private Sub ExportToXML()
 
        Dim FileName As String = "erbru_" & Format(Now, "yyyyMMdd_hhmmss") & _
          ".xml"
 
        If Not System.IO.Directory.Exists(SavePath) Then
            System.IO.Directory.CreateDirectory(SavePath)
        End If
 
        With SaveFileDialog1
            .DefaultExt = "xml"
            .Filter = "XML Dateien|*.xml"
            .FileName = FileName
            .InitialDirectory = SavePath
        End With
 
        Dim res As DialogResult
 
        res = SaveFileDialog1.ShowDialog
 
        If res = DialogResult.Abort Or res = DialogResult.Cancel Then
            Exit Sub
        Else
            FileName = SaveFileDialog1.FileName
        End If
 
        dt1.WriteXml(FileName)
 
        ToolStripStatusLabel1.Text = "Die XML-Datei " & FileName & " wurde" & _
          "erstellt!"
 
    End Sub
 
    Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles _
      btnSpeichern.Click
        ExportToXML()
    End Sub
 
    Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles _
      btnLaden.Click
        LoadXML()
    End Sub
 
    Private Sub LoadXML()
 
        Dim FileName As String = ""
 
        With OpenFileDialog1
            .DefaultExt = "xml"
            .Filter = "XML Dateien|*.xml"
            .FileName = ""
            '.Multiselect = True
            .InitialDirectory = SavePath
        End With
 
        Dim res As DialogResult
 
        res = OpenFileDialog1.ShowDialog
 
        If res = DialogResult.Abort Or res = DialogResult.Cancel Then
            Exit Sub
        Else
            Me.Cursor = Cursors.WaitCursor
            ToolStripStatusLabel1.Text = "Lade Daten aus " & _
              OpenFileDialog1.FileName
            Application.DoEvents()
            dt1.Clear()
            dt1.ReadXml(OpenFileDialog1.FileName)
        End If
 
        Me.Cursor = Cursors.Default
        ToolStripStatusLabel1.Text = "Datensätze: " & dt1.Rows.Count
 
    End Sub
 
    Private Sub btnTextdateiLaden_Click(sender As Object, e As EventArgs) _
      Handles btnTextdateiLaden.Click
        Dim FileName As String = ""
 
        With OpenFileDialog1
            .DefaultExt = "txt"
            .Filter = "TXT Dateien|*.txt"
            .FileName = ""
            .InitialDirectory = SavePath
        End With
 
        Dim res As DialogResult
 
        res = OpenFileDialog1.ShowDialog
 
        If res = DialogResult.Abort Or res = DialogResult.Cancel Then
            Exit Sub
        Else
            Me.Cursor = Cursors.WaitCursor
            ToolStripStatusLabel1.Text = "Lade Daten aus " & _
              OpenFileDialog1.FileName
            Application.DoEvents()
            DatenLaden(OpenFileDialog1.FileName)
        End If
    End Sub
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 09.06.17 um 10:21:43 editiert.