VB read and take text???

There are different ways to do it. You can read the entire file content and read the file content line by line. The codes below show how to do it line by line.

Imports System
Imports System.IO
Imports System.Text

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader = New StreamReader("c:\temp\names.txt")
Dim sw As StreamWriter = New StreamWriter("c:\temp\names2.txt")
Dim high As Double = 0
Dim highscorer As String = ""
Dim low As Double = 999999
Dim lowscorer As String = ""
Dim grandtotal As Double = 0
Dim rowcount As Long = 0

Do Until sr.EndOfStream
' read one line at a time
Dim linedata As String = sr.ReadLine()
rowcount += 1 ' this is the row counter
Dim s() As String = {","} ' comma as separator
' split each line into an array separater by comma
Dim data() As String = linedata.Split(s, StringSplitOptions.RemoveEmptyEntries)
Dim total As Double = Convert.ToDouble(data(2)) + Convert.ToDouble(data(3)) + Convert.ToDouble(data(4))
If total > high Then ' find the high scorer
high = total
highscorer = data(0)
End If
If total < low Then ' find the low scorer
low = total
lowscorer = data(0)
End If
grandtotal += total ' sum all total score
Dim output() As String = {"""", data(1), """", Chr(9), """", data(0), """", Chr(9), """", data(2), """", Chr(9), """", data(3), """", Chr(9), """", data(4), """"}
sw.WriteLine(String.Concat(output))
Loop
Dim average = Decimal.Round(Convert.ToDecimal(grandtotal / rowcount), 1)
sw.WriteLine(average.ToString())
sw.WriteLine(highscorer)
sw.WriteLine(lowscorer)
sw.Flush()
sw.Close()
sr.Close()
End Sub
End Class

2010-03-23 00:15:29 補充：
Change
Dim data() As String = linedata.Split(s, StringSplitOptions.RemoveEmptyEntries)
to
Dim data() As String = linedata.Split(s, StringSplitOptions.None)