捕获EndOfStreamException异常

[panliwu]

我想捕获EndOfStreamException异常，为何下面这段代码是死循环，不能捕获EndOfStreamException异常？应该是读到文件尾就触发EndOfStreamException异常的？
Function GetStringsFromFile(ByVal FileName As String) As Collection
Dim Strings As New Collection
Dim Stream As System.IO.StreamReader = System.IO.File.OpenText(FileName) 'Open the file.

Try
While True ' Loop terminates with an EndOfStreamException
' error when end of stream is reached.
Strings.Add(Stream.ReadLine())
End While
Catch eos As System.IO.EndOfStreamException
' No action is necessary; end of stream has been reached.
Catch IOExcep As System.IO.IOException
' Some kind of error occurred. Report error and clear collection.
MsgBox(IOExcep.Message)
Strings = Nothing
Finally
Stream.Close() ' Close the file.
End Try

Return Strings
End Function

[jxzhang615]

帮顶！

[farrio]

Do While Stream.Peek() >= 0
Strings.Add(Stream.ReadLine())
Loop
为什么不这样用？捕获异常很费时间的，而且也不好啊。

[haoztao]

呵呵，自己好好看呗

[panliwu]

我想给学生介绍一下异常的捕获的，在这用while true来处理文件，希望读到文件尾时能捕获这个异常，跟踪一下代码，发现这段代码一直循环，读到文件尾时还在读？？？？？

[creazyfish]

帮顶