Blitz Basic: Zeilensprung in einer TXT datei

[D31~$0u1]

Hallo.

Ich bin gerade versuchsweise ein Quiz Spiel in Blitz Basic am programmieren.
Jetzt habe ich die verschiedenen Fragen in einer Textdatei gespeichert.
in dem Schema:
1. Frage
Leerzeile
2. Frage
usw...

Jetzt möchte ich per Zufall eine Zeile auswählen...
Wie kann ich das programm anweisen in der txt Datei zwei oder mehr Zeilen vorzuspringen, um den string dann auszulesen?

Wäre schön, wenn jemand ne Lösung wüsste.

Danke schonmal im voraus,
Gruß,
D31~$0u1

 

[_seeker_]

Hallo, mein erster beitrag :-D

ich hab auf grund von Christian Günther Vokabeltrainer, folgende funktion rausgefiltert.

Type objekt
	Field frage$,dran
End Type

;größe des Dateis ermitteln
datei = ReadFile("fragen.txt")
If datei = 0 Then RuntimeError "Fehler datei nicht gefunden"
anzahl = 0
While Not Eof(datei)
	ReadLine (datei)
	ReadLine (datei)
	anzahl = anzahl + 1
Wend
CloseFile(datei)

Dim objekt.objekt(anzahl)
datei = ReadFile("fragen.txt")
While Not Eof(datei)
	dr = dr + 1
	objekt(dr) = New objekt
	objekt(dr)\frage$ = ReadLine(datei)
	ReadLine(datei)
Wend


;;;;;;;;;;;;;;;;;;;;
SeedRnd(MilliSecs())
Dim dran(anzahl)
on = 0
on=Rand(1,anzahl)
;Print on
Print objekt(on)\frage$