Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с текстом в VB 6.0 / 8 сообщений из 8, страница 1 из 1
06.02.2011, 21:41
    #37100974
kenodo
kenodo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с текстом в VB 6.0
Помогите плиз, я как-бы новичок, как можно сделать что-бы если в TextBox1 кроме всего текста есть ключевое слово при обнаружении которого программа выдала-бы MsgBox ("Любой текст") ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2011, 21:42
    #37100975
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с текстом в VB 6.0
Можно.
- функция InStr
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 10:03
    #37101512
kenodo
kenodo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с текстом в VB 6.0
Shocker.Pro,

Сорри за столь тупой вопрос но можно пример кода плиз?? я новичок и недогоняю куда её пихнуть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 10:12
    #37101534
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с текстом в VB 6.0
kenodo,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim anyString As String, findString As String
    anyString = "Любой текст ключевое слово"
    findString = "ключевое слово"

    If InStr( 1 , anyString, findString) <>  0  Then
        MsgBox "Найдено ключевое слово"
    Else
        MsgBox "ключевое слово Не найдено"
    End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 11:02
    #37101671
kenodo
kenodo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с текстом в VB 6.0
timtim,

Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 11:12
    #37101695
kenodo
kenodo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с текстом в VB 6.0
timtimkenodo,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim anyString As String, findString As String
    anyString = "Любой текст ключевое слово"
    findString = "ключевое слово"

    If InStr( 1 , anyString, findString) <>  0  Then
        MsgBox "Найдено ключевое слово"
    Else
        MsgBox "ключевое слово Не найдено"
    End If


Последний вопрос, как все ето сделать чтобы по клику на Command1 Ключевое слово искалось-бы в ТекстБоксе1 ??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 11:28
    #37101736
kenodo
kenodo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с текстом в VB 6.0
timtim,

А не, все разобрался Там просто надо біло сделать так: If InStr(1, Text1.Text, findString) <> 0 Then ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 21:20
    #37103171
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с текстом в VB 6.0
kenodo,
InStr([start, ]string1, string2[, compare ])
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с текстом в VB 6.0 / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 476ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158984]:
 0ms
get settings:
 11ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 334ms
total:  476ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]