Как проверить есть ли в строке число 5, а не цифра 5 в каком то числе

Пользователь

Сообщений: 20 Регистрация: 10.11.2017

14.11.2017 12:01:01

Всем всего доброго!
Имеем массив с текстовыми строками(stroki(u)), надо понять имеют ли строки числа из переменных a и b.
код:
for i=1 to ubound(stroki)
if stroki(i) like "*"+a+"*" and stroki(i) like "*"+b+"*" then
......

Помогите пожалуйста подправить, чтоб искалось число полностью. Например число 5(отделенную от текста пробелами), а не цифру 5 которая входит в другое число например 654.

mtts54 Пользователь Сообщений: 164 Регистрация: 10.09.2015	#2 14.11.2017 12:34:40 А если искать не like "*"..., а точно " 5 " (с пробелом)? Excel непознаваем как атом.

skais675

Пользователь

Сообщений: 2225 Регистрация: 03.06.2014

14.11.2017 12:36:41

Код

if (stroki(i) like "* "+cstr(a)+" *" OR stroki(i) like cstr(a)+" *" OR stroki(i) like "* "+cstr(a))_
and (stroki(i) like "* "+cstr(b)+" *" OR stroki(i) like cstr(b)+" *" OR stroki(i) like "* "+cstr(b)) then

Изменено: skais675 - 14.11.2017 12:41:42

Мой канал

ArtemSkudalov

Пользователь

Сообщений: 20 Регистрация: 10.11.2017

14.11.2017 13:19:00

Цитата
skais675 написал: Код ? 12if (stroki(i) like "* "+cstr(a)+" " OR stroki(i) like cstr(a)+" " OR stroki(i) like "* "+cstr(a))_and (stroki(i) like "* "+cstr(b)+" " OR stroki(i) like cstr(b)+" " OR stroki(i) like "* "+cstr(b)) then

огромное СПАСИБО за помощь! Работает

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

14.11.2017 13:20:24

ArtemSkudalov, лучше сформировать массив строк так, чтобы у них был пробел в начале и в конце. Но если это неудобно, то максимально эффективным, по-видимому, будет такой код

Код

Dim s As String, sa As String, sb As String
sa = " " & a & " "
sb = " " & b & " "
For i = 1 To UBound(stroki)
  s = " " & stroki(i) & " "
  If InStr(s, sa) Then
    If InStr(s, sb) Then
'действия
    End If
  End If
Next

ArtemSkudalov Пользователь Сообщений: 20 Регистрация: 10.11.2017	#6 14.11.2017 15:02:09 Всем спасибо!

Читают тему