For $i = 1 To $Array[0][0]
$Series = StringRegExp($Array[$i][0], '(\w+)-', 1)
If @error Then
ContinueLoop
Else
IniWrite("c:/test.ini", "Class", "Series", $Series[0]&"-|")
$SubSeries = StringRegExp($Array[$i][0], '-(\w+)', 1)
If Not @error Then
IniWrite("c:/test.ini", "Class", $Series[0] & "-", $SubSeries[0] & "|")
EndIf
EndIf
Next