自定义distinct 函数
2005-09-13 17:23
176 查看
function f_distinct(y)
dim S,D,x
x=split(y,",")
Set D = CreateObject("Scripting.Dictionary")
for each xxx in x
if not d.Exists(xxx) then D.Add xxx,xxx
next
for each key in D.Keys
S=S & key & ","
next
if instr(S,",")>0 then
S=left(S,len(s)-1)
end if
set D=nothing
f_distinct=trim(S)
end function 自定义distinct 函数,修改自大笨狼的函数,这个函数很方便.
dim S,D,x
x=split(y,",")
Set D = CreateObject("Scripting.Dictionary")
for each xxx in x
if not d.Exists(xxx) then D.Add xxx,xxx
next
for each key in D.Keys
S=S & key & ","
next
if instr(S,",")>0 then
S=left(S,len(s)-1)
end if
set D=nothing
f_distinct=trim(S)
end function 自定义distinct 函数,修改自大笨狼的函数,这个函数很方便.
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 数据库自定义表值函数Split(@LongStr, @SplitStr, @IsDistinct )
- Matlab—将绘图保存为视频VideoWrite()函数用法与自定义视频尺寸
- 为RB定制支持参数的自定义函数
- 宏函数与自定义函数的区别（面试总结）
- oracle 自定义身份证15位转18位 函数
- jquery validate 自定义函数正则表达式验证
- 【VBA研究】VBA自定义函数参数类型不符的错误
- ACM向：关于优先队列priority_queue自定义比较函数用法整理
- VC++程序中用PlaySound函数加入自定义声音
- 用自定义函数判断指定文件夹下是否包含子文件夹
- 求助（关于自定义函数位置的问题）
- python 如何能否自定义模块路径？ 添加自定义模块 函数 python
- 自定义C语言几个常见函数
- PPAS上以自定义类型数组为入参的函数及调用加java调用
- Smarty自定义函数实例解析
- js常用的一些自定义函数
- MATLAB 自定义函数拟合
- 自定义的plot函数参数date坐标模型[x，y]的使用建议
- HIVE 自定义函数之UDF/UDAF/UDTF
- 自定义打印输出函数格式，模拟printf函数