首页 > 学院 > 开发设计 > 正文

ASP将两个数组合并为一个数组函数 array_merge()

2019-11-17 04:14:18
字体:
来源:转载
供稿:网友

<%
    ' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.
    '
    ' This work is licensed under the Creative Commons Attribution License. To view
    ' a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ or
    ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California
    ' 94305, USA.

    ' Merge two arrays into one.
    function array_merge(byVal firstArray, byVal secondArray)
        dim totalSize
        dim i
        dim combinedArray
       
        ' Ensure that we're dealing with arrays.
        if not isArray(firstArray) then
            firstArray = Array(firstArray)
        end if
       
        if not isArray(secondArray) then
            secondArray = Array(secondArray)
        end if
       
        ' Set up the new array.
        totalSize = uBound(firstArray) + uBound(secondArray) + 1
        combinedArray = firstArray
        redim PReserve combinedArray(totalSize)
       
        for i = 0 to uBound(secondArray)
            combinedArray(uBound(firstArray) + 1 + i) = secondArray(i)
        next
       
        array_merge = combinedArray
    end function
%>


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表