ASP函数过滤数组中重复数据方法
来源：asp之家 发布时间：2010-01-02 20:32:00
因为要用到过滤一组中重复的数据，使之变成没有重复的一组数据的功能，百度了一下，居然有朋友乱写，而且比较多，都没有认真测试过，只对字符可以，但是对数字就不可以，而且通用性很差，需要修改才可以真正使用。
没办法就自己写了，经过测试完全没有问题，而且思路很方便，asp代码很短，如下：
<％
function cxarraynull(cxstr1,cxstr2)
if isarray(cxstr1) then
cxarraynull = "对不起，参数1不能为数组"
Exit Function
end if
if cxstr1 = "" or isempty(cxstr1) then
cxarraynull = "nodate"
Exit Function
end if
ss = split(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
for m = 0 to ubound(ss)
cc = cxstr2&ss(m)&cxstr2
if instr(sss,cc)=0 then
sss = sss&ss(m)&cxstr2
end if
next
cxarraynull = right(sss,len(sss) - len(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
end function
％>
使用方法和函数表示：
1、cxarraynull(cxstr1,cxstr2)函数中的两个参数：
cxstr1：要检测的数组变量，可以为空，或其它未知的错误数据，当为空或则为错误数据返回"nodate"。
cxstr2：数组的分割符号，可以为空，或为chr(13)等，自动替换输出。
2、例子：
<％
s="1,2,3,4,2,3,5,3"
cxarraynull(s,",")
％>
输出：1,2,3,4,5
0
投稿猜你喜欢
- 我们进行CSS网页布局的时候，都知道它需要符合XHTML1.0规范。如果我们在进行CSS网页布局的时候，还在使用被W3C废弃的元素，那就失去
在我们关于SQL服务器安全系列的这文章里，我们的目标是向你提供安全安装SQL服务器所需要的工具和信心，这样的话，你有价值的数据就会受到保护，- SQL SERVER用来判断表或视图存在的语句在ORACLE中不能用，请问该怎么写。谢谢。答案exists(select tnam
- 内容摘要：现在博客很流行，相信应该上网时间稍微长点的朋友都会在这或者在那的有一个自己的博客。对于一些有一定能力的朋友，可能更喜欢自己去下载一
- 1、页签的表达。页签表达很清晰，当前页签突出，且层级包涵关系明确；看下图，一目了然的感觉，不用疑惑我在那部分里。不信？拿当当的对比一下，你感
- CSS的背景属性“background”提供了众多属性值，如颜色、图像、定位等，为网页背景图像的定义提供了极大的便利。看看backgroun
- 当成功安装了PHP，MYSQL后，我们一般要安装phpMyAdmin来管理你的mysql。本文介绍了phpMyAdmin 2.10.2的配置
- 总经一下前段时间用于的jQuery方法：find及children。需要的朋友可以参考下。首先看看英文解释吧： children方法：fin
- It's well-known.Microsoft SQL Server 7.0增加了一个语句top，可以限制返回的记录数。但是在使
- 這兩天﹐對xml作為數據庫產生了興趣﹐找了一些資料﹐也搞出了一點眉目﹐在這里記錄一下。算是對自己學習x
- 通常，当一个页面有太多信息要显示，而一页塞又不下所有信。为了请求速度、美观以及其他的各种理由，分页就会被我们请过来。让我们的用户可以选择是否
- 最近由于单位数据库硬盘空间不足，整理的时候查了许多文章，也进行了测试，整理后得出一些经验供大家参考。首先，在网上看到一篇文章，如何Shrin
- 以下函数采用FSO对象，文件位置在FSO.ASP。FSO对象的文件编码属性只有三种，系统默认，Unicode，ASCII，并没有我们要的ut
- 1.函数array()功能:创建一个数组变量格式:array(list)参数:list为数组变量中的每个数值列,中间用逗号间隔例子:<
- 今天在一个QQ群中看到有人在问一个进度条的实现方式，当时因为工作时间，需求相对也比较紧，只是简单的说了一下可以通过CSS的边框属性和背景属性
- 今天在写BLOG的Trackback时，需要用到当前页的URL地址，并且包括?后的所有参数。在网上看到以下的这段ASP代码，它的
- 赠送QQ秀流程是QQ秀商城关键流程之一，占了收入最直接的一部分。它的优化是后续商城流程优化的重要参考。OK，现在就用TA做例子，分享一下流程
- 由于笔者最近在做一个跨数据库操作的测试，开始做IBatisNet （IBatis.DataMapper.1.6.2/IBatis.DataA
- 用字符串就可以轻松地获取每一个文件的名称和扩展名，但不要乱用：<％Function getFilename(text)tex
- 因为自己在设计的时候就对这些东西经常不是很在意，以为是很小的事情，结果往往给自己搞出不少的麻烦。可能大家没有我这么粗心，不过还是想提醒一下跟
