Subscript used with non-Array variable

[TheRock]

I am new at Scripting . Please help me

#include <GUIConstants.au3>
#include <String.au3>
#include <array.au3>
#include <inet.au3>

reset()
Local $sonuc
Local $sonu[1]

$link = InputBox("ENTER", "Enter The URL", "", "")
#EndRegion ### END Koda GUI section ###
While 1
If Not $link = "" Then
$a = _INetGetSource($link)
$s = _StringBetween($a,'flv_url=','&amp;url_')
MsgBox(0,"",$s[0])
$s2 = _StringBetween($s[0],'.com_','.flv')
;~ MsgBox(0,"",$sonu[0])
$dw = $s[0] & "&OBT_fname=sitename.com_" & $s2[0] & ".flv"
MsgBox(0,"",$dw)
ClipPut($dw)
reset()
Exit
Else
Exit
EndIf
WEnd


Func reset()
$a = ""
$s = ""
$s2 = ""
$dw = ""
EndFunc

[Melba23]

TheRock,

First, welcome to the AutoIt forums. A good start - some code to work on and a clear question. I wish some other newcomers would do the same. :-)

From what I can see, your problem arises when $s is not a variable - i.e. _StringBetween returns an error, not an array. I have modified your script to add a bit of errorchecking:

expandcollapse popup

#include <GUIConstants.au3>
#include <String.au3>
#include <array.au3>
#include <inet.au3>

Local $sonuc
Local $sonu[1]

reset()
$link = InputBox("ENTER", "Enter The URL", "", "")

While 1
    If Not $link = "" Then
        $a = _INetGetSource($link)
        $s = _StringBetween($a, 'flv_url=', '&amp;url_')
        If @error Then
            MsgBox(0, "", "The URL was not valid")
            Exit
        Else
            MsgBox(0, "", $s[0])
            $s2 = _StringBetween($s[0], '.com_', '.flv')
;~ MsgBox(0,"",$sonu[0])
            $dw = $s[0] & "&OBT_fname=sitename.com_" & $s2[0] & ".flv"
            MsgBox(0, "", $dw)
            ClipPut($dw)
            reset()
            GUICtrlSetData($link, "")
            Exit
        EndIf
    Else
        Exit
    EndIf
WEnd

Func reset()
    $a = ""
    $s = ""
    $s2 = ""
    $dw = ""
EndFunc  ;==>reset

I hope that works better. You do use _StringBetween again to get $s2 - but I am sure you can add the errorcheck for that yourself now. ;-)

M23

[TheRock]

Thnx I will try it