[resolved] parsing help

How would i do this?

User Input: http://www.mysite.com/image1.gif
output: image1.gif

User Input: http://www.notmysite.com/folder/image2.jpg
output: image2.jpg

User Input: http://www.mysite.com/folder/folder2/image10.gif
output: image10.gif

i can't figure out how to get the images name from the URL, can someone help?

Code:

---

Option Explicit

Private Function GetURLFile(URL As String) As String
    Dim intPos As Integer
   
    intPos = InStrRev(URL, "/")
   
    If intPos > 0 Then
        GetURLFile = Mid$(URL, intPos + 1)
    End If
   
End Function

Private Sub Form_Load()
    MsgBox GetURLFile("http://www.mysite.com/image1.gif")
    MsgBox GetURLFile("http://www.notmysite.com/folder/image2.jpg")
    MsgBox GetURLFile("http://www.mysite.com/folder/folder2/image10.gif")
End Sub

---

thanks, works perfectly

Quote:

---

Originally Posted by Whatupdoc

thanks, works perfectly

---

You're welcome.

:wave:

or you can do it in one line of code.

Code:

---

Private Function GetFile(URLFile As String) As String
    GetFile = Mid$(URLFile, InStrRev(URLFile, "/", -1) + 1, Len(URLFile))
End Function


Private Sub Form_Load()
    MsgBox GetFile("http://www.mysite.com/image1.gif")
    MsgBox GetFile("http://www.notmysite.com/folder/image2.jpg")
    MsgBox GetFile("http://www.mysite.com/folder/folder2/image10.gif")
End Sub

---