Программирование
Веб программирование

Строковые функции visual basic

 
 

Ну здесь я дам тебе функции, верней функцию, тоже для работы с текстом, и тоже она нам пригодится для создания "Поиска". Эта функция нужна для сравнивания 2-х слов. Как всегда, сделаем программу. Она будет сверять 2 текстовых поля, и в случае совпадения, выдавать соответствующее сообщение. Код:

Private Sub Command2_Click() 'При нажатии на кнопку:
If InStr(1, Text1.Text, Text2.Text) <> 0 Then 'Сверяется 2 текстовых поля
MsgBox "Совпадение" 'При совпадении юзер узнает об этом
Else
MsgBox "Не Совпадение" 'При не совпадении юзер все равно узнает об этом
End If
End Sub

Теперь поясню как все это работает, в начале синтаксис:

InStr(Начальная позиция, Текст для поиска, Искомое слово)

Вобще, это функция нужна для поиска позиции искомого слова в тексте. Если в тексте нету искомого слова, то функция возращает 0, поэтому мы и пишем:

If InStr(1, Text1.Text, Text2.Text) <> 0 Then 

По - русски, это будет звучать так: "Если функция InSTR не равно 0(т.е. слово найденно)", то...


Есть вопросы? Спроси на нашем форуме!!
Samou4120 [08.03.2013 22:28]

Если у кого-то не работает
то киньте вторую кнопку

Или замените первую строку:
Private Sub Command2Click()
на:
Private Sub Command1
Click()



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.