[HELP][VB.NET] Odczytywanie KONKRETNYCH lini z pliku tekstowego

[mamama00]

Witam. Jak sama nazwa tematu wskazuje, szukam sposobu na odczytywanie WYBRANYCH linijek z pliku, ewentualnie [a nawet lepiej] - żeby losowało, którą linijkę ma odczytać (a no i chyba musi też i zliczać, żeby nie losować pustych, tak?)

 

Dzięki .

[PsychoBoy11]

If File.Exists("sayings.txt") Then
'StreamReader to read our file
Dim ioFile As New StreamReader("sayings.txt")
'Generic list for holding the lines
Dim lines As New List(Of String)
'Random class to generate our random number
Dim rnd As New Random()
'Variable to hold our random line number
Dim line As Integer
'Now we loop through each line of our text file
'adding each line to our list
While ioFile.Peek <> -1
	lines.Add(ioFile.ReadLine())
End While

'Now we need a random number
line = rnd.Next(lines.Count + 1)
'Now write out the random line to the TextBox
RichTextBox1.AppendText(lines(line).Trim())
'Close our StreamReader
ioFile.Close()
'Dispose of the instance
ioFile.Dispose()
Else
Dim ioFile As New StreamWriter("sayings.txt")

ioFile.WriteLine("Chinese words here")
ioFile.Close()
End If

[mamama00]

dzięki za kod - właśnie takiego "czegoś" szukałem.

 

ale mam jeszcze jedno pytanie - dlaczego niekiedy pojawia się taki komunikat:

 

Indeks jest spoza zakresu. Musi mieć wartość nieujemną i mniejszą niż rozmiar kolekcji.
Nazwa parametru: index

 

komunikat dotyczy tej linii:

		TextBox1.AppendText(lines(line).Trim())

 

co prawda pojawia się to sporadycznie, no ale jednak jest.

 

@@@EDIT

 

dobra, obczaiłem to już

poprawiłem tę linię :

line = rnd.Next(lines.Count + 1)

 

usunąłem z niej +1 - bo wtedy losowało mi np. ostatnią linie ale dodawało +1, tzn. linie ZA moją ostatnią, tj. PUSTĄ.

 

noo tak to mniej więcej działało

 

dzięki raz jeszcze.