Dim F As Integer
Dim sLine As String
Dim sDatum As String
Dim nCount As Long
 
' Listbox löschen
List1.Clear
 
F = FreeFile
Open "Logfile.log" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  If Left$(sLine, 10) <> sDatum Then
    If nCount > 0 Then
      List1.AddItem sDatum & " (" & CStr(nCount) & ")"
    End If
    sDatum = Left$(sLine, 10): nCount = 0
  End If
  nCount = nCount + 1
Wend
Close #F
 
If nCount > 0 Then List1.AddItem sDatum & " (" & CStr(nCount) & ")"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de