主题：txt导入报错

 试试一行一行的读取

Dim sr As new Io.StreamReader("d:\test.txt")
Dim line As String = sr.ReadLine()

output.show(line)
Do While line IsNot Nothing
    line = sr.ReadLine()
    output.show(line)
Loop
sr.Close