[電腦討論]

(VB2008)連續讀txt

小弟正在寫一個介面
想要按下Button後  
TextBox顯示TXT檔裡面的字串
TXT檔裡面是XXXXXXXXXXXXXXXXXX
                       OOOOOOOOOOOOOOOOO
                                                .
                                                .等等
想要每秒(更快更好)讀一行=>TextBox每秒顯示不一樣
EX:第一秒TextBox顯示XXXXXXXXXXXXXXXXXX
       第二秒TextBox顯示 OOOOOOOOOOOOOOOOO
以此類推
小弟用"命令列應用程式"可以執行成功
程式碼:
    Dim data As String
    Dim a(14) As String
Dim objReader As New System.IO.StreamReader("路徑:\test.txt")
        Do While objReader.Peek > -1
            data = objReader.ReadLine()
            Console.WriteLine(data)
            a = data.Split(",")
            Console.WriteLine(a(1))
         Loop
         objReader.Close()
-------------------------可以執行我想要的-----------------------------

但是我用"Windows 使用者介面的應用程式"卻跑不出來
程式碼:
    Dim data As String
    Dim a(14) As String
        Dim obj As New System.IO.StreamReader("路徑\test.txt")
        Do While obj.Peek >= 0
            data = obj.ReadLine()
            a = data.Split(",")
            TextBox1.Text = data
            'TextBox2.Text = a(1)
            'TextBox3.Text = a(2)
            'TextBox6.Text = a(3)
            'TextBox4.Text = a(4)
            'TextBox7.Text = a(5)
            'TextBox5.Text = a(9)
        Loop
        obj.Close()
結果TextBox都沒有顯示數據
我覺得程式跑不進去Do While迴圈
因為我在迴圈外面寫
data = obj.ReadLine()
TextBox1.Text = data
TextBox1有顯示data
而我將 Do While obj.Peek >= 0
             data = obj.ReadLine()
改成 Do While obj.Peek >= 0
         data = obj.ReadToEnd
TextBox則可以顯示數據 相對的 則無法一次讀一行 因為ReadToEnd
這樣不就代表ReadLine() 抓不到東西?  但是為什麼我用"命令列應用程式"則可以成功??
請各路高手為小弟解惑!!   感恩~~!!
並告訴小弟怎樣寫才能完成小弟想要的

風箏惡魔:幫您調整一下標題。2009.02.19

[ 本帖最後由 風箏惡魔 於 2009-2-19 13:29 編輯 ]
喜歡這篇文章嗎?
回覆 3
您需要登入後才可以回帖 登入 | 註冊會員

本版積分規則 回覆 15 個字以上可拿獎勵,
規則詳見此

精選熱門商品

提示訊息
go_top