Помогите вычленить подстроку из строки. Мне нужно вычленить артикул номенклатуры. (артикул всегда 6 символов) Пользователи все забивали в наименовании и в итоге получились такие строки:
"Апельсины сочные № 990976" так же могут быть и
"Апельсины № 990976 сочные"


Такая функция не всегда срабатывает

Функция Выделить(пНаименование)
   
   ПозицияПервогоВхождения = Найти(ВРЕГ(пНаименование), "№");
   
   Если ПозицияПервогоВхождения = 0 Тогда
       Возврат Неопределено;
   КонецЕсли;
   
   Возврат Прав(сокрЛП(Сред(сокрЛП(пНаименование), ПозицияПервогоВхождения)), 6);
   
КонецФункции

Ищи первую цифру, от нее бери 6 знаков

Апельсины № 990976 сочные № 990970

(0) Регулярки

(0) Регулярные выражения

что скажут на (2)?

(0) Имхо, первое что бы я сделал при таком алгоритме - убрал бы все пробелы в строке!

регулярка

№\s*(\d+)

первое подсовпадение первого совпадения

(6) Угу. "Апельсины свежие сорт 2 123456".

(5) Ничегоне скажут. У автора - "ПозицияПервогоВхождения"

(5) Как составишь, то и скажут. Нет с этим проблем.

Беда в том что артикул не обязательно начинаеться с цифр есть и такие ADF003 или AF0001

(3) они есть в 1с?

(9) Мне больше нравитца наименование "Вино №777, артикул 123456" :)

RegExp=Новый COMОбъект("VBScript.RegExp");

вроде ониЮ еще в 7.7. были

или так:
СтрокаПоиска = РеальнаяСтрока;
для к = 1 по 9 цикл
СтрокаПоиска = стрЗаменить(СтрокаПоиска , ""+к,"0");
конеццикла;
поз = Найти(СтрокаПоиска ,"000000");

артикул = Сред(РеальнаяСтрока,Поз,6);

(7) Артикул всегда 6 символов

(18) тогда №\s*(\d{6})(\s|$)

+(17)хотя..лучше искать " 000000 " или "№000000 " или "N00000 "

не взлетит

"рубашка черная размер 50 артикул ним456"

что здесь 6-значный артикул?

черная
размер
ним456

Мой вариант
№\s*\d\s*\d\s*\d\s*\d\s*\d\s*\d

Эх... помню когда-то из адреса вырезал индекс с алгоритмом типа "найти в строке число из шести цифр"...не помню где он валяется и сохранился ли...

(21) То что после слова артикул

(24) Какие ваши доказательства?

(25) По русский же написано, артикул ним456. Шаблон уже можно составить. Если юзер после слова артикул указал черт знает что, то это их проблемы. Ручками пусть перебивают.

(0) Возврат Лев(сокрЛП(Сред(сокрЛП(пНаименование), ПозицияПервогоВхождения + 1)), 6);

(26) Я какбе символизирую, что в (0) нет ни единого слова "артикул". А реалии нынешних менеджеров таковы, чтотам окажется и "арт" и "ортикул" и еще 100500 вариантов, которые мне, вам или автору и в голову не придут.

Алгоритм должен опредлять однозначность выделенных данных. То что 100% артикул идёт в базу, то что под сомнением в ручную проверку отдельным списком.