replace values between specific characters

**mikerickson** · 11-29-2009, 07:54 PM

My mistake

If Left(Snippets(i), 1) <> "<" Then

**hluk** · 11-29-2009, 08:51 PM

thanks again! error is gone

but, the returned value is now #NAME? or 0?
input string is

<randomstring testing number 444 <randomstring user number 8394 <!code… activated account

and formula used is:

=RemoveBrackets(A2)

the code i am using:

Function RemoveBrackets(aString As String) As String
    Dim i As Long, Snippets As Variant
    Snippets = Split(aString, " ")
    For i = 0 To UBound(Snippets) Step 2
        If Left(Snippets(i), 1) <> "<" Then
            RemoveBrackets = RemoveBrackets & Snippets(i)
        End If
    Next i
End Function

**hluk** · 11-30-2009, 03:05 PM

i tried to change the code some more... but it's not working out. arrrrr, ahahah, this coding stuff is not as easy as it seems.

**hluk** · 12-01-2009, 01:33 PM

is there a find/replace string that can do this?

for example, is there a wildcard character that can be used to represent the characters within the string?

e.g.) "<*******(space)"

**mikerickson** · 12-01-2009, 04:46 PM

You might try this

Function RemoveBrackets(aString As String) As String
    Dim i As Long, Snippets As Variant
    Snippets = Split(aString, " ")
    For i = 0 To UBound(Snippets) 
        If Left(Snippets(i), 1) <> "<" Then
            RemoveBrackets = RemoveBrackets & Snippets(i) & " "
        End If
    Next i
    RemoveBrackets = Trim(RemoveBrackets)
End Function

That find/Replace might work too.