尝试在asp.net中读取文件时出错

我正试图制作一个页面，让我从我监控的聊天室中读取日志文件……出于某种原因，我在努力让它正常工作时遇到了最困难的时刻……我已经使用了一些代码来获取我所拥有的工作内容……但它要么根本不显示，要么在大约200行之后，它停止阅读每一行，而是把它变成一个大混乱的文本…下面是我的代码

Protected Sub bView_Click(sender As Object, e As EventArgs) Handles bView.Click
    Response.Write(Server.MapPath("~/mirc/logs/" & lbfiles.SelectedItem.Text))
    lFileOut.Text = ""
    Try
        Dim FILENAME As String = Server.MapPath("~/mirc/logs/" & lbfiles.SelectedItem.Text)
        Dim objStreamReader As StreamReader = New StreamReader(FILENAME, Encoding.UTF8)
        Dim cont As String
        Do
            cont = objStreamReader.ReadLine()
            lFileOut.Text = lFileOut.Text & cont & "<br>"
        Loop Until cont Is Nothing
    Catch ex As Exception
        Response.Write(ex.Message)
    End Try
End Sub

Protected Sub bView\u Click（发送方作为对象，e作为事件参数）处理bView。单击
Response.Write（Server.MapPath（“~/mirc/logs/”&lbfiles.SelectedItem.Text））
lFileOut.Text=“”
尝试
Dim文件名为String=Server.MapPath（“~/mirc/logs/”&lbfiles.SelectedItem.Text）
Dim objStreamReader As StreamReader=新StreamReader（文件名，Encoding.UTF8）
Dim cont As字符串
做
cont=objStreamReader.ReadLine（）
lFileOut.Text=lFileOut.Text&cont&“
”
循环直到cont为空
特例
响应。写入（例如消息）
结束尝试
端接头

这是一个我一直在测试的测试文件…它没有做任何事情，也没有抛出任何错误…我完全被这个问题难住了

---

请告诉我您是否知道任何有帮助的信息

您遇到了哪些错误？这是一种需要包含的重要信息。您的变量

cont

可能在最后一行之后

Nothing

。。重做你的循环，使它只在没有任何错误的情况下才使用该行。它不会抛出任何错误-它要么显示文件的一部分，要么什么都没有-95%的时候它什么都没有我发现了…用户名在里面，它认为它是一个html标记…是时候

Protected Sub bView_Click(sender As Object, e As EventArgs) Handles bView.Click
    Response.Write(Server.MapPath("~/mirc/logs/" & lbfiles.SelectedItem.Text))
    lFileOut.Text = ""
    Try
        Dim FILENAME As String = Server.MapPath("~/mirc/logs/" & lbfiles.SelectedItem.Text)
        Dim objStreamReader As StreamReader = New StreamReader(FILENAME, Encoding.UTF8)
        Dim cont As String
        cont = objStreamReader.ReadToEnd()
        cont = cont.Replace(">", ">")
        cont = cont.Replace("<", "&lt;")
        cont = cont.Replace(vbCrLf, "<br>")
        cont = cont.Replace(vbLf, "<br>")
        cont = cont.Replace(vbCr, "<br>")

        lFileOut.Text = lFileOut.Text & cont & "<br>"

    Catch ex As Exception
        Response.Write(ex.Message)
    End Try
End Sub

> <