change color

i need to search a richtextbox for any text between << text >>

then change its color to blue including the word befor the brackets

example:
text befor searching
In all our MBA and MSc programmes, you can <<choose from a range>> of elective modules to personalise the content of your degree. Alternatively, you can follow one of <<our Specialisation>> Tracks to acquire a more focused set of skills and knowledge. This means that you can choose modules that are relevant to your <<needs today as well>> as those that will formalise your

text after searching
In all our MBA and MSc programmes, you can <<choose from a range>> of elective modules to personalise the content of your degree. Alternatively, you can follow one of <<our Specialisation>> Tracks to acquire a more focused set of skills and knowledge. This means that you can choose modules that are relevant to your <<needs today as well>> as those that will formalise your

You may want to read about moeur's RTB in CodeBank - http://vbforums.com/showthread.php?t=355994

is there any simplist way to do it without using modules
because i'm new in VB and i need a simple code that i can understand

Try

VB Code:

Dim i As Long
    With RichTextBox1
        For i = 1 To Len(.Text)
            If Mid(.Text, i, 1) = "<<" Then
                .SelStart = i
                .SelLength = InStr(i, .Text, ">>") - i - 1
                .SelColor = vbBlue
                .SelBold = True
            End If
        Next
    End With

Hack :(
it didn't work
whats the problem?

VB Code:

[B]Dim y As Integer[/B]
    Dim i As Long
    With RichTextBox1
        For i = 1 To Len(.Text)
            If Mid(.Text, i, 2) = "<<" And i > 2 Then
              [B]y = InStrRev(.Text, " ", i - 2)[/B]
                .SelStart = [B]y[/B]   'i - 2 -
                .SelLength = InStr(i, .Text, ">>")  -[B] y[/B] + 2 
                .SelColor = vbBlue
                .SelBold = True
            End If
        Next
    End With

Is what it should be like.

Quote:

---

Originally Posted by om-yousif

is there any simplist way to do it without using modules
because i'm new in VB and i need a simple code that i can understand

---

Omg... :)

Module is the same as a Form - actually, better. If you declare a variable with a simple 'Dim' and you put it in a Module that variable is accessible from any module in your app (Form, Module, Class...). It's quite usefull to 'group' methods/functions also... And that's it - nothing more, nothing complicated and hard to understand.

Cheers :wave:

@Ember: don't want to be critical, but... your code works in general (if you have "...blah blah <<blah>>..."). But there's a problem if you have only "<<blah" withouth ">>". You'll need to search for ">>" also before aplying the colour ;)

Quote:

---

Originally Posted by gavio

@Ember:<<blah" withouth ">>". You'll need to search for ">>" also before aplying the colour ;)

---

I thought of it an d edited the code. Things like that can happen. Sorry!

Quote:

---

Originally Posted by Ember

... Things like that can happen...

---

But of course ;)