用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字节数组Byte()的处理方法
  2. 利用WMI打造完美“三无”后门-消灭一切假网卡
  3. OpenWrt配置HTTPS访问LuCI
  4. PHP中htmlentities跟htmlspecialchars的区别
  5. 用VBS控制鼠标(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)

一条评论 发表在“用VBS实现PHP的basename函数”上

  1. PopEye说道:

    要实现BaseName的功能,只需要用FSO对象的GetFileName方法就OK了,不用那么麻烦。

留下回复