数组求和后处理例子[已解决]
本帖最后由 wua0550 于 2012-1-9 00:08 编辑看看蛮简单的~~可能是因为楼主表述不清常人无法理解让老大当作无意义贴给锁了吧~~
写的时候没注意已经上锁~~写好了发现不能回复所以特意开了个贴~楼主的问题如下
我有些三位数字，如123、123、213、456、789、687、952等等数字，我想把和一样数字册除掉。册除和每次不同。所以册除和必须能调动的。
#Include <Array.au3>
$str="123、123、213、456、789、687、952"
$arr1=StringSplit($str,"、");将字段存入数组中
_ArrayDisplay($arr1,"取值数组");显示数组
Dim $arr2[$arr1]
$arr2=$arr1
For $i=1 To $arr1-1
$arr2[$i]=StringLeft($arr1[$i],1)+StringRight($arr1[$i],1)+StringMid ($arr1[$i], 2,1);因为指明是三位数字所里这里只做三位数字的求合了
;~ MsgBox(0,$arr1[$i],$arr2[$i])
Next
_ArrayDisplay($arr2,"求各后数组");显示求和后的数组
For$i=1 To $arr2-1
If Number($arr2[$i])=6 then;这里的想删除数组的和
_ArrayDelete($arr1,$i)
EndIf
Next
_ArrayDisplay($arr1,"删除后得到的数组")
MsgBox(0,"最后以文本输出结果为:",_ArrayToString($arr1,"、",1))
next
本帖最后由 afan 于 2012-1-8 23:56 编辑
精神可嘉，但锁那帖的原因是标题“那位高手能帮忙做个小工具呢？”没有任何意义。
帖子存在的主要作用是要便于搜索，以上的标题中没有任何有意义的关键字。这样的帖子存在只会浪费论坛的资源。请大家也不要回复这类帖子。
BTW, 请楼主修改帖子标题，因为该贴本身也犯了同样的错误。 回复 2# afan
老大没钱下资料了{:face (52):} 你懂的~~~
页:
[1]