Почему-то не работает функция Replace в RichTextBox.
Код выглядит примерно так:
dim x as integer
dim strwordReplace = "172350000000" as string

strword(1)="17235836000"
strword(2)="17235820000"
strword(3)="17235808000"

For x = 1 to 3
replace(RichTextBox.SelectedText,, RichTextBox.Find(strword(x)), strwordReplace)
next x
По тексту она находит эти значения, но не заменяет.
В чем дело ума не приложу? Куда копать?
E-mail: cosmo_vk@mail.ru

TIKO Serge Gavrilov TIKO
For i = 1 To 3
RichTextBox1.Text = Replace(RichTextBox1.Text, strword(i), strwordReplace)
Next i[/src]
только зачем три раза менять текст контрола? Заменить в текстовой переменной, а потом один раз заменить текст.
об этом пусть автор думает и аптимизирует решение, я основывался на тех переменных которые он использовал
Спасибо всем кто откликнулся!!! Попробую сегодня вечером все-таки доделать этот Replace. Я если честно новичок в этом деле.
А так вот фрагмент из программы:

Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
Dim X, y As Integer
Dim strword(5) As String
Dim strwordReplace As String
Dim replacementText As String
strword(1) = 17235836000
strword(2) = 17235820000
strword(3) = 17235812000
strword(4) = 17235808000
strword(5) = 17235573000
strwordReplace = 17235000000
For X = 1 To 5
replacementText = RichTextBox1.Find(strword(X))
Replace(strRichTextBox1.SelectedText, replacementText, strwordReplace)
next x
MessageBox.Show(textInmessageAfterReplace, zagolovokAfterReplace, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub