'Eingestellter Pfad für Protokollpfad aus INI-Datei lesen
Dim PfadProtokoll1 As String
Dim PfadPr1 As Long
Dim Protokollpfad As String
PfadProtokoll1 = Space$(255)
 
PfadPr1 = GetPrivateProfileString("Protokollpfad", "1", "", PfadProtokoll1, _
  255, App.Path & "\Viewer3.ini")
Protokollpfad = Left$(PfadProtokoll1, PfadPr1)
 
 
 
  Dim F As Integer
  Dim sLine As String
  Dim sData() As String
  Dim oItem As sevDataGrid2.ListItem
 
  With frmHaupt.sevDataGridPrL(1) 'Grid1
    ' autom. Neuzeichnen ausschalten
    .LockUpdate True
 
    ' DateMode: RandomAccess
    .DataMode = Mode_List
 
    ' Spalten hinzufügen
    .ColumnAdd "nr", "Nr", 800
    .ColumnAdd "datum", "Datum", 1200
    .ColumnAdd "zeit", "Zeit", 1200
    .ColumnAdd "test", "Test", 3500
    .ColumnAdd "test1", "Test1", 3500
    .ColumnAdd "test2", "Test2", 3500
    .ColumnAdd "test3", "Test3", 3500
    .ColumnAdd "test4", "Test4", 3500
 
    ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
    .ReadColumnWidth "MyApplication", "Grid1", "ColWidths"
 
    ' Textdatei einlesen
    F = FreeFile
    Open Protokollpfad & "\Testdaten1.txt" For Input As #F
    nSize = LOF(F)
    While Not EOF(F)
      Line Input #F, sLine
 
      ' Zeile hinzufügen
      Set oItem = .AddItem(Replace(Replace(sLine, "=", vbTab), ";", vbTab))
 
      ' Zellen-Eigenschaften setzen
      With oItem
        .CellText("datum") = Format$(.CellText("datum"), "dd.mm.yyyy")
      End With
    Wend
    Close #F
 
    ' autom. Sortierung aktivieren
    .AutoSort = False
 
    'Sortieren nach Datum und Uhrzeit
    .DoSort "datum,zeit", SORT_ASC
 
    ' Mehrfachselektion zulassen
    '.AllowMultiSelect = True
 
    ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
    .AllowEdit = False
    .AllowDelete = False
 
    ' interaktives Ändern der Spaltenbreiten zulassen
    .AllowColumnSizing = True
 
    ' Drag & Drop von Spalten zulassen
    .AllowColumnReorder = False
 
    ' autom. Neuzeichnen einschalten
    .LockUpdate False
    .Refresh
 
    .DeleteRow 1
    ' 1. Zeile selektieren
    '.Row = 1
  End With

    .ColumnAdd "nr", "Nr", 800