参考
http://www.foxtable.com/webhelp/scr/2629.htm
Dim sr As new Io.StreamReader("d:\test.txt")Dim line As String = sr.ReadLine()Do While line IsNot Nothing line = sr.ReadLine() output.show(line)Loopsr.Close