---

Товар = "23444 Тетрадь в клетку, 12 листов, шт";

// 1. Артикул — всегда 5 символов
Артикул = Лев(Товар, 5);

// 2. Заменяем все ", " на перенос строки — каждая часть станет отдельной строкой
Разбито = СтрЗаменить(Товар, ", ", Символы.ПС);

// 3. Сколько получилось строк
Кол = СтрЧислоСтрок(Разбито);

// 4. Последняя строка — это единица измерения
ЕдИзм = СокрЛП(СтрПолучитьСтроку(Разбито, Кол));

// 5. Первая строка — это "артикул + название", убираем артикул (5 символов)
ПерваяСтрока = СтрПолучитьСтроку(Разбито, 1);
Название = СокрЛП(Сред(ПерваяСтрока, 6, СтрДлина(ПерваяСтрока) - 5));

// 6. Вывод
Сообщить("Артикул: "  + Артикул);
Сообщить("Название: " + Название);
Сообщить("Ед. изм.: " + ЕдИзм);