Help - How can I

[WhOOt]

I found out!

Now I just need to find out, how I can stop the script;

while 1
        $i = $i + 1
    _TalkOBJ($besked1[$i], 3)
    if @error then exitloop
        
wend

The if @error then exitloop doesn't work, I guess because it isn't stated as an error?

Edited March 6, 2006 by WhOOt

[Stumpii]

What is _TalkOBJ?

Does its documentation detail that it set @error?

Need more details to help.

[WhOOt]

What is _TalkOBJ?

Does its documentation detail that it set @error?

Need more details to help.

Yea, sorry

Func _TalkOBJ($s_text, $s_voice = 3)
    Local $o_speech = ObjCreate ("SAPI.SpVoice")
        Select
            Case $s_voice == 1
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mary", "Language=409").Item(0)
            Case $s_voice == 2
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mike", "Language=409").Item(0)
            Case $s_voice == 3
                $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Sam", "Language=409").Item(0)
                $o_speech.rate = 3
        EndSelect
    $o_speech.Speak ($s_text)
    $o_speech = ""
EndFunc ;==>_TalkOBJ

[Stumpii]

For one thing, you should add error detection after the creation of the object. Refer to the help file under the ObjCreate function for detials.

Under what condition do you actually want to end?

As for trying to catch a COM object error, you script will end. This is detailed in the help file: "An AutoIt script will immediately stop execution when it detects a COM error. This is the default and also the safest setting. In this case you have to take measures in your script to prevent the error from happening.".

Ideally, you should not wait for an error to occur, you should use any features available with the object to determine when you are done. As I don't know the object you are using, I would suggest searching the forums for other scripts using the same object. I think I remember seeing some.

[WhOOt]

Yea

But what I wanna find an error for is;

$besked = clipget()
    $besked1 = stringreplace($besked, "?", ".")
    $besked2 = stringreplace($besked1, "!", ".")
    $besked3 = stringreplace($besked2, ",", ".")
    $besked4 = stringsplit($besked3, "." )


while 1
        $i = $i + 1
    _TalkOBJ($besked4[$i], 3)
    if @error then exitloop
        
wend

I wanna check, if $besked4[] is extended --> if there are 4 words split by the stringsplit then it shouldn't go on, trying to read 5 and 6

This is the error I get

==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: 
_TalkOBJ($besked4[$i], 3)

[Stumpii]

Yea

But what I wanna find an error for is;

$besked = clipget()
    $besked1 = stringreplace($besked, "?", ".")
    $besked2 = stringreplace($besked1, "!", ".")
    $besked3 = stringreplace($besked2, ",", ".")
    $besked4 = stringsplit($besked3, "." )
while 1
        $i = $i + 1
    _TalkOBJ($besked4[$i], 3)
    if @error then exitloop
        
wend

I wanna check, if $besked4[] is extended --> if there are 4 words split by the stringsplit then it shouldn't go on, trying to read 5 and 6

This is the error I get

==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: 
_TalkOBJ($besked4[$i], 3)

If I understand you right, you want this:

$besked = clipget()
    $besked1 = stringreplace($besked, "?", ".")
    $besked2 = stringreplace($besked1, "!", ".")
    $besked3 = stringreplace($besked2, ",", ".")
    $besked4 = stringsplit($besked3, "." )


For $iIndex = 0 To UBound($besked4) - 1
    _TalkOBJ($besked4[$iIndex], 3)
Next

Better to not generate an error, than to try and catch one.

Edited March 6, 2006 by Stumpii

[WhOOt]

If I understand you right, you want this:

$besked = clipget()
    $besked1 = stringreplace($besked, "?", ".")
    $besked2 = stringreplace($besked1, "!", ".")
    $besked3 = stringreplace($besked2, ",", ".")
    $besked4 = stringsplit($besked3, "." )
For $iIndex = 0 To UBound($besked4) - 1
    _TalkOBJ($besked4[$iIndex], 3)
Next

Better to not generate an error, than to try and catch one.

Thanks alot mate! this is just what I'm looking for!