AI智能
改变未来

烧脑的asp数组提取统计问题

asp数组是这样的:
|中国,陆地,大象,12|美国,陆地,大象,2|美国,陆地,大象,2|中国,海洋,海马,4|中国,陆地,大象,5|中国,陆地,大象,12   等等。。。。。
怎么让这里面的数组像这样分类统计?
中国,陆地,大象,29
美国,陆地,大象,4
中国,海洋,海马,4
下面的代码我可以进行子数组分组,但是不会进行分类统计。

下面代码的结果:
中国,陆地,大象,12
美国,陆地,大象,2
中国,海洋,海马,4
中国,陆地,大象,5


Dim ConstStr
ConstStr = \"|中国,陆地,大象,12|美国,陆地,大象,2|美国,陆地,大象,2|中国,海洋,海马,4|中国,陆地,大象,5|中国,陆地,大象,12\"
Dim arr,i,y,tempstr
arr = Split(ConstStr,\"|\")
For i=0 To UBound(arr)
        str = arr(i)
                tempstr = tempstr&str&\"|\"
                If InStr(tempstr,str&\"|\")=len(tempstr)-len(str) And InStrRev(tempstr,str&\"|\")=len(tempstr)-len(str) Then     \'此句判断字符的唯一性,关键
                response.write(str&\"<br>\")
                End If
Next

  • 点赞
  • 收藏
  • 分享
  • 文章举报

sepingan0036发布了20 篇原创文章 · 获赞 0 · 访问量 869私信关注

赞(0) 打赏
未经允许不得转载:爱站程序员基地 » 烧脑的asp数组提取统计问题