VBScript版的PHP extract()函数

写过PHP的都知道，其有个extract()非常方便，可以便捷的将字典转换为变量，当然到ASP中则要受限很多，特别是VBScript脚本，本文叙述的就是一种转换的思路，可以实现类似的功能。

下面我就直接提供ASP版本的extract代码吧：

复制代码代码如下:

'
' ASP/VBScript Dictionary extract
' Author: WangYe
' For more information please visit
'
' This code is distributed under the BSD license
'
' collection 集合或者字典，可以通过For Each访问的
'            Request.Form 或者 Request.QueryString
' specified 指定必须存在的属性，假如该属性不存在，将自动创建一个
' prefix     每个属性的前缀修饰
' callback   对于集合或者字典的每个元素(key-value)的值进行函数调用
'            函数原型：
'            Function filter(key, value)
'                filter = value
'            End If
'            最终值将以该函数返回的值为准
'
Function extract(collection, ByVal specified, prefix, callback)
    Dim VarName, VarValue, DynObj, searchKey
    specified = "," & Replace(specified, " ", "") & ","

    Set DynObj = New DynamicObject
    For Each key In collection
        searchKey = "," & key & ","
        If InStr(1, specified, searchKey, 1)>0 Then
            specified = Replace(specified, searchKey, "")
            If Left(specified, 1) <> "," Then
                specified = "," & specified
            End If
            If Right(specified, 1) <> "," Then
                specified = specified & ","
            End If
        End If

        VarName = prefix & key

        VarValue = collection(key)
        If callback<>"" Then
            VarValue = GetRef(callback)(key, VarValue)
        End If

上一篇：利用VBS脚本修改联想笔记本BIOS密码的代码分享

下一篇：VBS 正则判别素数(质数)

发表评论

共有条评论