MyTetra Share
Делитесь знаниями!
Поиск элементов массива в текстовой строке
03.01.2018
15:59
Текстовые метки: array,Текстовые строки, Обработка массивов
Раздел: VBA - Array

Поиск элементов массива в текстовой строке

Данная функция позволяет определить, содержатся ли в текстовой строке элементы массива:

Function LikeAnItemOfArray(ByVal txt$, ByVal arr) As Boolean
    ' возвращает TRUE, если в строке txt$ содержится хоть один элемент из массива arr
    For Each Item In arr
        pos = pos + InStr(1, txt$, Item, vbTextCompare)
    Next
    LikeAnItemOfArray = pos > 0
End Function

Один из способов применения функции:

Sub ПримерИспользования_LikeAnItemOfArray()
    ' список слов, каждое из которых надо проверить на наличие в текстовой строке
    brands = Array("DAEWOO", "HYUNDAI", "KIA", "CHEVROLET", "SSANG", "ZAZ")
 
    ' строка, которую мы будем проверять на вхождение ключевых слов
    txt$ = "Дэу (Nexia, Espero) HYUNDAI (Elantra XD, Lantra II, Matrix, Santa FE, Sonata II, IV, Trajet) "
 
    Dim Результат As Boolean
    Результат = LikeAnItemOfArray(txt, brands)
End Sub
  • 9129 просмотров
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования