如何在VB.NET的TextBox每行前添加特殊字符

看起来你已经搞定了CMD命令执行和输出捕获的核心功能，现在就差给每行加前缀这一步啦！咱们可以通过修改输出数据的处理逻辑来实现这个需求，具体来说就是在捕获到CMD的每行输出时，先给它加上你想要的特殊字符，再更新到TextBox里。

完整的修改后代码示例 #

Imports System.IO
Imports System.Diagnostics

Public Class Form1
    ' 定义你想要添加的特殊前缀，比如这里用「> 」，可以自己修改成任意符号
    Private Const LinePrefix As String = "> "
    Private Delegate Sub delRefresh(ByVal outputText As String)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        OverrideCMD()
    End Sub

    Private Sub OverrideCMD()
        Dim prcDOS As New Process
        Dim siDOS As New ProcessStartInfo

        siDOS.FileName = "cmd"
        siDOS.UseShellExecute = False ' 必须设为False才能重定向输出
        siDOS.RedirectStandardOutput = True ' 开启标准输出重定向
        siDOS.CreateNoWindow = True ' 可选：不显示CMD窗口，让程序更简洁

        prcDOS.StartInfo = siDOS
        ' 绑定输出数据接收事件，用来逐行处理CMD的输出
        AddHandler prcDOS.OutputDataReceived, AddressOf OnOutputDataReceived
        prcDOS.Start()

        ' 开始异步读取输出，触发OutputDataReceived事件
        prcDOS.BeginOutputReadLine()
    End Sub

    ' 处理CMD输出的每一行内容
    Private Sub OnOutputDataReceived(sender As Object, e As DataReceivedEventArgs)
        ' 过滤空行，避免TextBox出现多余的空行
        If Not String.IsNullOrEmpty(e.Data) Then
            ' 给当前行添加自定义的特殊前缀
            Dim prefixedLine = LinePrefix & e.Data
            ' 跨线程安全更新TextBox（因为输出事件在非UI线程触发）
            If TextBox1.InvokeRequired Then
                TextBox1.Invoke(New delRefresh(AddressOf DisplayText), prefixedLine)
            Else
                DisplayText(prefixedLine)
            End If
        End If
    End Sub

    ' 更新TextBox文本的方法
    Private Sub DisplayText(ByVal text As String)
        ' 追加文本并换行，保持输出的连贯性
        TextBox1.AppendText(text & Environment.NewLine)
        ' 自动滚动到最新行，不用手动拖动滚动条
        TextBox1.ScrollToCaret()
    End Sub
End Class

关键修改点说明 #

• 开启输出重定向：必须把siDOS.UseShellExecute设为False，siDOS.RedirectStandardOutput设为True，这是捕获CMD输出的前提条件。
• 逐行添加前缀：通过OutputDataReceived事件捕获每行输出，在事件处理方法里给文本加上你定义的特殊前缀，再传递给UI更新方法。
• 跨线程安全操作：Process的输出事件是在非UI线程触发的，所以必须用Invoke来安全更新TextBox，避免线程异常。
• 优化体验细节：加上ScrollToCaret()让TextBox自动滚动到最新输出行，同时过滤空行避免无效内容。

额外扩展提示 #

如果需要捕获CMD的错误输出（比如命令执行失败的提示），可以同样开启siDOS.RedirectStandardError = True，然后绑定prcDOS.ErrorDataReceived事件，处理逻辑和输出事件完全一致，也给错误行加上前缀即可。

内容的提问来源于stack exchange，提问作者Rahmat Drift