Найти некоторую последовательность символов в строке? - VB
Формулировка задачи:
или хотя бы узнать позицию жтой последовательности (как pos в паскале)
Решение задачи: «Найти некоторую последовательность символов в строке?»
textual
Листинг программы
StrTxt = 'ваше сообщение противоречит этим правилам ' ' Найти слово 'этим' Dim pos, StrPg StrPg = 'этим' pos = Instr(1, StrTxt, 'этим'} ' если слово имеется в переменной: if pos then Msgbox 'В этой строке имеется слово ' & StrPg & _ ' начиная с символа в строке по номеру ' & pos else Msgbox 'Ничего не нашел' end if
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д