开发学院WEB开发ASP ASP将两个数组合并为一个数组函数 array_merge() 阅读

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

 2009-05-04 10:40:31 来源:WEB开发网   
核心提示:<% ' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved. ' ' This work is licensed under the Creative Commons Attribution Lic

<%
   ' 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
%>

Tags:ASP 两个 数组

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接