Simple string slice

Hey,

Simple question, I'm just not thinking straight right now I guess.

Let's say you have a string:

apple#orange, or it could be apple#grape or any other word after the # sign.

How can I slice everything before the # sign? I can't just go Right(string, 6) because the length of the word on the right isn't always the same length.


Thanks!

Here is one way, but it isn't efficient:

vbcode Code:

Option Explicit
 
Private Sub CommandButton1_Click()
 
    MsgBox Slice_Text("apple#orange")
    MsgBox Slice_Text("apple#grape")
    MsgBox Slice_Text("pineapple#mango")
 
End Sub
 
Private Function Slice_Text(ByVal strIn As String) As String
 
    Slice_Text = Split(strIn, "#")(1)
 
End Function

In any case you will need to do some error handlinng, at very least check for the pressence of the delimiter ("#" in this case)

Thanks for the reply, Yeah I was looking for a method that would get it regardless of what is on the right hand side, since it depends on user input.

Your above solution would only work with orange, grape and mango for example right? Only the specified terms.

And, using Mid$() and InStr():

vbcode Code:

Option Explicit
 
Private Sub CommandButton1_Click()
 
    MsgBox Slice_Text("apple#orange")
    MsgBox Slice_Text("apple#grape")
    MsgBox Slice_Text("pineapple#mango")
 
End Sub
 
Private Function Slice_Text(ByVal strIn As String) As String
Dim lngPos As Long
 
    lngPos = InStr(strIn, "#")
    
    Slice_Text = Mid$(strIn, lngPos + 1, Len(strIn) - lngPos)
 
End Function

Quote:

---

Originally Posted by DavidNels

Thanks for the reply, Yeah I was looking for a method that would get it regardless of what is on the right hand side, since it depends on user input.

Your above solution would only work with orange, grape and mango for example right? Only the specified terms.

---

No, it would work with any combo...... that said I posted a different way too.