本来想读个文件，但却整死也读不出来！

[lxstruggle]

代码如下：

Dim fr As New StreamReader(filestr, System.Text.Encoding.Default)

Dim str As String
Dim strwrite As String

Do
str = fr.ReadLine
str = str.Substring(0, str.IndexOf("'"))
strwrite = strwrite + str

Loop Until str Is Nothing

如果后缀为“.txt”就可以读出来，但我现在读的是".vb"文件，用记事本都可以打开啊，杂个readline就为空呢

[rock29]

Imports System
Imports System.IO

Class Test
Public Shared Sub Main()
Try
' Create an instance of StreamReader to read from a file.
Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()
Console.WriteLine(Line)
Loop Until line Is Nothing
sr.Close()
Catch E As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(E.Message)
End Try
End Sub
End Class

[xxuu503]

str = fr.ReadLine//Readtoend看看，看看能不能读出来