changing vb to vb.net

[pantea]

Hi everyone,
I'm pretty new to VB.net. I have vb code which parse some info and i want to change it to vb.net can anyone help me with this part of my code?
Dim appbase As String = AppDomain.CurrentDomain.SetupInformation.ApplicationBase()
For i = 0 To UBound(file_names)
System.IO.File.OpenText (appbase & "\" & file_names(i)) For Input As #1

Do While Not EOF#1
Dim ALineIn = LineInput(1), temp
Dim Delimiter As String
file_data = ALineIn.Split(Delimiter, " ")
file_data(j) = Trim$(temp)
j = j + 1
Loop

Close()
Next i
i made some changes inorder to be in vb.net but still the "For Input As #1" and "#1" in while loop is not working. It simply reads files in a path and goes to next one. there are three files
appreciate any help
thanks

[Phil Weber]

I don't understand what you're trying to do in the Do While Not EOF#1 loop?

[pantea]

go to directory and open 3 files. here is first part of my code:
Dim file_names() As String = {"m1.txt", "m2.txt", "m3.txt"}
i want to parse those and,
For i = 0 To UBound(file_names)
System.IO.File.OpenText((appbase & "\" & file_names(i)) For Input As #1

Do While Not EOF(1)
Dim ALineIn = LineInput(1), temp
Dim Delimiter As String
file_data = ALineIn.Split(Delimiter, " ")
file_data(j) = Trim$(temp) j = j + 1
Loop

Close()
Next i
here i will go to directory and look for names and will parse the whole file
seprate it into lines
and split it by space

[Phil Weber]

Here's how I would write it:

Dim file_data() As String
Dim file_names() As String = {"m1.txt", "m2.txt", "m3.txt"}
Dim appbase As String = Application.StartupPath

For Each file_name As String In file_names
    Dim reader As StreamReader = File.OpenText(appbase & "\" & file_name)
    Do
        Dim ALineIn As String = reader.ReadLine()
        If ALineIn Is Nothing Then Exit Do
        file_data = Split(ALineIn)
    Loop
    reader.Close()
Next

[pantea]

Thank you alot that solve the problem