向数组添加不重复记录

cxlater

RT
向数组添加记录的时候有什么办法能过滤数组中已经存在的记录
UDF中好像没有这样的函数

[ 本帖最后由 cxlater 于 2008-5-31 02:14 编辑 ]

cxlater

现在用的方法是：

For $text In $log
                        If $cname <> $text Then
                                $ex = 0
                        Else
                                $ex = 1
                                ExitLoop
                        EndIf
                Next
                If $ex = 0 Then
                        _ArrayAdd($log,$cname)
                EndIf

看起来很山寨的方法

bing614

[au3]#include <Array.au3>
Dim $avArray[6] = ["String0", "String2", "String3", "String4", "String5", "String6"]
$sSearch = InputBox("", "向数组中新加记录")
$iIndex=_ArraySearch($avArray,$sSearch, 0, 0, 0, 1)

If $iIndex<>-1 Then Exit
ReDim $avArray[UBound($avArray)+1]
$avArray[UBound($avArray)-1]=$sSearch
_ArrayDisplay($avArray,"")    [/au3]
也可以试试这个