你的位置：

【按键精灵】去除數組重复项

来源[ANJIAN] 点击[52] 作者[admin] 时间[2017-03-04 23:34:22]


//------------去除數組重複項 返回模式0為返回字符串 1為返回數組
Function qdszcfx(yuanshishuzu,fanhuimoshi)
    //返回模式0為返回字符串,其他為返回數組
    Dim i, shuzu, qzhifuchan, a
    a=0
    shuzu = yuanshishuzu
    qzhifuchan=\"|\"
    For i = 0 To Ubound(shuzu)
        If instr(qzhifuchan,\"|\"&shuzu(i)&\"|\")=0 Then
            qzhifuchan = qzhifuchan & shuzu(i) & \"|\"
            a=a+1
        End If
    Next
    qzhifuchan = right(qzhifuchan, len(qzhifuchan) - 1)
    qzhifuchan = left(qzhifuchan, len(qzhifuchan) - 1)
    If fanhuimoshi = 0 Then 
        qdszcfx = qzhifuchan
    Else 
        qdszcfx =Split(qzhifuchan,\"|\") 
    End If    
    TracePrint \"數組空間優化：\" & FormatPercent(1 - a/(UBound(shuzu)+1))
End Function
//
AAA = Array(\"001\", \"002\", \"003\", \"004\", \"005\", \"005\", \"0\", \"01\", \"02\")
G = qdszcfx(AAA,1)
TracePrint join(G, \" | \")
分享

    最新评论：



评论文本（10-200个字符）超出部分会被自动删除.
刷新 点击图片刷新验证码，防止恶意攻击，验证码刷新延时5秒！
广告2