用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流量作弊工具之mRatio
2. MAX_PATH 还是 MAX_PATH + 1 ？
3. 一个VBS恶作剧程序
4. JavaScript Unicode UTF-8
5. 批处理技术内幕：ECHO命令

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