How to ignore exceeded array (or return 0)

[leuce]

G'day everyone

I'm writing a script that segments a piece of text, then displays the contents of it using an array. I don't know in advance how big the array will be, so I'd like the script to return "0" if it asks for an array item that is nonexistant. Can this be done?

Basically, the text is something like this:

'asdfa' 'asdf1x'

'asdfb' 'asdf2x'

'asdfc' 'asdf3x'

'asdfd' 'asdf4x'

The above text is added to the clippboard, and then my code is this:

$split = StringSplit ($clip, "'", 0)

ToolTip ("Numbers:" & @CRLF & @CRLF & "1. " & $split[4] & @CRLF & "2. " & $split[8] & @CRLF & "3. " & $split[12] & @CRLF & "4. " & $split[16] & @CRLF & "5. " & $split[20] & @CRLF & "6. " & $split[24] & @CRLF & "7. " & $split[28] & @CRLF & "8. " & $split[32] & @CRLF & "9. " & $split[36] & @CRLF &  @CRLF & "End of numbers.", 20, 20, "")

I want the tooltip to display this:

1. asdf1x

2. asdf2x

3. asdf3x

4. asdf4x

or this:

1. asdf1x

2. asdf2x

3. asdf3x

4. asdf4x

5.

6.

7.

8.

9.

of even this:

1. asdf1x

2. asdf2x

3. asdf3x

4. asdf4x

5. 0

6. 0

7. 0

8. 0

9. 0

Can this be done? Or else, is there a simple way to integrate a For-Next loop with a MsgBox so that I can include only the number of items that exist?

Alternatively, is it possible to add to an array (add to the end of it) so that I may add a sufficient number of dummy entries to the end of it?

Thanks

Samuel

[jvanegmond]

Dim $Test[4] = ["000","001", "010", "011"]

_ArrayDisplayLeuce($Test)

Func _ArrayDisplayLeuce($sArray)
    Local $sSize = UBound($sArray)-1
    Local $sReturn = "Numbers:" & @LF
    
    For $x = 0 to $sSize
        $sReturn &= $x & ". " & $sArray[$x] & @LF
    Next
    
    ToolTip($sReturn)
EndFunc

Edited April 13, 2007 by Manadar

[leuce]

Dim $Test[4] = ["000","001", "010", "011"]

Thanks for that! I'll give a try sometime.

As a matter of fact, I solved it by just adding to the array. A very dirty solution, though.

[jvanegmond]

:S

It was about this part:

Func _ArrayDisplayLeuce($sArray)
    Local $sSize = UBound($sArray)-1
    Local $sReturn = "Numbers:" & @LF
   
    For $x = 0 to $sSize
        $sReturn &= $x & ". " & $sArray[$x] & @LF
    Next
   
    ToolTip($sReturn)
EndFunc

Not the dimming of the array..

I hate when you put time and effort into solving someone else's problem, and they just say "Never mind, I've figured it out!! I'll try your solution another time.". That is just so ungrateful!

Edited April 13, 2007 by Manadar

[Neoborn]

If you hate it that much then don't help ...

Think of it this way you may help others in the future...