Custom variation of basic string is within a string function.

[OaklandJim]

Am trying to help someone who posted to the list.

The logic for the function needed is a bit screwy but who can argue with someone posting about their need. I'll try to describe what I am after then give examples. I need to determine if a "partial" string is within another "full" string. Easy enough normally using InStr. BUT the twist is that if only a PART of the partial string is preset in the full string then the function should return false.

Example 1: Full string "stuff happy sad bloom". Partial string "happy sa" yields a False result because the partial string (as-is) is not present in the full string.

Example 2: Full string "stuff happy sad bloom". Partial string "happy sad" would yield True result because the entire partial string is present within the full string.

Example 3: Full string "stuff happy sad bloom". Partial string "stuff happy" would yield a True result because the entire partial string is included in the longer string.

Example 4: Full string "stuff happy sad bloom". Partial string "hap" would be a False result because the entire partial string (as is) is not present in the longer string.

 

[rlv01]

Maybe with a UDF

Function SComp(A As String, B As String) As Boolean
    Dim WS As Worksheet
    Dim I As Long, SPos As Long, WCnt As Long
    Dim S As String, TmpStr As String
    Dim SA As Variant
   
    Set WS = ActiveSheet
    SPos = InStr(A, B)
    If SPos > 0 Then
        SA = Split(B, " ")
        WCnt = UBound(SA) + 1
       
        TmpStr = Mid(A, SPos, Len(A))
        SA = Split(TmpStr, " ")
        For I = 0 To WCnt - 1
            S = S & SA(I) & " "
        Next I
        S = Trim(S)
        SComp = S = B
    Else
        SComp = False
    End If
End Function