Private Sub Command1_Click()
' Zufallszahl definieren
ZufallsZahl = GetRandomNum(1, Text1.Text)
ZufallsZahl2 = GetRandomNum(1, Text2.Text)
'Zeile aus Datei
txt1.Text = txt_ReadLine(App.Path & "\Ereignisse.txt", ZufallsZahl)
txt2.Text = txt_ReadLine(App.Path & "\Vereine.txt", ZufallsZahl2)
End Sub
 
' Lesen einer bestimmten Zeile einer Textdatei
' sFilename:  vollständiger Dateiname
' LineToRead: Zeile, deren Inhalt zurückgegeben werden soll
' =========================================================
 
 
Public Function txt_ReadLine(ByVal sFilename As String, _
  ByVal LineToRead As Long) As String
 
  Dim F As Integer
  Dim sLine As String
  Dim lRow As Long
 
  lRow = 0
  ' Existiert die Datei ?
  If Dir$(sFilename) <> "" Then
 
    ' Datei zum Lesen öffnen
    F = FreeFile
    Open sFilename For Input As #F
 
    ' Solange einlesen, bis entweder Dateiende
    ' oder gewünschte Zeilennummer erreicht
    While Not EOF(F) And lRow < LineToRead
      lRow = lRow + 1
      Line Input #F, sLine
    Wend
    Close #F
  End If
 
  ' Dateiende wurde frühzeitig erreicht,
  ' oder Datei war nicht vorhanden
  If lRow < LineToRead Then _
    sLine = ""
 
  txt_ReadLine = sLine
End Function
 
'Zufall aktivieren
Public Function GetRandomNum(Min As Long, Max As Long) As Long
    GetRandomNum = Int(Rnd * (Max - Min + 1) + Min)
End Function
 
 
Private Sub Ende_Click()
End
End Sub
 
Private Sub Form_Load()
Dim E As Integer
Dim nLines As Long
Dim sLine As String
 
E = FreeFile
Open App.Path & "\Ereignisse.txt" For Input As #E
While Not EOF(E)
  Line Input #E, sLine
  nLines = nLines + 1
Wend
Text1.Text = nLines
Close #E
 
'---------
Dim D As Integer
Dim cLines As Long
Dim tLine As String
 
D = FreeFile
Open App.Path & "\Vereine.txt" For Input As #D
While Not EOF(D)
  Line Input #D, tLine
  cLines = cLines + 1
Wend
Text2.Text = cLines
Close #E
 
 
 
End Sub