Найти некоторую последовательность символов в строке? - VB

Узнай цену своей работы

Формулировка задачи:

или хотя бы узнать позицию жтой последовательности (как pos в паскале)

Решение задачи: «Найти некоторую последовательность символов в строке?»

textual
Листинг программы
StrTxt = 'ваше сообщение противоречит этим правилам '
 ' Найти слово 'этим'
Dim pos, StrPg
  StrPg = 'этим'
 pos = Instr(1, StrTxt, 'этим'}
  ' если слово имеется в переменной:
if pos then 
  Msgbox 'В этой строке имеется слово ' & StrPg & _
  ' начиная с символа в строке по номеру ' & pos
else
  Msgbox 'Ничего не нашел'
end if

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы