✔ Zufallszeile aus Textdatei lesen

[Mailyn]

Hi,
Textdatei auslesen...das alte Thema
Also:
Wie kann ich aus einer Textdatei, die z.B. 5 Zeilen enthält, eine "zufällige" Zeile auslesen?
Hab da schon mit:
Open App.Path & "\Text.txt" For Input As 1
.........
rumprobiert. Aber da ist das Problem, dass man da nur eine Variable auslesen kann etc...aber ich will eben wirklich nur den Text, der in z.b. Zeile3 steht, auslesen.

Thx 4 reply!

MfG
Mailyn

 

[DevHB]

Hi,

zeilenweise Auslesen geht mit Line Input, Daten in ein Array, auf das Array mit Rnd zugreifen

Dim FNr    As Integer
Dim sPath  As String
Dim lCount As Long
Dim sRows() As String

sPath = App.Path & "\Text.txt"

FNr = FreeFile

lCount = 0
Redim sRows(lCount)
Open sPath For Input As #FNr
Do While (Not (EOF(FNr)))
      lCount = lCount + 1
      Redim Preserve sRows(lCount)
      Line Input #FNr, sRows(lCount)
Loop
Close #FNr

'Zufällige Zeile:
Dim s As String
s = sRows(Int(Rnd*lCount))
MsgBox s

Ungetestet, sollte aber ungefähr funktionieren

 

[Nirraven]

Dim Textzeile
Open "DATEI1" For Input As #1    ' Datei öffnen.
Do While Not EOF(1)    ' Schleife bis Dateiende.
    Line Input #1, Textzeile    ' Zeile in Variable einlesen.
    Debug.Print Textzeile    ' Ausgabe im Direktfenster.
Loop
Close #1    ' Datei schließen.

Dazu noch n kleiner Randomize, und dann sind das doch schonmal gute voraussetzungen.

Ah, is ja schon ausführlich beantwortet