Function параметры(наименование, артикул)

'определяем количество символов в переменной товар

n = Len(товар)
i = 1

'ищем слово фирма

1 k = Mid(товар, i, 5)
If k <> "фирма" Then i = i + 1: GoTo 1

'отделяем наименование товара от прочей информации

наименование = Left(товар, i - 1)
ii = i



'определяем артикул

2 k = Mid(товар, ii, 7)
If k <> "артикул" Then ii = ii + 1: GoTo 2
ii = ii + 7 : iii = n - ii
артикул = Right(товар, iii)

End Function


продолжение

Рейтинг@Mail.ru главная программы задачи карта Copyright © СОМИТ, А.Козлов, 2005 г