Jump to content
Ostap

_ArrayDisplay can't show multi-line cell

Recommended Posts

Ostap

I have a small script that checks if users from certain security groups exist or are disabled in AD. 

   For $j = Ubound ( $Users, 1 ) -1 To 0 Step -1
      Switch _AD_IsObjectDisabled ( $Users[$j] )
          Case 1
            ClipPut ( $Users[$j] & " - account disabled; " )
          Case 0
            If @error = 1 Then
               ClipPut ( $Users[$j] & " - account not found; " )
            Else
               ClipPut ( $Users[$j] & " - Ok; " )
            EndIf
      EndSwitch

   $Clip = $Clip & @CRLF & ClipGet ()
   Next

  $Data[$O][1] = $Clip

The code works correctly, at the end I have a 2D array $Data with security group in column 1 and checked user accounts in columns 2. However, _ArrayDisplay ( $Data ) shows users in one row, despite I added @CRLF. When I write $Clip to a text file, user accounts are written as column. Isn't it possible to have multiple-line cell split by @CRLF in _ArrayDisplay? 

Share this post


Link to post
Share on other sites
Subz

Can you post your full code, why are you using Clip functions, why not just concatenate the array and the string?

Share this post


Link to post
Share on other sites
Ostap

Clip functions are easy and they work. Full code is too long and not really relevant here, because question is about output formatting.

Just to illustrate what I am after, here's the code: 

#include <Array.au3>
Global $Array[1][2]
$Cell = "user1 - ok, " & @CRLF & "user2 - disabled, " & @CRLF & "user3 - not found"
$Array[0][0] = "Sometext"
$Array[0][1] = $Cell
_ArrayDisplay ( $Array )
MsgBox ( 0, "", $Cell )

How can I force _ArrayDisplay to show $Array[0][1] as in msgbox? 

Share this post


Link to post
Share on other sites
BrewManNH

_ArrayDisplay isn't meant to show multiline items, listviews in general don't show multiline items by default. You can look in the Examples section for something that might work.

That function is usually meant as a debugging tool and not really designed for much else

 


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites
mLipok
Posted (edited)

As I remember @LarsJ made this magic in one of his ListView Examples / UDF

Edited by mLipok

Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST API *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * 

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2018-03-17

Share this post


Link to post
Share on other sites
Bilgus
Posted (edited)

You can do it without too much trouble just be aware that if you are pushing a lot of data its going to be slow

#include <Array.au3>
Global $Array[1][2]
Global $iPos
$Cell = "user1 - ok, " & @LF & "user2 - disabled, " & @LF & "user3 - not found"
$iPos = Array_AddLine($Array, 0, "Sometext")
$iPos = Array_AddLine($Array, 1, $Cell)
$iPos = Array_AddLine($Array, 0, "SomeMoretext")
$iPos = Array_AddLine($Array, 1, $Cell & @LF & "user4 - went home")
ConsoleWrite("UBound " & $iPos & @CRLF)
_ArrayDisplay($Array)
MsgBox(0, "", $Cell)

Func Array_AddLine(ByRef $a2DArray, $iCol, $sItem)
    Local $aOut = StringSplit($sItem, @LF)
    If IsArray($aOut) Then
        Local $iCount = $aOut[0]
        $a2DArray[UBound($a2DArray) - 1][$iCol] = $aOut[1]
        If $iCount > 1 Then
            For $i = 2 To $iCount
                _ArrayAdd($a2DArray, $aOut[$i], $iCol)
            Next
        EndIf
    EndIf
    Return (UBound($a2DArray))
EndFunc

To speed it up a bit you could trade _ArrayAdd out for just straight assignment

 Create $Array with a good number of elements and keep a running count of items added in the first element of $Array

#include <Array.au3>
Global $Array[1000][2]
$Array[0][0] = 1
Global $iPos

$Cell = "user1 - ok, " & @LF & "user2 - disabled, " & @LF & "user3 - not found"
$iPos = Array_AddLine($Array, "Sometext", $Cell)
$iPos = Array_AddLine($Array, "SomeMoretext", $Cell & @LF & "user4 - went home")
ConsoleWrite("Pos " & $iPos & @CRLF)

_ArrayDisplay($Array, "", $iPos)

MsgBox(0, "", $Cell)

Func Array_AddLine(ByRef $a2DArray, $sItem1, $sItem2)
    $a2DArray[$a2DArray[0][0]][0] = $sItem1

    Local $aOut = StringSplit($sItem2, @LF)
    If IsArray($aOut) Then
        Local $iCount = $aOut[0]
        $a2DArray[$a2DArray[0][0]][1] = $aOut[1]
        $a2DArray[0][0] += 1

        If $a2DArray[0][0] + $iCount >= UBound($a2DArray) Then
            ReDim $a2DArray[UBound($a2DArray) + $iCount + 1000][2]
        EndIf

        If $iCount > 1 Then
            For $i = 2 To $iCount
                $a2DArray[$a2DArray[0][0]][1] = $aOut[$i]
                $a2DArray[0][0] += 1
            Next
        EndIf
    EndIf
    Return ($a2DArray[0][0])
EndFunc   ;==>Array_AddLine

 

Edited by Bilgus

Share this post


Link to post
Share on other sites
iamtheky

There are plenty of ways to organize it in that fashion if just for display.  Some much simpler to extract and reuse the data.

#include <Array.au3>
Global $Array[3][2]

$Cell1 = "user1 - ok" & @LF & "user2 - disabled" & @LF & "user3 - not found"
$Cell2 = "user4 - ok"
$Cell3 = "user5 - ok" & @LF & "user6 - ok"

$Array[0][0] = "Sometext1"
$Array[0][1] =  $Cell1
$Array[1][0] = "Sometext2"
$Array[1][1] =  $Cell2
$Array[2][0] = "Sometext3"
$Array[2][1] =  $Cell3

local $aOut[0]

for $i = 0 to ubound($Array) - 1
    _ArrayAdd($aOut , "       " & $Array[$i][0])
     $aSplit = stringsplit($Array[$i][1] , @LF , 2)
    _ArrayConcatenate($aOut , $aSplit)
Next

_ArrayDisplay($aOut)

 


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

Share this post


Link to post
Share on other sites
Chimp

as @mLipok has already indicated, if you want to truly write more lines in single cells instead of create more array elements, you should use the techniques explained in the following link by @LarsJ... (however it is not a trivial task)

 


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

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

    • TimRude
      By TimRude
      The help text for the _ArrayDisplay function says: "Clicking on a column header sort it."
      I'm wondering why the sorting of hex numbers (specifically window handles like 0x12345678) is so wonky.
      Sample script:
      #include <Array.au3> Local $aList = WinList() _ArrayDisplay($aList) Clicking on the Col1 header to sort by window handle doesn't properly sort the list.
      As a workaround, I'm sorting the array by window handle before displaying it using _ArraySort. But I still wonder what's up with the ListView sorting.
      Workaround:
      #include <Array.au3> Local $aList = WinList() _ArraySort($aList, 0, 1, 0, 1) _ArrayDisplay($aList)  
    • distancesprinter
      By distancesprinter
      _ArrayDisplay($aArray, "Window Title", "1:", 0, Default, "Column") ; Expected results are rows 1 to the end of the array, all columns. The result is rows 0-1, all columns. The API reference is here:
      https://www.autoitscript.com/autoit3/docs/libfunctions/_ArrayDisplay.htm
       
      Am I doing something wrong?
    • SorryButImaNewbie
      By SorryButImaNewbie
      Hello guys!
      I have a little problem in one of my function/functions. Here is my code:
      Func IsVisible($handle) If BitAND(WinGetState($handle), 4) Then ;If Not BitAND(WinGetState($handle), 16) Then If BitAND(WinGetState($handle), 2) Then Return 1 Else Return 0 EndIf EndIf EndFunc ;==>IsVisible Func _GetWindows() ; Global $i = 12 ;Local $anumber = 0 / or use &i? Dim $VisibleWindows[1][2] = [["0", ""]] $AllWindows = WinList() For $i = 1 To $AllWindows[0][0] If IsVisible($AllWindows[$i][1]) Then If $AllWindows[$i][0] <> "" And $AllWindows[$i][0] <> "Program Manager" Then ReDim $VisibleWindows[UBound($VisibleWindows) + 1][2] $VisibleWindows[0][0] = $VisibleWindows[0][0] + 1 $VisibleWindows[($VisibleWindows[0][0])][0] = $AllWindows[$i][0] $VisibleWindows[($VisibleWindows[0][0])][1] = $AllWindows[$i][1] EndIf Else EndIf Next _ArrayDisplay($VisibleWindows, "Visible Windows") ;If WinClose("Visible Windows", "") = 1 Then Idle() EndFunc ;==>_GetWindows This should display all windows and their respective handels that WinList function can find, and display it in a "Visible Windows" titled arraydisplay. All good there, script runs as expected. I copied the code for the _GetWindows() from here, and implemented it with minimal changes as I recall (sorry I found it more then a month ago).
      My problem is that If I try to close the "Visible Windows" Window, the script just reopens anotherone, basicly the only thing I can do is terminate the script somehow after I started to display this. I'm pretty sure that there is something small that I miss, but since I can't really bend my mind around the _GetWindows array creation, I can't really pinpoint why it opens it again when I close it.
      (I try to used WinClose but thats just stupid since there is noproblem with closing, the problem is the reopening, realized that while I was writing it)
      Thank you for your help!
    • TheDcoder
      By TheDcoder
      Hi, Please look at the code below:
      #include <File.au3> #include <Array.au3> ; -- Created with ISN Form Studio 2 for ISN AutoIt Studio -- ; #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <GuiButton.au3> #include <GuiListView.au3> Global $hGUI = GUICreate("GUIx",283,120,-1,-1,-1,-1) GUISetBkColor(0xFFFFFF,$hGUI) $hListX = GUICtrlCreatelistview("ColumnX|ColumnY|ColumnZ",4,4,269,65,4,544) ; GUICtrlCreatelistview("ListX",7,4,269,65,-1,512) GUICtrlSetData(-1, "ColumnX|ColumnY|ColumnZ") $hButtonY = GUICtrlCreateButton("ButtonY",20,80,100,30,-1,-1) $hButtonZ = GUICtrlCreateButton("ButtonZ",160,80,100,30,-1,-1) GUISetState() While True $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $hButtonY AddRows() EndSwitch WEnd Func AddRows() Local $aFiles = _FileListToArray(@ScriptFullPath & '\FolderX', Default, Default, True) _ArrayDisplay($aFiles) Local $aContent[9] For $i = 0 To UBound($aFiles) - 1 MsgBox(0, "", $aFiles) $aContent = FileReadToArray($aFiles[$i]) Next For $i = 0 To UBound($aContent) - 1 Step 3 GUICtrlCreateListViewItem($aContent[$i] & '|' & $aContent[$i + 1] & '|' & $aContent[$i + 2], $hListX) Next EndFunc _ArrayDisplay at line no. 33 is not working, I don't know what is happening...
      Thanks in Advance, TD
      P.S Actually the code was for another question but while debugging the code, I encountered this problem
    • pseakins
      By pseakins
      I am running the production version of AutoIt 3.3.10.2 on Windows 7 Enterprise 64bit.
      I have found that _ArrayDisplay will go blank after several seconds. See the attached screen caps. The delay period is arbitrary. This occurs both in interpretive execution and in a compiled exe. This does not occur when I run the same code on a Windows XP SP3 machine with 3.3.10.2. The condition is consistent (for me) running the following code. 
      #include <Array.au3> Dim $array[10] = ['Running Windows 7 Enterprise 64bit', 'Just wait 5 to 30 seconds or so.', _ 'This ArrayDisplay will go blank (grey).', 'Clicking in the display will refresh', _ 'individual lines.', 'See the screencaps.'] _ArrayDisplay($array)


×