Remove() Function?

[m3rlin]

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

[TPR25]

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

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

[m3rlin]

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

[Pirate]

Well , how about using Left( ) Function ?

[crptcblade]

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

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.