Если находим нужное слово выделяем его

[zaf]

Еще один вопросик..

Вот у нас есть файл vb.txt
В этом файле есть Много текста...

Как сделать чтобы он нашел там слова ZAF и выделял его красным цветом?

[Amed]

Загружаем файл в Rich Textbox Control.

Ищем строку в тексте (rtbText.Find "ZAF") до тех пор, пока не будет возвращать ноль.
Как только нашли очередное вхождение, выделяем (SelStart, SelLength) нужный кусок текста и красим его в красный цвет (.SelColor = vbRed).

Что непонятно?

[zaf]

Загружаем файл в Rich Textbox Control.

Ищем строку в тексте (rtbText.Find "ZAF") до тех пор, пока не будет возвращать ноль.
Как только нашли очередное вхождение, выделяем (SelStart, SelLength) нужный кусок текста и красим его в красный цвет (.SelColor = vbRed).

Что непонятно?

Ты меня за кого взял?:)
Спасибо что потратил времени написать эту месагу

Я пока не владею такими навыками чтобы то что ты обяснил мне обяснить монитору

[Amed]

"Спасибо" рано говоришь
Для начала подключи в Project|Components Rich TextBox Control и поиграйся с ним. В справку по этому контролу загляни обязательно. Как наиграешься, расскажи еще раз, что именно непонятно в том, что я написал.

З.Ы. угнетает отсутствие знаков препинания

[zaf]

"Спасибо" рано говоришь
Для начала подключи в Project|Components Rich TextBox Control и поиграйся с ним. В справку по этому контролу загляни обязательно. Как наиграешься, расскажи еще раз, что именно непонятно в том, что я написал.

З.Ы. угнетает отсутствие знаков препинания

Вообщем нашел этот рич!
Создал форму...

Private Sub Command1_Click()
RichTextBox1.Find "zaf"
End Sub

Private Sub Form_Load()
Open "c:\chat.txt" For Input As #2
RichTextBox1.Text = Input$(LOF(2), #2)
Close #2
End Sub

Не могу знать работает или нет:(
Как выделять то что он нашел? если нашел...

[Amed]

Код: Выделить всё

Private Sub Command1_Click()
Dim i As Long
With RichTextBox1
    i = .SelStart = .Find "zaf"
    If i > 0 Then
        .SelLength = Len("zaf")
        .SelColor = vbRed
        .SelLength = 0
    End If
End With
End Sub

[zaf]

Код: Выделить всё

Private Sub Command1_Click()
Dim i As Long
With RichTextBox1
    i = .SelStart = .Find "zaf"
    If i > 0 Then
        .SelLength = Len("zaf")
        .SelColor = vbRed
        .SelLength = 0
    End If
End With
End Sub

Эту строчку выделяет
i = .SelStart = .Find "zaf"
Пишет Syntax error


Попробовал так RichTextBox1.SelStart = RichTextBox1.Find "zaf"
Тоже самое пишет

[Amed]

Опечатка, конечно же. Должно быть так:

Код: Выделить всё

Private Sub Command1_Click()
Dim i As Long
With RichTextBox1
    i = .Find "zaf"
    If i > 0 Then
        .SelStart = i
        .SelLength = Len("zaf")
        .SelColor = vbRed
        .SelLength = 0
    End If
End With
End Sub

[zaf]

Опечатка, конечно же. Должно быть так:

Код: Выделить всё

Private Sub Command1_Click()
Dim i As Long
With RichTextBox1
    i = .Find "zaf"
    If i > 0 Then
        .SelStart = i
        .SelLength = Len("zaf")
        .SelColor = vbRed
        .SelLength = 0
    End If
End With
End Sub

У тебя работает?

Private Sub Command1_Click()
With RichTextBox1
i = .Find "zaf"
If i > 0 Then
.SelStart = i
.SelLength = Len("zaf")
.SelColor = vbRed
.SelLength = 0
End If
End With
End Sub

Private Sub Form_Load()
Open "c:\chat.txt" For Input As #2
RichTextBox1.Text = Input$(LOF(2), #2)
Close #2
End Sub

[vvs_adm]

Код: Выделить всё

i = .Find ( "zaf" )

[zaf]

Может где чего настроить надо?

[Amed]

Думай головой, а не копируй мой код. Одна маленькая оставленная мной мина о многом говорит.

[zaf]

Ура спасибо всем!

Private Sub Command1_Click()
Dim i As Long
With RichTextBox1
i = .Find ("zaf")
If i > 0 Then
.SelStart = i
.SelLength = Len("zaf")
.SelColor = vbRed
.SelLength = 0
End If
End With
End Sub

Но только одно слово выделяет:(
А их там много...
Как сделать чтобы все выделило?

[Amed]

http://bbs.vbstreets.ru/viewtopic.php?p=6596460#6596460

[zaf]

http://bbs.vbstreets.ru/viewtopic.php?p=6596460#6596460

15:21:54] :zaf > lena: Привет
[15:22:00] :lena > zaf: Привет! Как дела?18:30:13 - qweq> 213ыф: фыавфыв
18:30:15 - qweq> 213ыф: фыавфыв
[18:46:45] - :nasix> vxz324: da
[18:51:31] - :zaf> Rafael: Привет! Как дела?
[18:52:07] - :zaf> Rafael: Привет! Как дела?
[18:52:07] - :zaf> Rafael: Привет! Как дела?
[18:52:15] - :zaf> Rafael: Ты кто?

Вот что получается...
Как сделать чтобы все слова zaf выделились?

[Amed]

Я понял. Читай мой первый пост, я там написал, как надо сделать. Если не понял, перечитай раз двадцать. Внимательно.

[FaKk2]

Даа... мина коварнейшая

[Amed]

vvs_adm, не подсказывай. Так нечестно

Даа... мина коварнейшая

Не говори... Просто противотанковый фугас

[zaf]

Мерцало мерцало и зависло...

[FaKk2]

zaf
Ты не проси разжевать все, а подумай головой. Почему этот код не выделяет все вхождения слова? Это же элементарно, прочти топик заново.

[zaf]

А что делает
LOOP?

7ой раз запускаю VB
Пробую разные варианты зависает


Private Sub Command1_Click()
Dim i As Long
Do

With RichTextBox1
i = .Find("zaf", i)
If i > 0 Then
.SelStart = i
.SelLength = Len("zaf")
.SelColor = vbRed
.SelLength = 0
End If
End With
Loop
While i > 0

End Sub


Почему vvs_adm удаляет сообщения свои?
Уже который раз пишется что он ответил, захожу сюда нифига нет;)

[vvs_adm]

vvs_adm, не подсказывай. Так нечестно

А он успел

To zaf ну чуть осталось то... почитай сначала про циклы в VB

[Amed]

vvs_adm
Ничего, что успел, мы из него еще сочку-то нацедим . До последней капельки.

[vvs_adm]

Почему vvs_adm удаляет сообщения свои?
Уже который раз пишется что он ответил, захожу сюда нифига нет;)

Это не я, это Amed удаляет, что б я тебе не подсказывал

[zaf]

Так

Private Sub Command1_Click()
Dim i As Long
Do

With RichTextBox1
i = .Find("zaf", i)
If i > 0 Then
.SelStart = i
.SelLength = Len("zaf")
.SelColor = vbRed
.SelLength = 0
End If
End With
Loop
While i > 0

End Sub

Тут мы смотрим если i > 0 то выполняем снова!
, Но выполнив мы получаем тоже самое так моно раз повторяется и прога зависает

Надо подумать как сделать чтобы дальше искало
Я прав?

[zaf]

Урааааааааааааааааааааааааааааааааааааааааааааааааааа!


Private Sub Command1_Click()
Dim i As Long

For x = 0 To 100
With RichTextBox1
i = .Find("zaf", i)
If i > 0 Then
.SelStart = i
.SelLength = Len("zaf")
.SelColor = vbRed
.SelLength = 1
i = i + 1
End If
End With
Next x

End Sub

Private Sub Form_Load()
Open "c:\chat.txt" For Input As #2
RichTextBox1.Text = Input$(LOF(2), #2)
Close #2
End Sub

[Amed]

Она и начинает с последнего. И находит то же самое, что и в прошлый раз.
Hint. Надо начинать чуть дальше, чем с последнего.

[zaf]

Вот еще проще

For i = 0 To 100
With RichTextBox1
i = .Find("zaf", i)
If i > 0 Then
.SelStart = i
.SelLength = Len("zaf")
.SelColor = vbRed
.SelLength = 1

End If
End With
Next i

Только вот одно не радует 100 раз повторяет:(
Как сделать чтобы если слов не нашел тогда стоп!
А наверное пользоваться тем что vvs_adm давал? Только I+1 ставить?
_________
__________
_________

Ага наверное так?

With RichTextBox1
i = .Find("zaf", i)
If i > 0 Then
.SelStart = i
.SelLength = Len("zaf")
.SelColor = vbRed
.SelLength = 0
End If
End With
i = i + 1
Loop While i > 0

[Amed]

А в свой код попробуй i+1 подставить.

[vvs_adm]

Урааааааааааааааааааааааааааааааааааааааааааааааааааа!

Не Урааааааааааааааааааааааааааааааааааааааааааааааааааа!
а кошмааааааааааааааааааааааарррр!!!!!