Valnurat

How do I delete empty cells in a 2D array.

41 posts in this topic

#1 ·  Posted

I have a

Global $aResult[0][2]

For $i = 0 to UBound($aNames) -1
    Local $aUserInfo = _AD_GetObjectsInOU($aNames[$i],"","","displayName,distinguishedName")
    _ArrayDisplay($aUserInfo)
    _ArrayConcatenate($aResult, $aUserInfo, 1)
    _ArrayDisplay($aResult, 'AD ' & UBound($aResult))
Next

I do receive empty info that's added to my array.

How can I delete empty records?


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites



#2 ·  Posted

Loop through the array from the end to the start und use _ArrayDelete to get rid of empty cells. 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#3 ·  Posted

Valnurat,

Just for grins...

#include <array.au3>

Local $aArray = [[1, 2, 3], ['', '', ''], [4, 5, 6], [7, 8, 9, 0], ['', '', 'a', 'b'], [''], ['last row first cell']]

_ArrayDisplay($aArray)

For $i = UBound($aArray) - 1 To 0 Step -1
    For $j = 0 To UBound($aArray, 2) - 1
        If $aArray[$i][$j] <> '' Then ExitLoop
    Next
    If $j - 1 = UBound($aArray, 2) - 1 And $aArray[$i][$j - 1] = '' Then _ArrayDelete($aArray, $i)
Next

_ArrayDisplay($aArray)

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

Share this post


Link to post
Share on other sites

#4 ·  Posted

Exactly what I suggested above ;) 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#5 ·  Posted

@water - Yes, just #@$%# around...nice sunny day here in central US...


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

Share this post


Link to post
Share on other sites

#6 ·  Posted

:) 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

#include <array.au3>

Local $aArray = [[1, 2, 3], ['', '', ''], [4, 5, 6], [7, 8, 9, 0], ['', '', 'a', 'b'], [''], ['last row first cell']]

msgbox(0 , '' , stringstripWS(StringRegExpReplace(_ArrayToString($aArray) , "\|\|+" , " ") , 4))

yall don't #@$$$%# around nearly enough

Edited by iamtheky
2 people like this

,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-.
|(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/
(_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_)
| | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) (
| | | | |)| | \ / | | | | | |)| | `--. | |) \ | |
`-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_|
'-' '-' (__) (__) (_) (__)

Share this post


Link to post
Share on other sites

#8 ·  Posted

10 hours ago, iamtheky said:
#include <array.au3>

Local $aArray = [[1, 2, 3], ['', '', ''], [4, 5, 6], [7, 8, 9, 0], ['', '', 'a', 'b'], [''], ['last row first cell']]

msgbox(0 , '' , stringstripWS(StringRegExpReplace(_ArrayToString($aArray) , "\|\|+" , " ") , 4))

yall don't #@$$$%# around nearly enough

How do I use this? How do I put this back to an array?


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

EDIT: just answering the last question without regard to whether or not the output should be a 1D or 2D array.  If you liked the output that @iamtheky created and just want it in an array then this should work it assigns the string to a variable that splits the string back into an array using carriage returns with line feeds as the delimiter. 

#include <array.au3>

Local $aArray = [[1, 2, 3], ['', '', ''], [4, 5, 6], [7, 8, 9, 0], ['', '', 'a', 'b'], [''], ['last row first cell']]
$newArray=StringSplit(stringstripWS(StringRegExpReplace(_ArrayToString($aArray) , "\|\|+" , " ") , 4),@CRLF)
_ArrayDisplay($newArray)

 

Edited by Jfish
1 person likes this

Build your own poker game with AutoIt: pokerlogic.au3 | Learn To Program Using FREE Tools with AutoIt

Share this post


Link to post
Share on other sites

#10 ·  Posted

Ok, but this just end up in 1D array. It has to be in a 2D array.


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

I don't understand this request. Are you trying to delete empty rows in a 2D array? Deleting empty cells is impossible without also deleting rows or columns.

Edited by czardas

Share this post


Link to post
Share on other sites

#12 ·  Posted

also, why don't you check for empty records before the  _ArrayConcatenate() ?


small minds discuss people average minds discuss events great minds discuss ideas.... and use AutoIt....

Share this post


Link to post
Share on other sites

#13 ·  Posted

46 minutes ago, Chimp said:

also, why don't you check for empty records before the  _ArrayConcatenate() ?

That would be cheating.  Too easy. :)

1 person likes this

Share this post


Link to post
Share on other sites

#14 ·  Posted

17 hours ago, czardas said:

I don't understand this request. Are you trying to delete empty rows in a 2D array? Deleting empty cells is impossible without also deleting rows or columns.

My mistake. I will ofcourse delete rows. Just my bad words of choice.

 

17 hours ago, Chimp said:

also, why don't you check for empty records before the  _ArrayConcatenate() ?

And if I want to do that. How should I do that? Is there a UDF for this?


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites

#15 ·  Posted

Do not use _ArrayConcatenate but loop through $aUserInfo and only write non blank rows to $aResult.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#16 ·  Posted

Ok. I will do that.

Thank you for all your answers.


Yours sincerely

Kenneth.

Share this post


Link to post
Share on other sites

#17 ·  Posted

On 22/3/2017 at 8:12 AM, Valnurat said:

.... And if I want to do that. How should I do that? Is there a UDF for this? ....

I don't know what exactly is returned by the _AD_GetObjectsInOU() function , (emmm... sorry @water :)) , expecially when there is not data returned, anyway if you have only to scan all records to see if are all empty then something like this should do (not tested):

Global $aResult[0][2]
Local $aUserInfo

For $i = 0 To UBound($aNames) - 1
    $aUserInfo = _AD_GetObjectsInOU($aNames[$i], "", "", "displayName,distinguishedName")
    If _IsNotEmpty($aUserInfo) Then ; there is data in the record?
        ; _ArrayDisplay($aUserInfo)
        _ArrayConcatenate($aResult, $aUserInfo, 1)
    EndIf
Next

_ArrayDisplay($aResult, 'AD ' & UBound($aResult))

Func _IsNotEmpty(ByRef $aData)
    ; returns True if record contains data otherwise returns False
    Local $iSum = 0
    For $x = 1 To UBound($aData) - 1
        $iSum += $aData[$x] <> "" ; count not empty fields
    Next
    Return $iSum > 0 ; returns true if record is not empty
EndFunc   ;==>_IsNotEmpty

 


small minds discuss people average minds discuss events great minds discuss ideas.... and use AutoIt....

Share this post


Link to post
Share on other sites

#18 ·  Posted

Or you could modify the LDAP query so it only returns records where displayname<>""

2 people like this

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#19 ·  Posted

Here is the _AD_GetObjectsInOU with the proper LDAP query that should get you what you need.  As mentioned by water.  This query only finds user accounts, and not computer accounts. 

$aUserInfo = _AD_GetObjectsInOU($aNames[$i], "(&(objectCategory=Person)(objectclass=user)(displayName=*))", "", "displayName,distinguishedName")

Here is some info on using LDAP Queries.  

 

Adam

 

1 person likes this

Share this post


Link to post
Share on other sites

#20 ·  Posted

Ok. I will try a different approach.

$aUserInfo = _AD_GetObjectsInOU("OU=company,DC=ad,DC=company,DC=org", "(&(objectCategory=Person)(objectclass=user)(sAMAccountName=" & $aNames[$i] & "*))", "", "displayName,distinguishedName")

But the result of this ends up with users that I'm not interested in. I would like to avoid where "TransferZone" is exists in distinguishedName.

Is it possble to add an extra filter?


Yours sincerely

Kenneth.

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

  • Similar Content

    • sree161
      By sree161
      Hi,
      i have a code which generates two numeric outputs.i have to save them in excel.
      Is there any way to export them to specific cells in excel???
    • TotalAuto
      By TotalAuto
      Howdy All
      I've gone around and around in circles wasting hours trying to fix this problem to no avail so I thought I would try posting for help given there are some real smart people in this forum.
      Background
      I have 5 separate .au3 scripts that all do different basic tasks. For example:
      1.au3 = opens Chrome browser to obtain information from a specific website then closes
      2.au3 = opens an Excel workbook to run a macro then saves and closes
      3.au3 = Open two seperate workbooks and transfers data from one to the other then saves and closes
      4.au3 = .......etc
      5.au3 = .......etc
      These 5 separate scripts, doing completely different tasks, need to each run once per day at 5 different designated times within a day and then close. For example:
      1.au3 = 10am
      2.au3 = 12pm
      3.au3 = 2pm
      4.au3 = 4pm
      5.au3 = 5pm
      Problem
      I can not get these different scripts to reliably run at their designated times. When I manually run these scripts individually by using 'Go F5' they work perfectly. If I convert these scripts to an .exe and manually run each one they work about 98% of time.
      How can I schedule these different .au3 files or associated .exe files to reliably run each day at different times?
      Attempts To Fix The Issue
      1. I have tried converting each .au3 script into their own .exe file and use Window's Task Scheduler to run these .exe files at their designated time but the success rate  of running each .exe in full, to completion, without error is very low at about 30%. Things that commonly go wrong include a browser not opening but movement still continues on the desk top. Other times things just do not happen at all.
      2. I have Windows 7 64 bit and have tried creating and running both (x86) and (x64) .exe files but again reliability problems exist;
      3. I have also tried moving each .exe file to the My Documents folder as I read someone that keeping your files on your desktop ties your files to individual Windows user profiles which can cause AutoIt operating errors. Not sure if this is correct but thought I would try it anyway. It did not fix my issue.
      4. I installed a program called AlwaysUp which supposedly always reliably runs in the background and will reliably execute your AutoIt script or .exe files. Still have significant reliability issues.
      Therefore, can someone please provide advice on how I can get my 5 different .au3 files to run at 5 designated times through the day, every day, without fail? Overtime I will be creating more and more different .au3 files to run certain tasks throughout the day and do not want to create one large AutoIt file that continually runs and attempts to do all the different tasks itself.
      Any help is very appreciated.
      Thanks
      Dan
       
       
    • hugomito
      By hugomito
      Hi all,
      I built an AutoIt application that interacts with several other applications/software. Now, it's turn to interfact with Visual Studio Team Services (VSTS).
      Does anyone has a blog, demo, script to share?
      Thanks!
    • Viki
      By Viki
      This is my first time here so please dont bombard me that what a silly question I am asking!!
      I have 500 rows (A1:A500) in a spreadsheet and I just want to copy one by one row and then paste into another application and then press enter, loop should repeat this until finishes all 500 rows.
      I have looked at clipget(), clip(put() but dont know how to select next row in next turn. I also looked at Array to store but again no luck. Can some guide me please..
    • DineshPawar
      By DineshPawar
      0down votefavorite   In my current project, Excel macro open AutoIt script using a function Call Shell("location of autoit script").
      For proper functioning of AutoIt script it's need to be close parent Excel workbook, so this closing Excel action is written in AutoIt script itself.
      But as soon as AutoIt script close parent Excel workbook then script get pause and it do nothing.
      How open the AutoIt script from Excel workbook and after that parent Workbook get close?