论坛 › 已解决问题区 › 找出一维数组有重复元素的索引值[已解决]

仙乃日 发表于 2016-12-10 10:14:01

找出一维数组有重复元素的索引值[已解决]

本帖最后由 仙乃日 于 2016-12-10 12:48 编辑

Local $arr_No[] =
找出元素2重复时的索引。自己写的代码：Local $arr_No[] =
If arrRepeat($arr_No) <> 0 Then
        MsgBox(0,0,arrRepeat($arr_No))
EndIf
Func arrRepeat($arr)
;~判断一维数组内有无重复元素，有就重复返回用;间隔的索引值 无就返回0 ，$arrt为要判断的数组
        Local $No_str=""
        For $n = 0 To UBound($arr) - 1
                If IsDeclared($arr[$n]) Then
                       $No_str &=$n & ";"
                EndIf
                Assign($arr[$n], "")
        Next
        If $No_str="" Then
                Return 0
        Else
                Return $No_str
        EndIf
EndFunc   ;==>arrRepeat如果数组为:Local $arr_No[] =
如何区分出元素2与元素3后重复的索引呢？

q410225 发表于 2016-12-10 10:48:46

冒泡排序法
建内外两个循环,应该可以做到.

q410225 发表于 2016-12-10 10:55:54

For $n = 0 To UBound($arr) - 1
local $m
for $m=$n+1 to UBound($arr)
if $arr[$n]=$arr[$m] then
.................
endif
next
next

查看完整版本: 找出一维数组有重复元素的索引值[已解决]