Работа со строками - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Работа со строками (http://forum.oszone.net/showthread.php?t=199314)

zena	12-02-2011 19:41 1611237

Работа со строками

Определить входит ли введённое слово в состав другого введённого слова.
Если нет, то вывести соответствующее сообщение через функцию MsgBox.

lxa85

13-02-2011 00:05 1611412

zena, приведи собственные размышления и попытки решения этой задачи.

zena	13-02-2011 09:40 1611563

Ну например...

Код:

Sub m_1()

Dim МестоПоиска As String

Dim ЧтоИщем As String

МестоПоиска = "Текстовый"

ЧтоИщем = "Текст"

If InStr(МестоПоиска, ЧтоИщем) > 0 Then

    MsgBox "Входит"

Else

    MsgBox "Не входит"

End If

End Sub

Но мне нужно, чтобы не только проверялись слова "Текстовый-текст", а любые, которые вводит пользователь с клавиатуры...

Delirium

13-02-2011 10:13 1611581

Цитата:

Цитата zena

Но мне нужно, чтобы не только проверялись слова "Текстовый-текст", а любые, которые вводит пользователь с клавиатуры... »

Это VBA для чего? Word, Excel?
Если Excel, то в коде вместо текста пишем Cells(0;0).Value. Если Word - делаем по другому.

zena	13-02-2011 10:56 1611614

Это Word.

KnRSU

21-02-2011 09:03 1618123

zena,
если точнее то вот так будет работать

Код:

Sub m_1()

Dim МестоПоиска As String

Dim ЧтоИщем As String

Dim i As Long

   МестоПоиска = InputBox("Введите текст в котором будет произведен поиск")

   ЧтоИщем = InputBox("Введите искомый текст")

   i = InStr(1, МестоПоиска, ЧтоИщем, vbTextCompare)

   If i >= 0 Then

       MsgBox "Искомая строка '" & ЧтоИщем & "' ВХОДИТ в указанную строку '" & МестоПоиска & "' и начинается с символа № " & i

   Else

       MsgBox "Не входит"

   End If

End Sub

Время: 17:28.