用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中CreateObject和WScript.CreateObject的区别
2. 用VBS判断操作系统是32位（x86）还是64位（x64）
3. VBS变量名Wsh等于WScript对象？
4. 用C语言调用COM组件
5. UTF-16与UCS-2的区别

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