Конференция VBStreets

**Sashka23th** » 28.08.2005 (Вс) 13:23

на форме есть Label с свойством: Label.caption = "Маша пошла в магазин"
теперь создаю InputBox: wn=inputbox$
после введение слова в InputBox хочу чтоб слово сверилась с надписю в Label и если есть тоже слово там то выведет MsgBox сообщение

непремер напишу "маша" и он мне выдаст
MsgBox "Есть совподение"

вопрос что надо написать для этой проверки

Спасибо за помощь

**Maitris** » 28.08.2005 (Вс) 15:06

Код: Выделить всё: Private Sub Command1_Click() Dim temp1 As String temp1 = InputBox("Введите слово", "Запрос") If InStr(1, Label1.Caption, temp1, vbTextCompare) > 0 Then MsgBox "Найдено совпадение!", vbOKOnly End If End Sub

**tyomitch** » 28.08.2005 (Вс) 15:15

Maitris, перечитай вопрос. Твой код не в тему.

**Maitris** » 28.08.2005 (Вс) 15:32

tyomitch

Исправил уже

**Sashka23th** » 28.08.2005 (Вс) 23:10

Maitris большое спасибо
если не секрет не подскажиш где можно побольше узнать о функции InStr (как работает, почиму ты написал 1 в скобках и так далее..) :wink:

вобще если не сложно как перевисти ето придлодение

If InStr(1, Label1.Caption, temp1, vbTextCompare) > 0 Then

**Kovu** » 29.08.2005 (Пн) 11:29

Sashka23th писал(а):Maitris большое спасибо
если не секрет не подскажиш где можно побольше узнать о функции InStr (как работает, почиму ты написал 1 в скобках и так далее..)
вобще если не сложно как перевисти ето придлодение
If InStr(1, Label1.Caption, temp1, vbTextCompare) > 0 Then

Если искомая строка найдена, то InStr возвратит ненулевое значение.
Так как мы ищем возвращаемое значение то аргументы функции в скобках

**Sashka23th** » 29.08.2005 (Пн) 12:32

Kovu большое спасибо теперь понятно :lol:

а если я хочу стереть допустим:
temp1 = InputBox("Введите предложение", "Запрос")
если предложение temp1 содержит слово "Маша" то в переменой temp1 стереть слово "Маша" как-буто его в предложении и небыло.
например
если temp1 = "Маша была дома" значит temp1 = "была дома" (без маша)
не подскажите как ето зделать :oops: