用VBS实现PHP的basename函数

昨天写了一篇《用JavaScript实现PHP的basename函数》，按照惯例，给出VBS的实现。自己写的，如果有什么不对的地址，请不吝赐教。

Function basename(path, suffix)
    Dim regex, b
    Set regex = New RegExp
    regex.Pattern = "^.*[/\\]"
    regex.Global = True
    b = regex.Replace(path, "")
    If VarType(suffix) = vbString And _
        Right(path, Len(suffix)) = suffix Then
        b = Left(b, Len(b) - Len(suffix))
    End If
    basename = b
End Function

MsgBox basename(WScript.ScriptFullName, "")

随机文章:

1. VBS调用Windows API函数
2. WMI工具：WMI Object Browser
3. 利用53端口的OpenVPN免费上网
4. 在C语言程序中嵌入Lua脚本
5. VBS和C语言效率比较

这篇文章发布于 2011年04月16日，星期六，22:07，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。