Строку в многострочную часть
Пример программного кода, преобразующего входную строку в многострочную часть
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Если ЗначениеЗаполнено(СокрЛП(Строка(ЛистExcel.Cells(Строка,2).Value))) Тогда ЛистExcel.Cells(Строка, 2).NumberFormat ="ДД.ММ.ГГГГ"; ДатаРождения = СокрЛП(Строка(ЛистExcel.Cells(Строка,2).Value)); ДатаРождения = СтрЗаменить(СокрЛП(ДатаРождения), ".", ""); ДатаРождения = Лев(ДатаРождения, 8); ГодР = Прав(СокрЛП(ДатаРождения), 4); МесяцР = Сред(СокрЛП(ДатаРождения), 3, 2); ЧислоР = Лев(СокрЛП(ДатаРождения), 2); ДатаРождения = Дата(ГодР, МесяцР, ЧислоР); КонецЕсли; |
или
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Функция ИзвлечьСлово(Строка, Разделитель) П = найти(Строка+Разделитель, Разделитель); Ответ = Лев(Строка, П-1); Строка = Сред(Строка, П+СтрДлина(Разделитель)); Возврат Ответ; КонецФункции Пример: стр = "1,2,3,4"; Сообщить(ИзвлечьСлово(стр, ",")); //1 Сообщить(стр); // 2,3,4 Сообщить(ИзвлечьСлово(стр, ",")); //2 Сообщить(стр); // 3,4 Сообщить(ИзвлечьСлово(стр, ",")); //3 Сообщить(стр); // 4 Сообщить(ИзвлечьСлово(стр, ",")); //4 Сообщить(стр); // "" (пустая строка) Сообщить(ИзвлечьСлово(стр, ",")); // "" (пустая строка) |
Если у Вас появились вопросы по статье или остались нерешенные проблемы обсудить их Вы можете на Форуме 1С Вопросы и ответы
(1 голосов, 5,00 из 5)
Загрузка...
Добавить комментарий
Для отправки комментария вам необходимо авторизоваться.