Read A Random Line (EASY WAY) - VB#14 ~ VBTheory™ Tutorials

Monday, May 14, 2012

Read A Random Line (EASY WAY) - VB#14


Code:
 
Dim sr As New System.IO.StreamReader(FILEPATH)
Dim sr2 As New System.IO.StreamReader(FILEPATH)
Dim i As Integer = 0
Dim curline As Integer = 0
Dim ran As Integer = 0
Do Until sr.EndOfStream = True
  sr.ReadLine()
  i += 1
Loop
sr.Dispose()
sr.Close()
Randomize()
ran = Rnd() * i
Do Until ran = curline
  TextBox1.Text = sr2.ReadLine()
  curline += 1
Loop



Share