$AA=StringSplit($ini, ";")
Local $series
for $i =1 to $AA[0]
If StringInStr($AA[$i], "-") Then
Local $aaa = StringSplit($AA[$i], "-")
For $j = $aaa[1] To $aaa[2]
$series &= $j & ","
Next
Else
$series &= $AA[$i] & ","
EndIf
Next
$series = StringTrimRight($series, 1)