Не знаю как это сделать...

[NiGHt-LEshiY]

Нужно реализовать одну вещь. В общем недавно начал изучать Visual Basic и работал с текстом, но столкнулся с одной проблемой.
Мне нужно сделать в приложении поиск, и в случае одного или другого выбора, выводятся разные сообщения. Я не знаю как это сделать, я могу только использовать ТОЧНЫЙ поиск. Пример: Я ищу: 10. А если в базе есть варианты 10 1, и 10 2 - они не рассматриваются потму что НЕ РАВНЫ с 10. Мне нужен поиск по ключевым словам в приложении. Пример - я ищу: 10, приложение выдаёт: 10 1, 10 2, 10 а...Подскажите!

[Lumen]

А регулярные выражения (RegExp) разве отменили?
Тебе по всей видимости надо ? и *

[Хакер]

О поиске чего среди чего идёт речь?

[burik]

Есть оператор Like. С его помощью это как раз и можно сделать.

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


If "a10b" Like "*10*" Then ...
If "5106" Like "*10*" Then ...


Подробнее смотри тут

[Cytron]

Ему не Like а InStr нужен

[NiGHt-LEshiY]

я с бейсиком почти не знаком. подскажите как именно это реализовать.
мне нУжно что то наподобии чат-бота. я ищу фразу, а прога отвечает на нее найдя ответ на нее в коде программы

[t116]

я с бейсиком почти не знаком. подскажите как именно это реализовать.
мне нУжно что то наподобии чат-бота. я ищу фразу, а прога отвечает на нее найдя ответ на нее в коде программы

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

Dim X As String, Y As String
X="10 12345": Y="10"

If Instr(X, Y) Then

   Msgbox "В переменной X присутствует Y"

Else

   Msgbox "В переменной X отсутствует Y"

End If


[gjghjc]

NiGHt-LEshiY
Вот тебе еще одна ссылочка. http://vbnet.ru/vbguide/ Это к твоему

я с бейсиком почти не знаком.

Может ты о ней и знаешь, а может быть и нет

[burik]

...А если в базе есть варианты 10 1...

Исходя из этих слов мне кажется что есть какая-то база, в которой нужно что-то найти. Если я правильно все понял и выборка записей из базы производится с помощью SQL запроса, то Like самое подходящее решение.

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

SELECT * FROM table_name WHERE field_name LIKE '*10*'

[gjghjc]

burik
А разве не LIKE '*10*' или LIKE '%10%' (а то ведь какая база используется неизвестно)

[burik]

gjghjc, да, точно.. Просто торопился..

[NiGHt-LEshiY]

Это не mysql, база находится в отдельном файле. А насчет того что вы написали - походит, но не очень...

[burik]

Ну тогда объясни подробнее что надо: что за база, каким образом ищешь в ней записи?

[NiGHt-LEshiY]

База текстовый файл, предположим base.txt
Юзер пишет в текстовое поле ном1 что-либо, прога сравнивает это с тем что есть в базе и в соответствии выдает ответ в текстбокс ном2.
Пример base.txt:(точно не знаю как именно надо там писать)
"001" - "002"
И если юзер пишет в текстбокс 1 "001", то прога находит строку, которая начинается с "001" и рядом ищет ответ юзеру, то бишь "002".

Что то вроде этого!

[burik]

Ну тогда, например, так:

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


Function FindAnswer(ByVal Question As String) As String
Dim tmp As String, f as Integer
    f = freefile
    open "base.txt" for input as f
    while not eof(f)
        line input #f, tmp
        if instr("001",split(tmp,"-")(0)) then goto fin
    wend
    Exit Function
fin:
    FindAnswer = split(tmp,"-")(1)
End Function