用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. PT作弊工具之uSerenity
2. JavaScript调用VBS中的InputBox和MsgBox函数
3. VBS中存在两种不同类型的数组？
4. 利用WMI打造完美“三无”后门-U盘侦测与Autorun
5. Python，又见Python

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