getwebaddressfilename.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 9 行

Function GetWebaddressFileName(s As String) As String
    On Error Resume Next
Dim i As Integer, b As Integer

    i = InStrRev(s, "/")
    b = InStrRev(s, ".")
    
    GetWebaddressFileName = Mid$(s, i + 1, (b - i) + 3)
End Function