v8.2 УП: Отсечь не нужные знаки

Kamil

22.01.2014 13:39

Прочитано: 1175

Нужно отсечь все после тире

Например:

Слово = 11400BBC1201-92 * 52 * 48;

НужноеСлово = 92 * 52 * 48;

Изменено 22.01.14 14:38:07

Yandex

Возможно, вас также заинтересует

E_Migachev

22.01.2014 14:42

Ответ № 1

(0) Kamil, как-то так(пишу на вскиду, может промахнусь на символ)

Код 1C v 8.х

 С= 11400BBC1201-92 * 52 * 48; 

Рузультат = Прав(Слово,  СтрДлина(Слово) - Найти(Слово, "-")-1);

Jonsony

22.01.2014 17:20

Ответ № 2

(1) E_Migachev, ну во первых "С=" не приведёт никуда, ибо это не "Слово=" (что используется далее)
а во вторых его надо принудительно строкой сделать
а по формуле всё правильно, правда можно по иному, заменить вся по дефис на пустую строку
примерно так

Код 1C v 8.2 УП

 Слово = Строка(11400BBC1201-92 * 52 * 48);

Результат = СтрЗаменить(Слово,Лев(Слово,Найти(Слово,"-")),"");

Kamil

23.01.2014 13:07

Ответ № 3

Еще один вопрос!

Слово = "ОСОБЕННАЯ ОТ БЕККЕРА";

НужноеСлово = "Особенная от беккера";

Если Нрег то выходит слово; "Особенная От Беккера";

Mokey

23.01.2014 14:29

Ответ № 4

(3) Kamil,
НРег вернёт "особенная от беккера", и это непоколебимая истина, а то, что Вы написали, возвращает функция ТРег().
Вам просто надо слепить из ТРег(первого слова) и НРег(остальных слов) всё словосочетание.

Изменено 23.01.14 14:29:56

Kamil

23.01.2014 15:33

Ответ № 5

Да я перепутал Команды Нрег с Трег ...

Mokey

24.01.2014 10:00

Ответ № 6

Код 1C v 8.х

 НужноеСлово = ТРег(Лев(Слово, Найти(Слово, " ") - 1)) + НРег(Сред(Слово, Найти(Слово, " ")))

Изменено 24.01.14 10:01:38

Подсказка: Для выделения Кода используйте (в редакторе).