Эксельтан загрузка файыллары, хартыына. ДокСан &НаКлиенте
Процедура АдресКартинкиНажатие(Элемент, СтандартнаяОбработка)

Оповещение = Новый ОписаниеОповещения ("", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение,,,Истина,УникальныйИдентификатор);
СтандартнаяОбработка = Ложь;

КонецПроцедуры

&НаКлиенте
Процедура (Результат, Адрес, ПомещаемыйФайл, ДополнительныеПараметры) Экспорт

Если НЕ Результат Тогда
Возврат
КонецЕсли;
АдресКартинки = Адрес;
Модифицированность = Истина;

КонецПроцедуры

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
Если (АдресКартинки) Тогда
ТекущийОбъект.Изображение = Новый ХранилищеЗначения ((АдресКартинки));
КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
АдресКартинки = (Объект.Ссылка, "Изображение");
КонецПроцедуры

&НаСервере
Процедура (Результат, ДополнительныеПараметры) Экспорт
Если Не (Результат = Неопределено) Тогда
СсылкаНаФайл = Результат[0];
КонецЕсли;
Попытка
ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать(СсылкаНаФайл);
Для Счетчик = 2 По ТабДок.ВысотаТаблицы Цикл
НовыйЭлемент = Справочники.Маршрут.СоздатьЭлемент();
НовыйЭлемент.Код = ТабДок.Область(Счетчик, 1).Текст;
НовыйЭлемент.От = ТабДок.Область(Счетчик, 2).Текст;
НовыйЭлемент.До = ТабДок.Область(Счетчик, 3).Текст;
НовыйЭлемент.Записать();
КонецЦикла;
Сообщить("Данные успешно загружены");
Исключение
Сообщить("Не обнаружен файл");
КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитИзExcel(Команда)
//();
//выбор файла с рабочего стола
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбораФайла.Фильтр = "Загрузка данных (.xls; .xlsx) | .xls; .xlsx"; //фильтр файлов по расширению
ДиалогВыбораФайла.МножественныйВыбор = Ложь;
ДиалогВыбораФайла.Показать(Новый ОписаниеОповещения("", ЭтотОбъект, Новый Структура));
КонецПроцедуры

&НаКлиенте
Процедура (Элемент)
Строка = Элементы.Материалы.ТекущиеДанные;
Строка.Сумма=Строка.КоличествоСтрока.Цена;
КонецПроцедуры
&НаКлиенте
Процедура (Элемент)
Строка = Элементы.Материалы.ТекущиеДанные;
Строка.Сумма=Строка.КоличествоСтрока.Цена;
КонецПроцедуры

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

flimas

04.03.2022 10:20

С какой клавиши можно добавить фигуру равно ...

mafia42

29.09.2020 00:59

Какое устройство не является периферийным (дополнительным)? * Принтер Монитор Модем Web-камера...

Шенявка

19.03.2023 06:05

Составьте программу, которая с клавиатуры позволяет ввести количество информации в битах. В результате нужно получить количество информации вмегабайтах,килобайтах, байтах и...

dobryninatonya

07.02.2023 06:21

Какой минимальный объём памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 128 на 256 пикселов при условии, что в изображении...

yanavyskubina

10.10.2022 07:25

с информатикой нужно решить задачу на питоне Дано натуральное число N.Найти и вывести все числа в интервале от 1 до N-1,у которых все сумма цифр совпадает с суммой цифр данного...

Светик1111прод

28.08.2022 17:46

Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 720×350 и палитрой из 256 цветов....

Princesska88

17.10.2022 15:18

Решите по действиям: 3/25: 6/35-3= 1) 3/25: 6/35= 2) -3=...

annapalko044

17.10.2022 15:18

Вычислите объем кислорода который потребуется для полного сжигания 112 литров метана ch 4...

Fox00811

17.10.2022 15:18

Найти cos, если sin = корень21/5 и принадлежит (90; 270)...

SimpleNick

17.10.2022 15:18

Каковы функции узла и междоузлия стебля растения...

Ответ:

angelok8408

07.07.2022 01:25

Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ('Введите количество строк: '); read(n); writeln; write ('Введите количество элементов в строке: '); read(m); writeln; writeln('Введите массив: '); for i:=1 to n do begin for j:=1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('Исходный массив: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('Конечный массив: '); for i:=1 to n do begin min:=a[i,1]; max:=a[i,1]; for j:=2 to m do begin if (min>a[i,j]) then min:=a[i,j]; if (max

0,0(0 оценок)

Ответ:

usan2005

13.09.2021 21:35

// PascalABC.Net 3.0, сборка 1066
var
s, wd: string;
n, pt: integer;

begin
Write('Введите строку: ');Readln(s);
n := Length(s); pt := 1;
repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if s[pt] = ' ' then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if s[pt] <> ' ' then begin wd := wd + s[pt]; Inc(pt) end
        else break;
      if (wd <> '') and (LowCase(wd[1]) in ['м'..'я']) then Writeln(wd)
    end
until pt > n;
end.

Тестовое решение:
Введите строку: **А роза    упала   на    лапу Азора    **
роза
упала
на

А вот так версия 3.0 позволяет решить задачу "по-современному":

// PascalABC.Net 3.0, сборка 1066
begin
var s:=ReadString('Введите строку: ');
Writeln('Результат: ',s.ToWords(' ').Where(x->x[1] in ['м'..'я']))
end.

Тестовое решение:
Введите строку: **А роза    упала   на    лапу Азора    **
Результат: [роза,упала,на]

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку