Данная функция позволяет определить, содержатся ли в текстовой строке элементы массива: 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
|
|||
Комментарии
Отправить комментарий