Jump to content

Little help with Array needed

Go to solution Solved by kylomas,

Recommended Posts

I've been working on a program for a while now to help me with my job in data entry, I'm facing one last issue and I think using an Array might just do the job.

Most of the data I work with contains 1 medical code "example: E11", I made 2 input boxes in my program one for the letter and the 2nd for the number, sometimes i get cases with +2 medical codes, I want a way to put as many medical codes as needed before I run the program.

A little more explanation:

I get a case with 1 medical code, i enter it in my program then run it, the program then enters the needed information plus that code, if i get 2 medical codes, I have to wait for the program to finish it work then enter the 2nd code manually, I added a little button that when clicked will do the part of the program where it enters the medical codes so that way i only have to enter the 2nd code and click the button (without using my program i have to wait for 4 loading screens).

Here is what I came up with so far:

Local $finalMC1 = GUICtrlRead($Medical)
Local $finalMC2 = GUICtrlRead($Medical2)
Global $MC[1][2] = [[$finalMC1, $finalMC2]]
If _GUICtrlEdit_LineLength($Medical2) = 2 And _GUICtrlEdit_GetModify($Medical2) > 0 Then
    ReDim $MC[UBound($MC) + 1][2]
    $MC[UBound($MC) - 1][0] = $finalMC1
    $MC[UBound($MC) - 1][1] = $finalMC2
    GUICtrlSetState($Medical, $GUI_FOCUS)
    _GUICtrlEdit_SetModify($Medical2, False)


So basically if $Medical2 = 2 characters the script will resize the array and add the values of $Medical and $Medical1 to it, so far so good.

Next thing I'll be needing is to find out how many items are in the $MC array (found out that Ubound will do the job on this one), I tried using "For...To...Step...Next", then the script threw the following error: "ReDim" used without an array variable.", To be completely honest here I have no idea whats causing that error, this is my 1st time working with Arrays, UBound and ReDim, I got the way for resizing 2D Arrays from a post here on the forums, I tried googling the error and came back with nothing, It's really getting irritating...

Link to post
Share on other sites
  • Solution


You will get more expediant help by posting runnable code.  I've added a gui def and re-aligned some of the variable def's to get something runnable.  If your intent is to add the values read from each edit control to a 2D array then the following does just that.

#include <GuiEdit.au3>
#include <GUIConstantsEx.au3>
#include <array.au3>


local $gui010       =   guicreate('',400,500)
Local $aSize        =   WinGetClientSize($gui010)
local $Medical  =   guictrlcreateedit('Medical',20,20,100,60)
local $Medical2 =   guictrlcreateedit('Medical2',20,150,100,60)

local $finalMC1, $finalMC2, $MC[0][2]

while 1
    switch guigetmsg()
        case $GUI_EVENT_CLOSE

    $finalMC1 = GUICtrlRead($Medical)
    $finalMC2 = GUICtrlRead($Medical2)

    If _GUICtrlEdit_LineLength($Medical2) = 2 And _GUICtrlEdit_GetModify($Medical2) > 0 Then
    ReDim $MC[UBound($MC) + 1][2]
    $MC[UBound($MC) - 1][0] = $finalMC1
    $MC[UBound($MC) - 1][1] = $finalMC2
    GUICtrlSetState($Medical, $GUI_FOCUS)
    _GUICtrlEdit_SetModify($Medical2, False)


If you need help with existing, runnable code, then post it.


edit: incidentally, _GuiCtrlEdit_GetModify returns true or false so the coding should look like..

If _GUICtrlEdit_LineLength($Medical2) = 2 And _GUICtrlEdit_GetModify($Medical2) Then
Edited by kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

Link to post
Share on other sites

kylomas, Thank you for the great help, the only existing code I have is what I posted, I can't post a running code because the script runs on a UNHCR website that requires a username and password, and putting together part of my script to make a runnable one doesn't give the exact results as running it in the script itself (no clue why, still looking it up).

Thank you again, I really appreciate it.

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
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By AnonymousX
      I'm trying to make a program that can look at a folder directory, find all the CSV files, and then add the data from CSV's to an array. 
      The problem I seem to be running into is on the 2nd iteration (2nd file) when the script will not create an array. Could someone please help? Thanks in advance
      #include <Array.au3> #include <File.au3> #include <MsgBoxConstants.au3> #include <Excel.au3> #include <MsgBoxConstants.au3> Global $MasterArray RefineData() Func RefineData() Local $i, $filenum, $file, $csvArray, $sFilePath = @ScriptDir $fileList = _FileListToArrayRec($sFilePath, "*.csv", 1) ;Create and array of all .csv files within folder ;=====Loop through the .csv files within the folder====== For $filenum = 1 To UBound($fileList) - 1 Step 1 $file = $fileList[$filenum] $sFilePath = $sFilePath & "\" & $file ;=====Create array based on csv file===== _FileReadToArray($sFilePath, $csvArray, $FRTA_NOCOUNT, ",") _ArrayDisplay($csvArray,"File: " & $filenum) If $filenum = 1 Then $MasterArray = $csvArray _ArrayDisplay($MasterArray, "Master") Else $MasterArray = _ArrayColInsert($MasterArray, UBound($MasterArray)) ;want column added at end For $i = 0 To UBound($MasterArray)-1 Step 1 $MasterArray[$i][UBound($MasterArray) - 1] = $csvArray[$i][4] Next _ArrayDisplay($MasterArray, "Master") EndIf Next EndFunc ;==>RefineData  
    • By TheDcoder
      Hello, I wonder if there is a better way than this!:
      #include <Array.au3> Local $aArray[1][3] $aArray[0][0] = 1 $aArray[0][1] = 2 $aArray[0][2] = 3 ;$aArray[0] = [1, 2, 3] _ArrayDisplay($aArray)IIRC line no. 9 should work, but its not
      Thanks in Advance, TD
    • By TThomasson
      Hi everyone. New guy here. I'm still learning this awesome language and I'm unable to figure this one out from google searches. Heres my problem:
      I'm working on a small application to help users in my environment connect to wireless projectors. To keep this easily updated with new projectors I'm reading the room names and IP addresses from a csv file and putting them into a 2D array. (MeetingRoom1,xxx.xxx.xxx.xxx)
      So far I'm able to read the 0 column and display the room names in a combo box. Where I am stuck is how to take the user's room selection from the gui and associate it with an IP address in the array. After that point I've got things prepared to pass the address to the connection application.  
      Any help you all could provide would be greatly appreciated. 
    • By DJKMan
      This script is fairly straightforward. If you ever worked with large files before then this may be of help. By large I mean files of 2 MB or so. Granted this doesn't sound so big but going through the file and parsing it to a 2D array all at once took an astronomical amount of time so I wrote my own function to handle this. I discovered that chunking a large array can boost the performance of iterating through the elements and theoretically this should maintain the performance no matter how large the array size is. I know there is room for improvement so please feel free to contribute! 
      Note: I wasn't able to fully test this on larger files such as 200 MB in size due to AutoIt complaining about an error allocating memory while executing _FileReadToArray(). Any help is appreciated.
      Chunking (Performance will never degrade over time; I.E. Capable of parsing 200 lines or 20,000 and no performance hit will occur) Automatically re-sizes to dynamic columns  Preserves Columns while parsing FAST!!!!!! (I can parse a file that contains 24,000 lines with variable columns up to 8 columns and it will finish under a second.) Script:
      Example usage:
      Local $aExport ;Initialize array _FileReadToArray("LARGE TEXT.txt", $aExport) ;Returns 1D array of file Local $aSheet = _ArrayTo2DArray($aExport) ;Converts it to 2D Example Text File:
      LARGE TEXT.txt
      This script was inspired by >this post.
      *Updated attachment: Minor bug fixes*
      *UPDATE June 6, 2013: I apologize! I just realized I made a complete mess of the algorithm. I'm working on a fix now.*
      *UPDATE June 6, 2013: Bug fixed! It's attached in the post now.
    • By cyberbit
      NOTICE: The most current update contains script-breaking changes! The function now works exactly like _ArrayConcatenate. It does not return a value, but sets the parent array as the concatenated array.
      I know there's examples of this, but I thought I share this one with you. It's fully commented to aid those learning the language. Supports vertical and horizontal merging. There's minimal explicit variables by design. Not very elegant, but it works.
      One advantage this method has is zero dependencies. The dependencies in the download are for the example.
      EDIT: Updated script to UDF standards.
      EDIT2: Converted to ByRef and Const ByRef parameters (script breaking change!)
      Previous versions:

      Examples in next post. Script above contains examples.
  • Create New...