如何实现文件流读取时RichTextBox自动滚动及流结束弹窗提示？

问题分析 #

你的现有代码每次都会重新读取整个文件并覆盖RichTextBox内容，既效率低下，也无法追踪新增内容；同时缺少流结束的判断逻辑。我们需要修改为增量读取新内容，并添加自动滚动和流结束检测逻辑。

修改后代码 #

' 声明类级变量
Private t As Thread
Private bStop As Boolean
Private lastFileSize As Long = 0 ' 记录上次读取的文件末尾位置
Private noNewDataThreshold As Integer = 3 ' 连续N次无新数据则判定流结束
Private noNewDataCount As Integer = 0

Private Sub btnRadOnly_Click(sender As Object, e As EventArgs) Handles btnRadOnly.Click
    RichTextBox1.Invoke(Sub()
                            RichTextBox1.Text = ""
                        End Sub)
    
    ' 初始化文件大小
    If File.Exists(filename) Then
        lastFileSize = New FileInfo(filename).Length
    End If
    noNewDataCount = 0
    bStop = False

    t = New Thread(Sub()
                       While Not bStop
                           Thread.Sleep(500)
                           If Not File.Exists(filename) Then
                               ' 文件被删除，直接判定流结束
                               bStop = True
                               RichTextBox1.Invoke(Sub()
                                                       MsgBox("流已结束")
                                                   End Sub)
                               Exit While
                           End If

                           Dim currentFileSize As Long = New FileInfo(filename).Length
                           Dim newContent As String = ""

                           ' 只有文件大小增加时才读取新内容
                           If currentFileSize > lastFileSize Then
                               RichTextBox1.Invoke(Sub()
                                                       Using fs = New FileStream(filename, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
                                                           Using sr = New StreamReader(fs, Encoding.Default)
                                                               fs.Seek(lastFileSize, SeekOrigin.Begin) ' 定位到上次读取的末尾
                                                               newContent = sr.ReadToEnd()
                                                           End Using
                                                       End Using

                                                       ' 追加新内容，而非覆盖原有文本
                                                       RichTextBox1.AppendText(newContent)
                                                       ' 自动滚动到文本末尾
                                                       RichTextBox1.SelectionStart = RichTextBox1.TextLength
                                                       RichTextBox1.ScrollToCaret()
                                                   End Sub)
                               lastFileSize = currentFileSize
                               noNewDataCount = 0 ' 重置无新数据计数
                           Else
                               noNewDataCount += 1
                               ' 连续无新数据达到阈值，判定流结束
                               If noNewDataCount >= noNewDataThreshold Then
                                   bStop = True
                                   RichTextBox1.Invoke(Sub()
                                                           MsgBox("流已结束")
                                                       End Sub)
                               End If
                           End If
                       End While
                   End Sub)
    t.Start()
End Sub

关键修改说明 #

• 增量读取优化：通过lastFileSize记录上次读取的位置，每次仅读取新增内容，用AppendText替代直接赋值Text，避免覆盖已有内容。
• 自动滚动实现：追加新内容后，将光标定位到文本末尾，调用ScrollToCaret()实现自动滚动到底部。
• 流结束检测：通过noNewDataCount统计连续无新数据的次数，达到设定阈值时判定流结束；同时处理文件被删除的异常情况，确保提示逻辑覆盖场景。

内容的提问来源于stack exchange，提问作者anthony gharib