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

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 просмотров