找回密码
 加入
搜索
查看: 1270|回复: 2

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

[复制链接]
发表于 2016-12-10 10:14:01 | 显示全部楼层 |阅读模式
本帖最后由 仙乃日 于 2016-12-10 12:48 编辑

Local $arr_No[] = [1, 2, 3, 4, 5, 2]
找出元素2重复时的索引。自己写的代码:
Local $arr_No[] = [1, 2, 3, 4, 5, 2]
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[] = [1, 2, 3, 4, 5, 2, 3]
如何区分出元素2与元素3后重复的索引呢?
发表于 2016-12-10 10:48:46 | 显示全部楼层
冒泡排序法
建内外两个循环,应该可以做到.
发表于 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
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 18:05 , Processed in 0.072661 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表