SPLIT 한 데이터를 비교

Method Detail

delimiter 로 붙어있는 TEXT 를 비교한다.

Method Source

Function SEARCH_WORD(find_word As String, word_array As String, delimiter As String)

    Dim arrWord() As String

    Dim flag As Boolean

    flag = False

    

    arrWord = Split(word_array, delimiter, -1)

    

    For i = 0 To UBound(arrWord)

        If find_word = arrWord(i) Then

            flag = True

        End If

    Next i

    SEARCH_WORD = flag

End Function

Method Summary

SEARCH_WORD(

find_word  As String  -  검색하려는 문자열

, word_array  As String  -  대상 문자열  ex) "PRICE,PAY,AMOUNT" 

, delimiter  As String  -  delimiter

)