getwebaddressfilename.txt

一部分关于VB编程的小技巧

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