Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 02/04/2022 in all areas

  1. Please don't just post a REG file to import without knowing the exact issue at hand! Also no need for all the uninstalling/Installing! Oh and NEVER do a rightmouseclick with Always open with as that causes these type of problems in the first place!!!!!!!! It is very easy to find what is wrong when you install SciTE4AutoIt3 full installer and start SciTEConfig. Start SciTEConfig Select "Other Tools"/"Run AutoIt3/SciTE check" which will show you a page with information and which registry keys need fixing.
    1 point
  2. It is not an array embedding arrays (or if you prefer arrays of array). It is just a 2D array (double dimension). Either you need to initialize the array differently or use it as a 2D array. Since there is always 4 coord for each rectangle, I would strongly recommend you keep your 2D array as it it. Now to call a function to draw rect based on this array you could simply do : ; Data from a text-file. Can also be much larger in rows and columns ; [[XPos, YPos, width, height],[...]] Local $testdata[4][4] = [[00.0, 00.00, 21.00, 29.70], [00.05, 00.05, 20.00, 28.70], [0.05, 5, 20.00, 05.00], [10.00, 00.50, 03.00, 03.00]] ; Call the function DrawRectangles() for every array in my $testdata-array. For $i = 0 to UBound($testdata)-1 DrawRectangles($testdata, $i) Next Func DrawRectangles(ByRef $myvar, $iInd) ; Draw a dummy-rectangle ; Open the preferences-window of this rectangle ; I ControlClick a form and would like to paste the XPos-value of the testdata-array ConsoleWrite("I would fill in the X-Position: " & $myvar[$iInd][0] & @CRLF) ; Some AutoIT code again ; I ControlClick a form and would like to paste the YPos-value of the testdata-array ConsoleWrite("I would fill in the Y-Position: " & $myvar[$iInd][1] & @CRLF) ; I ControlClick a form and would like to paste the width-value of the testdata-array ConsoleWrite("I would fill in the width: " & $myvar[$iInd][2] & @CRLF) ; I ControlClick a form and would like to paste the height-value of the testdata-array ConsoleWrite("I would fill in the height: " & $myvar[$iInd][3] & @CRLF) ; ControlClick the "OK" Button of the preferences window and repeat for the next array-entry EndFunc Notice I remove the double-quotes, since they are numbers not strings. If you want to format a number use StringFormat...
    1 point
  3. There a many ways that it could be done. Here's a "nudge" that shows one of those ways: ; Data from a text-file. Can also be much larger in rows and columns ; [[XPos, YPos, width, height],[...]] Global $testdata[4][4] = [["00.0", "00.00", "21.00", "29.70"], ["00.05", "00.05", "20.00", "28.70"], ["0.05", "5", "20.00", "05.00"], ["10.00", "00.50", "03.00", "03.00"]] ; Call the function DrawRectangles() for every array in my $testdata-array. For $i = 0 to UBound($testdata)-1 DrawRectangles($testdata[$i][0], $testdata[$i][1], $testdata[$i][2], $testdata[$i][3]) Next Func DrawRectangles($x, $y, $w, $h) ; Draw a dummy-rectangle ; Open the preferences-window of this rectangle ; I ControlClick a form and would like to paste the XPos-value of the testdata-array ConsoleWrite("I would fill in the X-Position: " & $x & @CRLF) ; Some AutoIT code again ; I ControlClick a form and would like to paste the YPos-value of the testdata-array ConsoleWrite("I would fill in the Y-Position: " & $y & @CRLF) ; I ControlClick a form and would like to paste the width-value of the testdata-array ConsoleWrite("I would fill in the width: " & $w & @CRLF) ; I ControlClick a form and would like to paste the height-value of the testdata-array ConsoleWrite("I would fill in the height: " & $h & @CRLF) ; ControlClick the "OK" Button of the preferences window and repeat for the next array-entry EndFunc
    1 point
  4. Glad I could help. Good luck for the future.
    1 point
  5. Another flavour... $sText = FileRead("Data_Monitor.txt") $aMon = StringRegExp($sText, "(?:(?:Monitor Name|Serial Number)\h*:\h*(.*))+", 3) If IsArray($aMon) Then For $i = 0 to UBound($aMon)-1 step 2 Msgbox(0,"", $aMon[$i] & @crlf & $aMon[$i+1]) Next EndIf
    1 point
  6. Danyfirex, Great job as usual ! 👌 Now we can trash the old fashioned COM OCR library https://support.microsoft.com/en-us/topic/install-modi-for-use-with-microsoft-office-2010-4fbd3076-6d01-9cb7-c574-3bbabc9eead9 Which I still use daily as an integrated component of of Greenshot... https://audministrator.wordpress.com/2017/08/07/greenshot-adding-ocr/ Thanks for sharing !!
    1 point
×
×
  • Create New...