_ArrayDisplay any other options?

[Chimaera]

Having a little prob with displaying an array of items for a user

Ive obtained all 6 arrays then added together then used

$aArrayShow = _ArrayUnique( $aHKLM_Run_Deleted)

This works

$sFile = @ScriptDir & "\RegBackup\deleted_log.txt"
_FileWriteFromArray( $sFile , $aArrayShow)
ShellExecuteWait( $sFile)

Just dosent look nice opening a notepad

This works

_ArrayDisplay($aArrayShow, "Deleted Items")

Again doesnt look nice having the array box with the copy selected bit at the bottom and the excel type boxes etc

But this which is the one i would like to use doesnt work

SplashTextOn( "Removed Items", $aArrayShow & @CRLF)
Sleep(4000)
SplashOff()

it displays the splash fine but no text on it

Is there a simple way to get the splash to show the array items so i can make a better looking display?

The array is fine and working properly its the display of it that is an issue

Any suggestions?

[guinness]

SplashTextOn doesn't support arrays being passed to it. Look at the GUI functions to create a 'custom' _ArrayDisplay() by using GUICtrlCreateListView & GUICtrlCreateListViewItem & to get an idea of how I did it or would do it look at the example

[JohnOne]

Loop through the array adding the elements

Local $SplashText = ''
For $i = 0 To UBound($aArrayShow) -1
$SplashText &= $aArrayShow[$i & @CRLF)
Next
SplashTextOn( "Removed Items", $SplashText)

[Chimaera]

getting this error

Error in expression.:
$SplashText &= $aArrayShow($i & @CRLF)
$SplashText &= ^ ERROR

[JohnOne]

$SplashText &= $aArrayShow[$i] & @CRLF

[Chimaera]

aah thats why thx guys

i corrected the square one i should have changed the other lol

[AdamUL]

I prefer to use _ArrayToString for something like this. Using your preferred method.

#include <Array.au3>
Global $aArrayShow[7] = [6, "Item 1", "Item 2", "Item 3", "Item 4", "Item 5", "Item 6"]
 
SplashTextOn( "Removed Items", _ArrayToString($aArrayShow, @CRLF, 1) & @CRLF)
Sleep(4000)
SplashOff()

Adam

[Chimaera]

Thx adam ill have a look later

One extra question

When the array is made for every concatenate it has a number at the top so i end up with numbers here and there in the list.

Is there a way to exclude all numbers from the final list, the items the list will display has no numbers at all

$aArrayShow = _ArrayUnique($aHKLM_Run_Deleted)
$sFile = @HomeDrive & "\RegBackup\deleted_log.txt"
_FileWriteFromArray($sFile, $aArrayShow)
 
Local $SplashText = ''
   For $i = 2 To UBound($aArrayShow) - 1
    $SplashText &= $aArrayShow[$i] & @CRLF
   Next
   SplashTextOn("Removed Items", $SplashText, 250, 350, -1, -1, 6)
   Sleep(4000)
   SplashOff()

[JohnOne]

When the array is made for every concatenate it has a number at the top so i end up with numbers here and there in the list.

I don't understand this, can you give a representation of what the splashtext looks like?

[Chimaera]

Ok ill try but i haven't got a test one

From memory

2 ;<<<these 2 are from the main creation

1

Acer Assist Launcher

ACMON

4 ; << this one is added from one of the concatenates, its the header from another array

ISUSPM

What i want to see is

Acer Assist Launcher

ACMON

ISUSPM

does that make any sense?

[JohnOne]

Perhaps something like this.

Local $SplashText = ''
For $i = 2 To UBound($aArrayShow) - 1
If Not StringIsAlNum($aArrayShow[$i]) Then; if the element is not just alpha numeric chars, then add it.
  $SplashText &= $aArrayShow[$i] & @CRLF
EndIf
Next
SplashTextOn("Removed Items", $SplashText, 250, 350, -1, -1, 6)
Sleep(4000)
SplashOff()

[Chimaera]

ok thanks i made a fake reg key to get a log

4
1
 
2
uTorrent

But the splash showed nothing i think the space maybe interfering

another test one

7
1
 
3
MSMSGS
nwiz
4
uTorrent

again splash was empty

Tried this with partial success

If Not StringIsAlNum($aArrayShow[$i]) Or Not StringIsSpace($aArrayShow[$i]) Then; if the element is not just alpha numeric chars, then add it.
   $SplashText &= $aArrayShow[$i] & @CRLF
   EndIf

7 ;<< it removed this
1;<< it removed this
     ;<< it removed this
3 ;<< but not this
MSMSGS

Edited September 17, 2011 by Chimaera

[czardas]

I thought there might be a flag for this, but it seems not. The simplest way would be to delete the first element.

#include <Array.au3>
Local $aArray[8] = ["Bob","Bob","Alice","John","Jane","Alice","John","Mary"]
$aArray = _ArrayUnique($aArray)
_ArrayDisplay($aArray, "Before")
_ArrayDelete($aArray, 0)
_ArrayDisplay($aArray, "After")

[Chimaera]

Ok i went back to the source for each array and removed the first element and the same for the unique and i still get a space but all numbers seem to have gone

If Not StringIsSpace($aArrayShow[$i]) Then
   $SplashText &= $aArrayShow[$i] & @CRLF
   EndIf

Im attempting to use this to remove the space but from testing i get the feeling it will still turn up

thx again

[czardas]

I'm not sure where the spaces are coming from. I made a change to John's code above. Does this remove the spaces?

Local $SplashText = ''
For $i = 0 To UBound($aArrayShow) -2 ; <== Changed this
$SplashText &= $aArrayShow[$i] & @CRLF
Next
$SplashText &= $aArrayShow[$i] ; <== Do not concatenate @CRLF at the end
SplashTextOn( "Removed Items", $SplashText)

Hmm, I think I'm wrong there. It was just a quick guess. Perhaps you could post the code you have ATM.

Edited September 17, 2011 by czardas

[Chimaera]

the space is the 0 part of the array

ur code gave me

ACMON
Adobe ARM

in the save file but the splash was

ACMON

weird

without ur addition it shows both items in the splash with a space above them

truthfully the extra space above the items isnt that big a deal now i have no numbers, ill play around and see what happens

thanks again

Edited September 17, 2011 by Chimaera

[JohnOne]

How about this?

Local $SplashText = ''
For $i = 2 To UBound($aArrayShow) - 1
If Not StringIsAlNum(StringStripWS($aArrayShow[$i],8)) Then; if the element is not just alpha numeric chars after all white space removed, then add it.
  $SplashText &= $aArrayShow[$i] & @CRLF
EndIf
Next
SplashTextOn("Removed Items", $SplashText, 250, 350, -1, -1, 6)
Sleep(4000)
SplashOff()

Edited September 17, 2011 by JohnOne

[czardas]

Yeah that's strange. It must be something in your code. When you say 'the space is the 0 part of the array', do you mean it is the first element (element zero). Is it just an empty string? You could try:this:

Local $SplashText = ''
For $i = 0 To UBound($aArrayShow) -1
If ($aArrayShow[$i] = "") Or StringIsSpace($aArrayShow[$i]) Then ContinueLoop ; Return to the start of the loop
$SplashText &= $aArrayShow[$i] & @CRLF
Next
SplashTextOn( "Removed Items", $SplashText)

[Chimaera]

With a combination of both its sorted now as far as removing the the uneeded chars

The only thing im curious about is..

Is there a way to list a total for how many it has found?

So that i can display a count it has found "X" items for removal?

I had a look at

Local $aResult = _ArrayFindAll($SplashText, "") < tried 0 as well
   ConsoleWrite($aResult)

But it just reurns -1 either way

Then i noticed _ArrayCombinations gives this

Returns an array, the first element ($array[0]) contains the number of strings returned.

So is there a way to give me just the number of strings?

[czardas]

Count as you go along. From the previous example:

Local $SplashText = ''
Local $iCount = 0
For $i = 0 To UBound($aArrayShow) -1
If ($aArrayShow[$i] = "") Or StringIsSpace($aArrayShow[$i]) Then ContinueLoop ; Return to the start of the loop
$SplashText &= $aArrayShow[$i] & @CRLF
$iCount += 1
Next
SplashTextOn( "Removed Items", $SplashText)

Subtract $iCount from the total to get the number of items removed.

Edited September 21, 2011 by czardas