Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
 
        Dim dic As Dictionary(Of Byte, Long) = tu_es("c:\test.txt")
 
 
    End Sub
 
    Private Function tu_es(ByVal fn As String) As Dictionary(Of Byte, Long)
 
        Dim dic As New Dictionary(Of Byte, Long)
        Dim bytes() As Byte = My.Computer.FileSystem.ReadAllBytes(fn)
        For Each b As Byte In bytes
            If dic.ContainsKey(b) Then
                dic.Item(b) += 1
            Else
                dic.Add(b, 1)
            End If
        Next
 
        Return dic
    End Function

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]