Remove() Function?

Hi guys,

I'm just wondering if anybody has written a Remove Function. I'm getting a bit sick of having to use Mid() all the time, and I believe it's slowing down my program a little.. unfortunately, I don't have the know-how yet to write myown remove function.. :)

Thanks,

P.S - What I basically am looking for is something that would work similiar to this:

str = "bah!"
newstr = Remove(str,"b")

Which would just return 'ah!' :)

Thanks heaps everybody

You could use Replace to do the same thing as your example here:

VB Code:

test = "bah!"
test = Replace(test, "b", "")
msgbox test

That's what I was originally doing, but I came across a problem..

What if the string was something like "baboon"? :( It'd change it to "aoon" instead of just "aboon".. any ideas?

Thanks :)

Well , how about using Left( ) Function ?

Or do you just want to strip out the first occurence of a character?

VB Code:

Private Function Remove(ByVal RemoveFrom As String, ByVal ToRemove As String, _
                        Optional Count As Integer = 1) As String
 
    If Not (Count >= 1) Then Err.Raise 5
 
    Remove = Replace(RemoveFrom, ToRemove, "", Count:=Count)
 
End Function
 
Private Sub Command1_Click()
    MsgBox Remove("baboon", "b")
End Sub

I believe that is case sensitive, but it can easily be changed not to be.