reading from a text file

[Synth3t1c]

I need to read a text file on a timer. on load i wantt o open the file and then the timer tick i want it to get a line. every tick i want it to go to another line. i have no idea how to do this nor do i have space on my computer for the mdsn library. tks

[<ABX]

Heres a small sample:

Add a Text File to your project called "File.txt"

Put the following in the text file:

Line 1
Line 2
Line 3
Line 4
Line 5
Line 6

---

Add the following to a form

Button (Name "btnStart", Text "Start")
Button (Name "btnStop", Text "Stop")
Label (Name "lblLine", Text "")
Timer (Name "MyTimer", Interval "500")

---

Add this code to the form

Private strLines() As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Lets Load the lines from the file and store them in a globally
        Dim sr As New IO.StreamReader("..\File.txt")
 
        strLines = Split(sr.ReadToEnd, vbCrLf)
 
        sr.Close()
 
        sr = Nothing
 
        'Done Reading File ;)
 
    End Sub
 
    Private Sub MyTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyTimer.Tick
        Static intCurrentIndex As Integer 
 
        lblLine.Text = strLines(intCurrentIndex)
 
        If intCurrentIndex = strLines.Length - 1 Then
            'Reset
            intCurrentIndex = 0
        Else
            intCurrentIndex += 1
        End If
    End Sub
 
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        MyTimer.Start()
    End Sub
 
    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        MyTimer.Stop()
    End Sub