* Выборка подстроки из строки с разделителями
* Параметры: Строка, Разделитель, Номер элемента
func GetParam
lpara lcText, lcDelim, lnNom
local lnPos, lcT
if lnNom <  1 
	lcT = ''
else
	if lnNom =  1 
		lcT = lcText
	else
		lnPos = at(lcDelim, lcText, lnNom- 1 )
		if lnPos #  0 
			lcT = substr(lcText, lnPos + len(lcDelim))
		else
			lcT = ''
		endif
	endif
	if at(lcDelim, lcT) #  0  
		lcT = left(lcT, at(lcDelim, lcT) -  1 )
	endif
endif
return lcT

lcText = '42-4;45-7'
for i =  1  to occurs(';', lcText) +  1 
    lcOne = GetParam(lcText, ';', i)
    ? 'Размер: ' + GetParam(lcOne, '-',  1 )
    ? 'Количество: ' + GetParam(lcOne, '-',  2 )
enddo