用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. PHP读取纯真IP数据库QQWry.dat
2. PT作弊的几种方法
3. 在Windows下源码编译PHP
4. 用C语言调用COM组件
5. 用VBS检测U盘插入和弹出事件（二）

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