Jump to content
Sign in to follow this  
Dirgi

_ArrayMinX() function (based on _ArrayMin() function)

Recommended Posts

Dirgi

_ArrayMinX() is an extension (I wrote) of the _ArrayMin() function.

Just beforehand: I'm using now AutoIT intemsively for just one week - So please have mercy when something is wrong or not done in the right way.

Why _ArrayMinX?:

When I used the _ArrayMin() function I did not receive the minimum value of my array caused to the issue that my array had some positions without any content.I allways received an empty value.

After some research on the internet I didn't find any answer to solve the problem, so I started to write my own function.

How does _ArrayMinX() work ?:

In a short sentence: When there is a MinValue, you'll receive it back :mellow:

I'll explain this with the following example:

This is my example Array:

Local $ExampleArray[19] = [2,"2",4,"25","0.34374374",1,6,"","A","x","","",12,70,"3","","7A","FE6","This is a test"]

As you can see, it contents a mix of numbers, alpanumerics and empty values like ""

When using now the _ArrayMin() function you'll always receive an empty value back which

might be correct from the computer calculation perspective but not really whant I want.

I would like to know the real minimum existing value, which can be i.e. a "1" or a "A"

So what does my function do?

1. Build a uniqueness with the function _ArrayUnique() to have each value just once.

(even an empty array appears now just once)

2. Sort the array with the _ArraySort() function. If there's now an empty Array it will

be the first in the sorted list ;-)

3. Now the function check if an empty array is existing and place the pointer on the right array

4. When asking for the Min Value I can additionally decide if I'd like to have my focus on an

numeric ar alpanumeric value.

Feel free to use the script.

I did already an implementation of the function on my <Array.au3> base script.

If you'd like to have it as well I just attached the content copy of my updated <Array.au3> script.

Cheers, Dirgi

Example Script: :)

#include <Array.au3>
Local $ExampleArray[19] = [2,"2",4,"25","0.34374374",1,6,"","A","x","","",12,70,"3","","7A","FE6","This is a test"]
Local $X
$X= _ArrayMinX($ExampleArray,0) ;Call the function
Msgbox (0,"",$X)
 
;---------------------------------------------------------------------------------------------------
 
Func _ArrayMinX(Const ByRef $AvArray, $iCompNumeric = 0 )
If Not IsArray($avArray) Then Return SetError(1, 0, -1)
Local $ArrayPointer, $AminX
$AminX = _ArrayUnique($avArray)     ;Compress the numbers of same contents (even arrays without content)
_ArraySort($AminX)                  ;Array without content (if existing) appears on top of sorted list ;-)
$ArrayPointer = 0
If $AminX[0] = "" Then $ArrayPointer = 1        ;If Array[0] has no content then set pointer to Array[1]
$AminX = _ArrayMin($AminX, $iCompNumeric, $ArrayPointer)
If @error Then Return SetError(@error, 0, "")
Return $AminX
EndFunc

Here is the implementation into <Array.au3>: (Only my part)

; #FUNCTION# ====================================================================================================================
; Name...........: _ArrayMinX
; Description ...: Returns the lowest value held in an array, even when there are some arrays without any content
; Syntax.........: _ArrayMinX(Const ByRef $avArray[, $iCompNumeric = 0)
; Parameters ....: $avArray     - Array to search
;               $iCompNumeric - [optional] Comparison method:
;               |0 - compare alphanumerically
;               |1 - compare numerically
; Return values .: Success - The minimum value in the array
;               Failure - "", sets @error (see _ArrayMinIndex() description for error codes)
; Author ........: Dirgi
; Modified.......:
; Remarks .......: Based on the scripting of the related functions
; Related .......: _ArraySort, _ArrayMinIndex, _ArrayMin, _ArrayUnique
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _ArrayMinX(Const ByRef $AvArray, $iCompNumeric = 0 )
If Not IsArray($avArray) Then Return SetError(1, 0, -1)
Local $ArrayPointer, $AminX
$AminX = _ArrayUnique($avArray)     ;Compress the numbers of same contents (even arrays without content)
_ArraySort($AminX)                  ;Array without content (if existing) appears on top of sorted list ;-)
$ArrayPointer = 0
If $AminX[0] = "" Then $ArrayPointer = 1        ;If Array[0] has no content then set pointer to Array[1]
$AminX = _ArrayMin($AminX, $iCompNumeric, $ArrayPointer)
If @error Then Return SetError(@error, 0, "")
Return $AminX
EndFunc

The complete updated <ARRAY.AU3> you'll find attached as compressed zip file.

ArrayAU3.zip

Edited by Dirgi

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Similar Content

    • lattey
      By lattey
      hi,
      i have checkboxes and each checkbox that checked, i put in array. 
      now, im stuck on how to loop the checked array and store in in one variable. what i can do now, is only write the result into a text file. 
      below is the code:
      #include <GUIConstantsEx.au3> ;~ #include <MsgBoxConstants.au3> #include <ButtonConstants.au3> #include <Array.au3> Global $Count = 3 Global $CheckBoxP[$Count] Global $step[$Count] global $array1[1] Global $ExitResult $hGUI = GUICreate("Summary Steps", 500, 400) GUISetFont(12, 400, "Tahoma") GUICtrlCreateLabel( "Please Select the Summary Steps for Script Check", 70, 20) GUISetFont(10, 400, "Tahoma") Global $array_Pstep[3] = ["fix2","fix1","fix3"] global $step[3] = ["2","3","4"] $Spacing = 50 For $i = 0 To UBound($array_Pstep) - 1 $CheckBoxP[$i] = GUICtrlCreateCheckbox($array_Pstep[$i], 80, $Spacing + (20 * $i), 65, 17) Next $submit = GUICtrlCreateButton("Submit",180, 280, 80, 30) $exit = GUICtrlCreateButton("Exit",180, 320, 80, 30) GUISetState() While 1 $Msg = GUIGetMsg() Select case $Msg=$submit For $i = 0 To $Count - 1 If GUICtrlRead($CheckBoxP[$i]) = $GUI_CHECKED Then _ArrayAdd($array1, $step[$i]) EndIf Next Global $logfilerray = @WorkingDir & "\checkedlist.txt" FileDelete ($logfilerray) Global $readlogfile = FileOpen($logfilerray,1) for $a = 1 to UBound($array1) - 1 ;~ $var=$array1[$a] FileWriteLine($readlogfile,$array1[$a]) Next FileClose($readlogfile) Exit case $Msg=$exit $ExitResult = MsgBox(1,"Summary Step", "Continue to Exit ?") if $ExitResult = 1 Then ;ok Exit EndIf Exit EndSelect WEnd  
    • omicron
      By omicron
      How do you perform a nested loop function with a multidimensional array from 2 lists.
      for i in list1
      (open file) extract variable
          while open for i in list 2
          (open file2) extract variable
       
      var1 + var2 = (search term)

      The list sizes will more than likely consist of different lengths.
       
      What is the best approach to accomplishing this method?
             
    • omicron
      By omicron
      Hello!

      I am working on a function that I am just getting lost on. The goal is a multiple nested loop.

      Here are the steps:
      Contents of file1.txt::
      [topic] var1=Name var2=OtherName var3=SomeotheName Contents of file2.txt::
      [subTopic] top=sub1 top2=sub2 top3=sub3 The Shell I am working from::
      #include <file.au3> $file = "c:\yourfile.txt" FileOpen($file, 0) For $i = 1 to _FileCountLines($file) $line = FileReadLine($file, $i) msgbox(0,'','the line ' & $i & ' is ' & $line) Next FileClose($file) Understanding however that the "msgbox" needs to then become a variable. in example the following::
      $file = "c:\yourfile.txt" FileOpen($file, 0) While true( prog.exe is running && "WinName" is open) do For $i = 1 to _FileCountLines($file) $line = FileReadLine($file, $i) ;Open File to log "current location of file 1" FileWriteLine ("filename", $i & ' is ' & $line) var = $line Next $file2 = "c:\yourfile.txt" FileOpen($file, 0) For $i = 1 to _FileCountLines($file) $line = FileReadLine($file, $i) ; OpenFile to log "Current location of file 2" FileWriteLine ("filename", $i & ' is ' & $line) Next FileClose($file2) FileClose($file) The goal in written form is the following ::

      While in "OpenWindow"
          read from file 1 starting at line 1 until end of file.
         file 1 is a list of names to be searched.
         With $line selected, add this element to the element in file 2.
       
      The search of a variables in list 1 and list 2 differ on the amount of posts that day. (This is not a web based platform, it is a game) I need to search 2 names and take a screenshot of the out put. The sizes of the names list depend on the activity of names at the time of search.
      This loop continues until all the names from both lists have been searched. Mostly in the format of::
      File1= item
      File2= Vendor
       
      Item + Vendor  ( Capture screen, scroll) -- Not sure how to detect if I need to scroll)
       
      Thank you for your help and support!
    • Emmhor1
      By Emmhor1
      Hi All,

      MAIN QUESTION:
      Is it possible to Call specific function within a GUI

      So I have a script with multiple functions although I don't want to use every function every time.
      My Idea is to create a simple GUI which allows me to select what functions I want to use then run the funtions by clicking a button.
      I have already made a GUI which allows me to select specific .exe's I would like to run after selection it runs the .exe one by one.
      This script is on my work laptops and cannot access it right now.
       
      Who can help me with this?
      GUIcreate
      Func1 
      Func2
      Func3
      Then have a boxes which allows me to select the specif Func.(I used GUIChecked and Unchecked in my other script)
      Then a button which executes/calls the selected functions
    • Skeletor
      By Skeletor
      Hi Virtual People,
      My array works perfectly fine. However, what is the best practice if the line in the array doesn't have the correct amount of columns and if I can add a placeholder?

       
      For $count = 1 To _FileCountLines($FileRead1) Step 1 $string = FileReadLine($FileRead1, $count) $input = StringSplit($string, ",", 1) $value1 = $input[1] $value2 = $input[2] $value3 = $input[3] _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $value2, "A1") _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $value1, "B1") _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $value3, "C1") Next  
×