how to read two text file line by line in vb.net simultaneously

Question

HELP!

i want to read two text file at the same time, i could read a text file line by line but when i added 1 text file to read at the same time it only read the first line and nothing more..

for example:

in name.txt it has

and in age.txt it has

i want to read them simultaneously so that i could save them into the database with their corresponding name and age..

here is my code:

Public Sub ReadName()
    On Error Resume Next
    Dim FileReader As System.IO.StreamReader
    FileReader = My.Computer.FileSystem.OpenTextFileReader(des & "\name.txt")
    Dim stringReader As String
    stringReader = FileReader.ReadLine
    txtName.Text = stringReader
    FileReader.Close()
End Sub

and same code for the age

Public Sub ReadAge()
    On Error Resume Next
    Dim FileReader As System.IO.StreamReader
    FileReader = My.Computer.FileSystem.OpenTextFileReader(des & "\age.txt")
    Dim stringReader As String
    stringReader = FileReader.ReadLine
    txtAge.Text = stringReader
    FileReader.Close()
End Sub

i've tried the code that γηράσκω δ' αεί πολλά διδασκόμε provided but the only value that would display in the textbox is the last one.. i just want to display it on the textbox everytime it reads each line.. i put it in the timer and when the form loads the timer will be enabled..

Dim FileReaderName, FileReaderAge As System.IO.StreamReader
    FileReaderName = My.Computer.FileSystem.OpenTextFileReader("C:\Users\toshiba\Desktop\from sky\name.txt")
    FileReaderAge = My.Computer.FileSystem.OpenTextFileReader("C:\Users\toshiba\Desktop\from sky\age.txt")

    Dim nameReader, ageReader As String

    Do While FileReaderName.Peek() >= 0 And FileReaderAge.Peek() >= 0
        nameReader = FileReaderName.ReadLine
        ageReader = FileReaderAge.ReadLine

        TextBox1.Text = nameReader
        TextBox2.Text = ageReader
    Loop

    FileReaderName.Close()
    FileReaderAge.Close()

Answer 1

If the text files are not excessively large you can simplify the task by just reading them all at once.

Use ReadAllLines to extract all lines into an array:

Dim Names() As String = IO.File.ReadAllLines(IO.Path.Combine(des, "name.txt"))
Dim Ages() As String = IO.File.ReadAllLines(IO.Path.Combine(des, "age.txt"))

Then just iterate:

For i = 0 To Math.Min(Names.Count, Ages.Count) - 1
   'Add Names(i) and Ages(i) to database
Next

Answer 2

Open both files and do in a loop:

Dim nameReader, ageReader As String

'loop through all lines
nameReader = FileReaderName.ReadLine
ageReader = FileReaderAge.ReadLine

EDIT

Dim FileReaderName, FileReaderAge As System.IO.StreamReader
FileReaderName = My.Computer.FileSystem.OpenTextFileReader(des & "\name.txt")
FileReaderAge = My.Computer.FileSystem.OpenTextFileReader(des & "\age.txt")

Dim nameReader, ageReader As String

Do While FileReaderName.Peek() >= 0 And FileReaderAge.Peek() >= 0
    nameReader = FileReaderName.ReadLine
    ageReader = FileReaderAge.ReadLine
    'Do what you want with nameReader, ageReader 

Loop

FileReaderName.Close()
FileReaderAge.Close()

EDIT2

Add a backgroundworker to your form. In your form load event:

BackgroundWorker1.WorkerReportsProgress = True
BackgroundWorker1.RunWorkerAsync()

Add these events:

Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    Dim FileReaderName, FileReaderAge As System.IO.StreamReader
    FileReaderName = My.Computer.FileSystem.OpenTextFileReader(des & "\name.txt")
    FileReaderAge = My.Computer.FileSystem.OpenTextFileReader(des & "\age.txt")

    Dim nameReader, ageReader As String

    Do While FileReaderName.Peek() >= 0 And FileReaderAge.Peek() >= 0
        System.Threading.Thread.Sleep(1000) 'Change the value if you want faster or slower 

        nameReader = FileReaderName.ReadLine
        ageReader = FileReaderAge.ReadLine

        BackgroundWorker1.ReportProgress(100, nameReader)
        BackgroundWorker1.ReportProgress(50, ageReader)
    Loop

    FileReaderName.Close()
    FileReaderAge.Close()
End Sub

Private Sub BackgroundWorker1_ProgressChanged(sender As System.Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
    If e.ProgressPercentage = 100 Then
        TextBox1.Text = e.UserState.ToString
    Else
        TextBox2.Text = e.UserState.ToString
    End If
End Sub