[Resolved] [2005] Adding color to text in a RichTextBox

[Rock_Vacirca]

Hi,

I am opening an exe that launches in a hidden cmd window, and redirecting the text to a RichTextBox on a form.

The problem is that the status messages in the cmd window are in color, but the redirected text in the RichTextBox has no color information and show as black on white.

However, all the status messages in the cmd window have headers that could be parsed in some way so I can add color to them for my RichTextbox.

For example, a message in the cmd window might read:

[Warning] No settings file was found, using default values instead.

This message is in Yellow in the cmd window.

The text gets into my RichTextBox like this:

Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Results = SR.ReadToEnd
SR.Close()
txtResults.AppendText(Results)

How could I intercept this text, check for the presence of [Warning], then color the entire line yellow?

TIA

Rock

[.paul.]

you'd have to add the text to the rtb line by line. to change the color of the line, select it then set the selectioncolor.

[Rock_Vacirca]

I was hoping for something along the lines of:

If Results contains "[Warning]" then from "[Warning]" to end-of-line Color Yellow

If Results contains "[Error]" then from "[Error]" to end-of-line Color Red

etc

It is these conditional statements that have always defeated me (it is not laziness, I have a specific condition that makes it particularly difficult for me to think in terms of 'Ifs'.

Any help would be greatly appreciated.

Rock

[sparrow1]

Hi,

You can try something like this:

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim cl As Long
        cl = RichTextBox1.SelectionStart
        Dim StartPos As Long
        Dim EndPos As Long
        StartPos = 1 : EndPos = 1
        RichTextBox1.SelectionStart = 1
        RichTextBox1.SelectionLength = Len(RichTextBox1.Text)
        RichTextBox1.SelectionColor = Color.Black
        Me.Text = RichTextBox1.TextLength
        'RichTextBox1.Text
 
 
        Do
 
            StartPos = InStr(EndPos, RichTextBox1.Text, "[Warning", CompareMethod.Binary)
            If StartPos = 0 Then Exit Do
            EndPos = InStr(StartPos, RichTextBox1.Text, ".", CompareMethod.Binary)
            If EndPos = 0 Then Exit Do
            EndPos = EndPos + 1
            RichTextBox1.SelectionStart = StartPos - 1
            RichTextBox1.SelectionLength = EndPos - StartPos
            RichTextBox1.SelectionColor = Color.Yellow
 
        Loop
 
        StartPos = 1 : EndPos = 1
        Do
 
            StartPos = InStr(EndPos, RichTextBox1.Text, Chr(34), CompareMethod.Binary)
            If StartPos = 0 Then Exit Do
            If StartPos = Len(RichTextBox1.Text) Then Exit Do
            EndPos = InStr(StartPos + 1, RichTextBox1.Text, Chr(34), CompareMethod.Binary)
            If EndPos = 0 Then Exit Do
            EndPos = EndPos + 1
            RichTextBox1.SelectionStart = StartPos - 1
            RichTextBox1.SelectionLength = EndPos - StartPos
            RichTextBox1.SelectionColor = Color.Yellow
 
        Loop
 
        Do
 
            StartPos = InStr(EndPos, RichTextBox1.Text, "[Error", CompareMethod.Binary)
            If StartPos = 0 Then Exit Do
            EndPos = InStr(StartPos, RichTextBox1.Text, ".", CompareMethod.Binary)
            If EndPos = 0 Then Exit Do
            EndPos = EndPos + 1
            RichTextBox1.SelectionStart = StartPos - 1
            RichTextBox1.SelectionLength = EndPos - StartPos
            RichTextBox1.SelectionColor = Color.Red
 
        Loop
 
        StartPos = 1 : EndPos = 1
        Do
 
            StartPos = InStr(EndPos, RichTextBox1.Text, Chr(34), CompareMethod.Binary)
            If StartPos = 0 Then Exit Do
            If StartPos = Len(RichTextBox1.Text) Then Exit Do
            EndPos = InStr(StartPos + 1, RichTextBox1.Text, Chr(34), CompareMethod.Binary)
            If EndPos = 0 Then Exit Do
            EndPos = EndPos + 1
            RichTextBox1.SelectionStart = StartPos - 1
            RichTextBox1.SelectionLength = EndPos - StartPos
            RichTextBox1.SelectionColor = Color.Red
 
        Loop
 
        RichTextBox1.SelectionLength = 0
        RichTextBox1.SelectionStart = cl
        RichTextBox1.SelectionColor = Color.Black
 
    End Sub

Wkr,

sparrow1

[obi1kenobi]

Mate that's VB6 code, use the Length property instead of Len and Substring instead of InStr. And I think you're missing brackets in lines 16 and 44.

[.paul.]

@sparrow1. thats a lot of code to change the selectioncolor.

try this:

Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Results = SR.ReadToEnd
SR.Close()
txtResults.Text = Results
Dim x As Integer = 0
For Each line As String In txtResults.lines
    If line.StartsWith("[Warning]") Then
        txtResults.SelectionStart = txtResults.GetFirstCharIndexFromLine(x)
        txtResults.SelectionLength = line.Length
        txtResults.SelectionColor = Color.Yellow
    End If
    x += 1
Next

[Rock_Vacirca]

Many thanks, that worked great.

Rock
PS You don't fancy having a go at my question in the CodeBank do you, concerning an emulater for a Command Prompt window?

[.paul.]

why are you asking questions in the codebank?
put it in the forum. you'll have more chance of getting it answered...