Remove Each Found Instance In StringReg

[Damein]

So I have this that I wrote:

HotKeySet("^0", "_Search")

Func _Search()
$Word = Inputbox("Enter word", "Please enter a word..")
$URL = "http://thesaurus.com/browse/" & $Word
Global $sSource = BinaryToString(InetRead($URL))
$WordStart = StringRegExp($sSource,'(?i)(?s)Synonyms:(.*?)',1)
MsgBox(0, "Show All Found", $WordStart[0])
$Word = StringRegExp($WordStart[0],'(?i)(?s)[url=""]',1)
$WordSplit = StringSplit($Word[0],">")
Msgbox(0, "Test", $WordSplit[2])
EndFunc

While 1
Sleep(10)
WEnd

Basically, what I want to do is pull each of the synonyms and then display all in a GUI in a neat way. I just need some help on doing a +1 pretty much after its found the $WordStart.

[Damein]

Solved, ty help file

HotKeySet("^0", "_Search")

Func _Search()
$Word = Inputbox("Enter word", "Please enter a word..")
$URL = "http://thesaurus.com/browse/" & $Word
Global $sSource = BinaryToString(InetRead($URL))
$WordStart = StringRegExp($sSource,'(?i)(?s)Synonyms:(.*?)',1)
$Word = StringRegExp($WordStart[0],'(?i)(?s)[url=""]',3)
For $i = 0 To 10 Step +1
If @Error Then
ExitLoop
Else
$WordSplit = StringSplit($Word[$i],">")
Msgbox(0, "Test", $WordSplit[2])
EndIf
Next
EndFunc

While 1
Sleep(10)
WEnd

[guinness]

Global in a function is bad coding. Look at using static or declare in the appropriate manner.