file=OpenFile("data.txt")
Print FindFunction(file,"Kollision")
Delay 50
Print FindEndFunction(file,"Kollision")
Delay 500
readfunction(file,"Kollision")



Function FindFunction(datei,group$)
   SeekFile datei,0
   row=0
   While Not Eof(datei)
               s=Len(ReadLine(datei))
                row=row+s
      If Lower$(ReadLine$(datei))="["+Lower$(group$)+"]"
      Exit
      EndIf
   Wend
Return row
End Function



Function FindEndFunction(datei,group$)
   SeekFile datei,findfunction(datei,group$)
   w=0
   While Not Eof(datei)
      w=w+1
      If Lower$(ReadLine$(datei))="[/"+Lower$(group$)+"]"
         Return w
      EndIf
   Wend
End Function





Function ReadFunction(datei,group$)
   Print FilePos(datei)
   SeekFile datei,FindEndFunction(datei,group$)
   Print FilePos(datei)
   Print ReadLine(datei)




End Function