[RESOLVED] Remove text from String

[FlamingFox]

Hello,

Does anyone know how to remove all the text after a certain point in a string?

For example:

MyString = "www.newfoundland.com/help/431234.html"

How can I remove all the text after the last forward slash so it would return:

sResult = "www.newfoundland.com/help/"

Thanks in advance!

[MartinLiss]

I can think of several ways. This one may be too complicated but it works.

    Dim MyString As String
    Dim lngIndex As Long
    Dim strParts() As String
    MyString = "www.newfoundland.com/help/431234.html"
    
    strParts = Split(MyString, "/")
    
    MyString = ""
    For lngIndex = 0 To UBound(strParts) - 1
        MyString = MyString & strParts(lngIndex) & "/"
    Next
    MyString = Left$(MyString, Len(MyString) - 1)

    MsgBox MyString

[TBeck]

try this

Text2.Text = Left(Text1.Text, InStrRev(Text1.Text, "/"))

the InStrRev returns the position of the last occurance of the specified string. and left returns the first n characters of text1, and in this case n is the result of the InStrRev call

[MartinLiss]

Here's a better way.

    Dim MyString As String
    Dim lngIndex As Long
    MyString = "www.newfoundland.com/help/431234.html"
    
    lngIndex = InStrRev(MyString, "/")
    
    MyString = Left$(MyString, lngIndex)

    MsgBox MyString

[FlamingFox]

Here's a better way.

    Dim MyString As String
    Dim lngIndex As Long
    MyString = "www.newfoundland.com/help/431234.html"
    
    lngIndex = InStrRev(MyString, "/")
    
    MyString = Left$(MyString, lngIndex - 1)

    MsgBox MyString

Thanks! It works perfectly

[MartinLiss]

So does TBeck's and if you change Text1.Text in his to MyString then his is arguably a better (more compact) solution.

[FlamingFox]

So does TBeck's and if you change Text1.Text in his to MyString then his is arguably a better (more compact) solution.

I'm Sorry I didn't see TBeck's post.

That works perfectly too!