[resolved]replacing words?

i have a string called strOne = "hello and goodbye andONe and Hey"

i would like to replace all the "and" words with "hi"

so the new string would be strOne = "hello hi goodbye andONe hi Hey"

i tried strOne = replace(strOne, "and", "hi") but it replaces all and anything that contains "and" which is not what i want. What i want is to replace the word "and". how would i do that?

Try strOne = Replace(strOne," and "," hi ")

oh yea, i never thought of that. thanks alot

Doing that way will not change strings that starts or ends with the word "and" since they only have a space before or after the word and not at both ends. So maybe you should add a space at the start and at the end of the string before you do the replacement. You should in that case also remove the spaces afterwards.

VB Code:

strOne = Replace(" " & strOne & " ", " and ", " hi ")
strOne = Mid$(strOne, 2, Len(strOne) - 2)

i have to switch from textbox to richtextbox because textbox cannot hold all the data that i want. I found this code somewhere on this forum:

RichTextBox1.Text = RichTextBox1.Text.Replace("hello", "by")

but it doesnt work

VB Code:

Do While RichTextBox1.Find("hello", , , rtfWholeWord) > -1
    RichTextBox.SelText = "bye"
Loop

nice thank you