Work Around
Here is the code, but please don't just copy/paste it. Learn from it > Read the comments!
The reason for the last replacement is simple. Without that replacement $X would have two spaces between blah & blah, rather than one.
Hope this helps all of those out who are trying to use wildcards & can't use the Like function for their specific need.
Here is the code, but please don't just copy/paste it. Learn from it > Read the comments!
Code:
Dim X, A, B, C
X = "blah (because) blah"
If InStr(X, "(") > 0 Then '( was found in $X
A = InStr(X, "(") 'returns location of ( as integer
B = Mid(X, A) 'returns (* as string
If InStr(B, ")") > 0 Then ') was found in $B
C = InStr(X, ")") 'returns location of ) as integer
C = (C - A) + 1 'returns length from ( to ) as integer
B = Mid(X, A, C) 'returns (*)
X = Replace(X, B, "") 'replaces (*) with blank
Else ') was not found in $B, do nothing
End If
End If
X = Replace(X, " ", " ")Hope this helps all of those out who are trying to use wildcards & can't use the Like function for their specific need.
