2014-03-27 32 views
0

我正在嘗試創建一個頁面,讓我從正在監視的聊天室中讀取日誌文件...我有最難的時間試圖讓它工作某些原因...我已經採取了一些代碼來獲得我正在工作的東西......但它仍然無法在大約200行之後顯示或停止閱讀每行,而是使其成爲一個大混亂文字...這裏是我的代碼嘗試在asp.net中讀取文件的錯誤

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 

下面是測試文件上...它只是沒有做任何事情,也沒有拋出任何的錯誤,我一直在測試的一切......我我完全沉迷於這一個。

Test File

請讓我知道你,你知道什麼,這將有助於

+2

你有什麼錯誤?這是**包括**的重要信息。 – mason

+0

您的變量'cont'可能是您的最後一行後面的'Nothing'..重做您的循環,以便它只在沒有任何東西時才使用該行。 –

+0

它沒有拋出任何錯誤 - 它顯示文件的一部分或根本沒有 - 95%的時間它什麼也沒有 – guycothal

回答

0
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(">", "&gt;") 
     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 

我想通了......用戶名是在和它認爲它是一個html標記...時間到:

&gt; &lt; 
相關問題