НЕ могу найти алгоритм. Подскажите пожалуйста, как сделать.
Пример: "2 квартал 2015 г." или "2013-2014".

vbscript.regexp

\d\d\d\d

или \d{4,4}

(2) Не cилен в VB, к сожалению. Можно как-то ближе к 1с?

(3) Откуда берется "2 квартал 2015 г." или "2013-2014"?

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

(3) ПОДОБНО

(3) Лев(), Прав(), Сред()

(4) Строка, забивается в ручную. Реквизит ТЧ документа

(8) Не понял... Это ручками забивают "2 квартал 2015 г."?

(9) да

(8) Сделал бы ты там ввод стандартного периода периода, а хранил как две даты

(3) можно

    RegExp = Новый COMОбъект("VBScript.RegExp");
    RegExp.IgnoreCase = истина;
    RegExp.Global = истина;
    RegExp.MultiLine = Истина;    
    RegExp.Pattern = "\d{4,4}";

    Matches= RegExp.Execute("Пример: 2 квартал 2015 г. или 2013-2014");

    Для Сч = 0 по Matches.Count()-1 Цикл
        Match = Matches.Item(Сч);
        Сообщить("""" + Match.Value+ """");
    КонецЦикла;

(10) А если забьют "2 кв. 15 г." - чего делать будешь?

(7) Не догадываюсь как это можно использовать в данном случае

(13) такого не должно быть. Если встретиться - исправлять в ручную

(15) Зашибись...
Рекомендую внимательно прочитать (11).

(12) что-то новенькое

(16) Что есть - то есть. Моя задача получить год в формате ГГГГ.

(16) +100500

и еще по рукам себя линейкой шлёпнуть рекомендую и больше так (8) не делать

(15) Никогда не говори никогда. Рано или поздно это дело забудут и пользователь введет как ему захочется. B c претензией к прогу.
Может сразу нормально сделать не текстовым полем?

(18) Автоматизация бардака приводит к автоматизированному бардаку (С)

Для Идн = 1700 По 2200 Цикл
   Если Найти(СтрокаСГодом, "" + Идн)>0 Тогда
       НайденГод = Идн;
   КонецЕсли;
КонецЦикла;

(22) неразрывные пробелы пользователь как введет?  ;-)

(20) Вы не поняли. У меня есть база, куда долгие годы в реквизит ТЧ документа(строкового типа) вносили эти данные. Теперь создан реквизит документа с типом дата. Мне нужно написать обработку, которая перелопатит все документы, отберет самую свежую дату из ТЧ каждого документа и присвоит её реквизиту документа. Как-то так

В реквизит тч уже никто ничего больше вбивать не будет

(24) а много документов?

(24) если у тебя одна дата, то "2013-2014" как год преобразовывать хочешь?  В 2013?

(26) довольно таки да

(24) варианты только указанные в (0)?

(23) пардон

Для Идн = 1700 По 2200 Цикл
   Если Найти(СтрокаСГодом, Формат(Идн, "ЧГ=0"))>0 Тогда
       НайденГод = Идн;
   КонецЕсли;
КонецЦикла;

В самую свежую, то есть в 2014. А ТЧ может быть несколько строк с датой. Там то же самое - берем самую свежую

(29) НЕт, варианты могут быть разные. Главное что дата в формате ГГГГ

(0) короче парсишь строку в цифры и готово, или как подсказал (30) , если это разовая акция то изящество решения это не главное

(31) А что за документ? Смысловая нагрузка его какова?

(34) Да обычный документ. Самописная конфа.

(30) Попробуем. Спасибо всем кто отозвался!

(35) У обычного документа есть дата. Смысл даты (периода) в ТЧ?

(37) Говорю же самописка. Был какой-то умысел видимо у создателя. Но сейчас это уже не нужно. Нужна просто одна самая свежая дата

(38) еще нечто такое:

Год = 0;
сч = 1;
Пока сч <= СтрДлина(СтрокаСГодом) Цикл
  год = "";
  Пока сч <= СтрДлина(СтрокаСГодом) и СтрНайти("0123456789", Сред(СтрокаСГодом,cч,1)) > 0 Цикл
    год = год + Сред(СтрокаСГодом,cч,1);
    сч = сч + 1;
  КонецЦикла;
  Если СтрДлина(год) = 4 Тогда
    Год = Макс(Год,Число(год));
  КонецЕсли;
  сч = сч + 1;
КонецЦикла;

(38) Так... Пойдем длинным путём...
Дата документа и дата из ТЧ чем отличаются?
А вообще, если "умысел" не понятен - снеси и не выноси мозг.

(40) Может он сам разберется?

(40) Дата документа не причем! Есть реквизит "Дата бла-бла", отличный от даты документа. Что значит Снеси?

(39) Всё же я думал есть какие-то менее "творческие" пути) Не уж то придется так извращаться?

(42) в переменную Год нужно как-то отлично от год назвать...

(42) В (38) написано: "Был какой-то умысел видимо у создателя. Но сейчас это уже не нужно." Если "не нужно" - снеси.
А что нужно? Смысл этой "Дата бла-бла"?

(45) Он уже выбросил, хочет в старых документах заполнить новое поле по этому полю, чтобы заставить пользователей исправить только немного документов где год не сумеет вычислить из этого текста.

(46) именно!

(46) Подожди...
"Дата бла-бла" снес, значит, на фиг не нужно. А год зачем тогда?

(47) Что "именно"? Top secret - что за док-т, и что за дата (период)?

(43) см (3)

ну если не хочешь (3) см ВК в БСП - в поиске и удалении дублей используется fuzzy чего-то там

(43) см не (3), а (12)

(46) Кстати, если это акт сверки - период есть в ТЧ. Так, к слову.

(12) Спасибо большое! Все работает!