Распознать, убрать и выделить из наименования ГТД и Страну

Jlexa Пользователь Сообщений: 3 Регистрация: 28.08.2011	#1 08.11.2018 10:45:46 В накладной поставщика название номенклатуры в таком формате: "Наименование товара (10702070/130618/0078002/1, КИТАЙ)" Как из нее выделить ГТД и Страну происхождения при загрузке накладной в 1С?

Евгений Администратор Сообщений: 2868 Регистрация: 04.07.2011	#2 08.11.2018 11:41:35 Пришлите мне вашу накладную.

Евгений

Администратор

Сообщений: 2868 Регистрация: 04.07.2011

10.11.2018 22:24:48

Первый алгоритм будет для колонки наименование

Убираем из наименования ГТД и страну

НайтиСкобку = СтрНайти(Значение, "(",НаправлениеПоиска.СКонца);
Если НайтиСкобку > 0 Тогда
Значение = Лев(Значение,НайтиСкобку-1);
КонецЕсли;

Евгений

Администратор

Сообщений: 2868 Регистрация: 04.07.2011

10.11.2018 22:32:30

Для распознавания ГТД

НайтиСкобку = СтрНайти(Значение, "(",НаправлениеПоиска.СКонца);
Если НайтиСкобку > 0 Тогда
Значение = Прав(Значение,СтрДлина(Значение)-НайтиСкобку);
Значение = СтрЗаменить(Значение,"(","");
Значение = СтрЗаменить(Значение,")","");

НайтиЗапятую = СтрНайти(Значение, ",");
Если НайтиЗапятую > 0 Тогда
Значение = Лев(Значение,НайтиЗапятую-1);
КонецЕсли;
КонецЕсли;

Евгений

Администратор

Сообщений: 2868 Регистрация: 04.07.2011

10.11.2018 22:36:14

Распознать страну

НайтиСкобку = СтрНайти(Колонка3, "(",НаправлениеПоиска.СКонца);Если НайтиСкобку > 0 Тогда

Значение = Прав(Значение,СтрДлина(Значение)-НайтиСкобку);
Значение = СтрЗаменить(Значение,"(","");
Значение = СтрЗаменить(Значение,")","");

НайтиЗапятую = СтрНайти(Значение, ",");
Если НайтиЗапятую > 0 Тогда
Значение = Прав(Значение,СтрДлина(Значение)-НайтиЗапятую);
КонецЕсли;

КонецЕсли;

Евгений Администратор Сообщений: 2868 Регистрация: 04.07.2011	#6 11.11.2018 00:06:54 Вот еще варианты алгоритмов, еще лучше чем предидущие. 1) Для наименования МассивВсехСлов = СтрРазделить(Колонка3," "); МассивВсехСлов.Удалить(МассивВсехСлов.Количество()-1); МассивВсехСлов.Удалить(МассивВсехСлов.Количество()-1); Значение = СтрСоединить(МассивВсехСлов," "); 2) Для ГТД МассивВсехСлов = СтрРазделить(Колонка3," "); ПредпоследнееСлово = МассивВсехСлов.Получить(МассивВсехСлов.Количество()-2); Значение = СтрЗаменить(ПредпоследнееСлово,"(",""); Значение = СтрЗаменить(Значение,",",""); 3) Для Страны МассивВсехСлов = СтрРазделить(Колонка3," "); ПоследнееСлово = МассивВсехСлов.Получить(МассивВсехСлов.Количество()-1); Значение = СтрЗаменить(ПоследнееСлово,")","");

Читают тему

Распознать, убрать и выделить из наименования ГТД и Страну

Корзина

Ваша корзина пуста