在classic asp 中对数组进行分组

问题：在 ASP 中有一个数组，如下所示：

1. 3,5,7,7,3,2,3

复制代码

想将它们分组在一起并进行计数，这样就会：

1. 数字  次数
   
2. 2       1
   
3. 3       3
   
4. 5       1
   
5. 7       2

复制代码

这可能吗？如果是这样怎么办？


回答：

以使用字典对象，Key 可以是数组中的数字，并将其初始值设置为 1。继续循环遍历数组。如果键已经存在，则只需将值添加 1，否则创建一个新键并分配值 1。如下：

1. <%
   
2.     dim ar
   
3.     ar = array(3,5,7,7,3,2,3)
   
4. 
   
5.     dim dictArray
   
6. 
   
7.     set dictArray = server.CreateObject("Scripting.Dictionary")
   
8. 
   
9.     for each i in ar
   
10.         if dictArray.exists( i ) then
    
11.             dictArray(i) = dictArray(i) + 1
    
12.         else
    
13.             dictArray(i) = 1
    
14.         end if
    
15.     next
    
16. %>
    
17. 
    
18. <%
    
19.     for each i in dictArray
    
20.         response.write( i & " : " & dictArray(i) & "<br />")
    
21.     next
    
22. %>

复制代码

每天都来学习新知识！