Доброй ночи всем. Нужны помощь... не могу понять:

СсылкаНаОбъект.ссылка.номер хранит строку типа "0000000001"

как мне получить строку типа "1"

документ РеализацияТоваровУслуг, УТ 10.2 под 8.1

подскажите пожалуйста

Уууу, тут программировать надо!

что нибудь полезное плиз

функция СтрЗаменить() не подходит, так как меняет все нули даже в самом числе

(3) Число("0000000001") и Формат() дальше

+(4) Хотя в данном случае можно и без Формат()

(4) А если вместо "1" будет "А" ?

(4) я же не знаю сколько символов под номер документа отводится... их сегодня 3 завтра 5

(0) для каких целей ?

(3) Пока Лев(Номер, 1) = "0" Цикл Номер = Сред(Номер, 2); КонецЦикла

Полезно?

(6) "Уууу, тут программировать надо!"(с)

(0) В БП 2.0 Есть функция ПолучитьНомерНаПечать, там это реализовано

(6) А может быть вместо первого нуля

everybody stand back!

RE = New COMObject("VBScript.RegExp");
RE.Global        = истина;
RE.IgnoreCase    = истина;
RE.Multiline    = истина;
RE.Pattern = "^0+";
СтарыйНомер = "0000000001020506";
НовыйНомер = RE.Replace(СтарыйНомер, "");


(12) но ведь в любой типовой есть эта функция, неужели охота в 12 часов ночи заниматься дибелизмом?

(8) для учебы

(7) В типовых есть функция ПолучитьНомерНаПечать, хотя кто мешает отсечь префикс, а потом (4) - нипанятна.

(13) Жгешь. Хотя в более сложных случаях это единственный нормальный способ.

ПолучитьНомерНаПечать

(15) нахерТебеТакаяУчёба 7

(9) спасибо не догонял что Сред делает)

(9) не робит(

(11) у меня УТ 10.2

(21) для копрокода это нормальное состояние

я просто не знаю что с (13) делать..

(24) можешь распечатать и скурить. Или, например, под язык положить. Еще можно скопипастить в конфигуратор

(25) эта строчка СтарыйНомер = "0000000001020506"; нужна?

(26) закрой конфигуратор, отойди от компьютера и позови родителей

(27) к сожалению родители понимают меньше..

(13) вдруг у него сервер линуксовый?

(29) подозреваю, что сервера тупо нет

(29) нет

(28) достаточно просто отойти от компьютера.

(32) по твоему есть еще способы чему-либо научиться?

(33) учиться и "сделайте за меня" - это намного более разные вещи

(33) так печатную форму я сам создал, не понимаю как сделать без нулей номер только

(35)*

(34)*блин

(35) ты (13) внимательно прочитай и подумай, что там и зачем написано. Так же можешь скопировать этот код в обработку, выполнить и посмотреть, что получилось в переменной НовыйНомер.

Только "^0+"; не будет работать для номера с префиксом буквенным.

(38) это понятно, но когда вместо старый номер подставляю не робит, тк префикс есть

(40)+ что поменять что бы отбор с 3го символа начинался?

(39) префиксов в задаче нет
(40) что значит "не робит"?

"^\w[а-я]*0+"

(43) не помогло

(42) сори, но надо спрефиксами учитывать

(43) эх, ну мериться так мериться :)
не сработает твой регэксп - \w с ёжиком сожрет всю строку до последнего символа, потому как он greedy

правильно как-то так:
"^[а-я|a-z|-]*0+"

И всетаки ты посмотри как в типовые печатный формы (счета, накладные и т.д.) выводится номер, там вызывается функция которая возвращает номер на печать

(46) все робит! отлично спасибо
где про такие штуки почитать можно?

(47) не нащел

Все просто: сначала Стр3аменить меняешь все нули на пробелы, затем СокрЛ удаляешь пробелы слева (этим отсекаются все левые нули), к оставшемуся применяешь СтрЗаменить в обратную сторону, т.е пробелы на нули

(50) "Все просто: сначала Стр3аменить меняешь все нули на пробелы, затем СокрЛ удаляешь пробелы слева..."

а потом думаешь почему вместо 102 у меня 12

(51) не случится этого

(52) Невнимательно прочитал, да ты прав

(50) вот доступно!)

И как СокрЛ убьет пробел внутри? Перечитай что ли

куда префиксы денешь?

(56) топку ими топить будет. А ты у кого спрашиваешь?

Ответ:
Номер = 0000000001 * 1

(58) с префиксом прокатит?

(58) может тогда

1* 0000000001 ?

(59) 1с8 сама догадается

(59) Нет префикс отдельно убрать, он что разный всегда?

(62) был бы он одинаковый, нахер бы он был нужен?

(50) с префиксом не робит

> не робит

расшифруй ололоша

(46) ^([^\d]+)|(0+)?

(65) не работает

на каком изыге?

где про (13) можно почитать???

(68) не знаю, привязалось тупое выражение и все(

Не понял, почему 9 не работает?

(70) нормальное выражение

(71) я попробовал набрал сообщить и ничего

(72) ок:D

(73) Сообщить что?

(75) номер

(69) бери скорей пока я добрый http://dl.dropbox.com/u/20471596/friedl_regexp.pdf

И дважды всетаки сделай глобальный поиск по конфе по слову -ПолучитьНомерНаПечать

(77) спасибо

(79) Ну давай еще дисертацию защитим от неча делать

(78) нету это УТ 10.2

(78) так не интересно же. а тут глядишь и рег экспы освоит. для расширения кругозора.

(81) там есть подобная процедура. может немного по другому называтся.

(78) хотя через ctrl+пробел дописывает

(77) Norton commander кнопкой F3 не открывает

(85) это проблемы Norton commandera. с файлом все нормально.

книжка то клевая еще раз спасибо

(86) > это проблемы Norton commandera

так у меня Norton commander


+ PDF - это Portable Document Format [ wiki:Portable_Document_Format ]