[resolved] parsing help

[Whatupdoc]

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?

[DigiRev]

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

[Whatupdoc]

thanks, works perfectly

[DigiRev]

thanks, works perfectly

You're welcome.

[zynder]

or you can do it in one line of 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