Public Sub NumberFrequency _
    (ByVal Filename, ByVal start As Integer, ByVal ende As Integer)
 
   Dim ik As Integer, ak As Integer  'Kanäle
   Dim line As String, fields() As String 'Dateizeile
   Dim dateval As Integer  'Datum in Zeile
 
   Dim i As Integer, k As Integer 'Loopings
   Dim z As Integer ' Ziehungszähler
 
   'Zeit-Intervall: Grenzen sicher stellen
   If ende < start Then
       i = start
       start = ende
       ende = i
   End If
 
   'Zählerregister
Dim frequency(49) as Integer
 
   ik = FreeFile
 
   Open Filename For Input As #ik
 
   While Not EOF(ik)
      Line Input #ik, line
      '(numerische) Felder in einer Zeile
      fields = Split(line, " ")
      'Check
      If Not UBound(fields) = 7 Then Stop
      'Datumsfeld wandeln
      dateval = CInt(fields(0))
      'Zeitfilter setzen
      If dateval >= start And dateval <= ende Then
         'Häufigkeitszähler füllen
         For i = 1 To 7
            frequency(CInt(fields(i))) = frequency(CInt(fields(i))) + 1
         Next i
 
         z = z + 1
      End If
 
   Wend
 
   Close #ik
 
   ak = FreeFile
   Open "C:\daten\numberfrequencies.txt" For Output As #ik
 
   Print #ak, Filename
   Print #ak, "Start: "; start
   Print #ak, "Ende: "; ende
   Print #ak, "Ziehungen: "; z
 
   For i = 1 To 49
      Print #ak, i, frequency(i)
   Next i
 
   Close #ak
 
End Sub
 
 
Aufruf der Routine:
 
   Call NumberFrequency("C:\daten\sa-ziehungen.txt", 3050, 2999)