Серый форум — VBScript: Поиск "слова" или "слова" в тексте/строке

Re: VBScript: Поиск "слова" или "слова" в тексте/строке

2019-01-17T20:24:29Z

Присоединюсь к вопросам коллеги Xameleon.

alik532.95, используйте регулярные выражения:

Option Explicit

Dim strContent
Dim objRegExp


strContent = "Видео построено на простом сюжете."

Set objRegExp = WScript.CreateObject("VBScript.RegExp")

With objRegExp
	.Pattern    = "СЮЖЕТ|ВИДЕО"
	.IgnoreCase = True
End With

WScript.Echo objRegExp.Test(strContent)

Set objRegExp = Nothing

WScript.Quit 0

Re: VBScript: Поиск "слова" или "слова" в тексте/строке

2019-01-17T18:28:17Z

Возникает несколько вопросов.
1) Конечная задача - определить позиции первого и второго вхождения ?
2) Поиск всегда только на 2 значения или в дальнейшем может быть на большее количество ?
3) Почему для поиска использовали InStrRev ? Есть необходимость искать с конца строки ?
4) Искать надо именно слова или подстроки ? Т.е "ВИДЕО И ВИДЕОМАГНИТОФОН" или "ВИДЕО И ВИДЕОМАГНИТОФОН" ?

VBScript: Поиск "слова" или "слова" в тексте/строке

2019-01-17T16:33:35Z

Работает:

SymbolNumberNameStory = InStrRev(AllText,"СЮЖЕТ",SymbolNumberNameStory)

Не работает:

SymbolNumberNameStory = InStrRev(AllText,"СЮЖЕТ"or"ВИДЕО",SymbolNumberNameStory)

P.S. Найти два отдельно и сравнить который попался скорее не предлагать) Так и я могу сделать))
Но там будет много "or" поэтому сложно будет сравнивать...