_ArrayDelete problems

[kalya]

Can someone tell me why I have not the same result when running this script . I mean that last posting should have 3 positions with this values .

 

expandcollapse popup

 
#include <GUIConstantsEx.au3>
#include <Array.au3>

 $lista = InputBox("CLV", "greater than 9","10"," M3")
 
    if $lista < 10 Then
   
                    SplashTextOn("","   error ",300, 130, -1, -1, 4, "", 15)
                    Sleep(3000)
                    SplashOff()

    Else
                
                $proc = InputBox("%", "#  ________________", "70", " M2")    
                $procent = Round($lista*$proc/100)        
                $pr=100-$procent
    

Local $aArray[$lista+1]

For $i = 0 To $lista-1

        $aArray[$i]= $i
    
Next

        _ArrayDelete($aArray, 0)




For $j = 1 To $procent
    $ran=Random(0,UBound($aArray),1)
    _ArrayDelete($aArray,$ran)

Next
    
    MsgBox($MB_SYSTEMMODAL, "**********", _ArrayToString($aArray, ",  "))

 
EndIf

Edited September 18, 2014 by Melba23
Added code tags

[Melba23]

kalya,

When deleting the items from the array you are setting the top limit too high, so sometimes the _ArrayDelete fails as you pass an index outside the array bounds.

This seems to work for me - I say "seems" because it always returns an array with 3 elements, but I have no idea if they are what you want:

For $j = 1 To $procent
    $ran = Random(0, UBound($aArray) - 1, 1) ; <<<<<<<<<<<<< Reduce the top limit to equal the highest index in the array
    _ArrayDelete($aArray, $ran)
Next

This does seem a very complex operation - if you could explain what you are trying to achieve we might be able to suggest an easier way to get there.

M23

[kalya]

I must extract % from a variable list and then print it on desktop. the length of list must be variable and the % also

[Melba23]

kalya,

That much I could guess - the question is not "what are you doing", but "what are you trying to achieve".

From where do you get the "variable list? Why do you only need a certain percentage of its entries (and the code you posted always leads 3 elements so it does not meet with what you say you want)?

Help us to help you - what is it all about?

M23

[kalya]

from a list must extract a certain items depend for % percentage.

example :

if the list have 100 items and percentage are 40 % randomly extract the items and in final must have 6 items

i put myself the list length and the percent so it's variable

[Melba23]

kalya,

As I cannot make any sense of what you are saying (how can 40% of 100 equal 6) I am bowing out - you have a solution to your original problem.

M23

P.S. When you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

[kalya]

kalya,As I cannot make any sense of what you are saying (how can 40% of 100 equal 6) I am bowing out - you have a solution to your original problem. :bye:M23P.S. When you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

my mistake, really sorry

i mean 60.i'm on my phone.

when i run my script usually have 3 items in the final list. but not every time so what's wrong. pls i need this script functionally

[MikahS]

When I ran the script with 60 instead of the default 70 you put I got 5 items in the final MsgBox.

Edited September 18, 2014 by MikahS

[kalya]

When I ran the script with 60 instead of the default 70 you put I got 5 items in the final MsgBox.

so, something it's wrong because must be only 4 items.

delete function.?!

i don't give up, i know for more peoples from here it's a ridiculously script

Edited September 18, 2014 by kalya

[MikahS]

Use a MsgBox throughout your code. Like so:

;example
$proc = InputBox("%", "#  ________________", "70", " M2")
$procent = Round($lista*$proc/100)
MsgBox(0, "", $procent) ; here <<<<<<<
$pr=100-$procent

This is very helpful and I see how it gave 5 values, instead of 4

Edited September 18, 2014 by MikahS

[kalya]

Use a MsgBox throughout your code. Like so:

;example
$proc = InputBox("%", "#  ________________", "70", " M2")
$procent = Round($lista*$proc/100)
MsgBox(0, "", $procent) ; here <<<<<<<
$pr=100-$procent

This is very helpful and I see how it gave 5 values, instead of 4

$procent it's everytime ok. i can se in MsgBox. the items from last array is not ok.

Randomly is 4 or 5 more time is 3

[MikahS]

Use a MsgBox anywhere you are not sure of something. I'm sorry, but I barely understood your statements