zoukankan      html  css  js  c++  java
  • 自定义distinct 函数

    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
    =& 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 函数,修改自大笨狼的函数,这个函数很方便.
  • 相关阅读:
    ccc pool
    ccc 模拟重力 正太分布
    ccc 正态分布
    ccc this 指针
    基本语法HelloWorld
    css选择器
    css基本语法
    表单
    表格
    超链接
  • 原文地址:https://www.cnblogs.com/moonvan/p/236128.html
Copyright © 2011-2022 走看看