gifts2017

Вывод картинок в печатную форму

Опубликовал Роман Петров (PeRom) в раздел Программирование - Практика программирования

Обработка выводит все картинки (.jpg) из выбранного каталога (и подкаталогов) в печатную форму. Искал по инету и справкам, как это сделать - нигде не нашёл. Сделал методом научного тыка и решил выложить - может кому пригодиться.

Скачать файлы

Наименование Файл Версия Размер
- 297
.1216032341 133,00Kb
25.09.09
297
.1216032341 133,00Kb Бесплатно

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Сhe Burashka (CheBurator) 14.07.08 14:53
Не работает... Выводит одну тумбнайлку всего из каталога...
если вдруг надо - посмотри у меня в профиле по прграммам и блогам - там есть мелкие обработочки по всяким "картинкам"
2. Роман Петров (PeRom) 14.07.08 15:23
выводит только .jpg
Что-бы выводила все возможные типы файлов нужно строку 35 заменить на:
Код
Если (Прав(Ф,4)=".jpg") или (Прав(Ф,4)=".wmf") или (Прав(Ф,4)=".emf") или (Прав(Ф,4)=".ico") или (Прав(Ф,4)=".bmp") или (Прав(Ф,4)=".dib") или (Прав(Ф,4)=".rle") Тогда
Показать полностью
3. Роман Петров (PeRom) 14.07.08 15:59
Извиняюсь был косяк, при повторном запуске без закрытия формы выводилось то-же что и при первом. Поправил.
4. Сhe Burashka (CheBurator) 14.07.08 19:23
Катер не катит! Суши весла!
вот у меня, например, Прав(Ф,4) возвращает ".JPG"...
5. Сhe Burashka (CheBurator) 14.07.08 19:31
Предлагаю покурить кастанеду и расширить границы сознания... вместо офигенной длины условия предлагаю писать коротко и кузяво:
Вариант1:
Код
СЗ = СоздатьОбъект("СпсиокЗначений");
СЗ.ДобавитьЗначение("JPG");
СЗ.ДобавитьЗначение("GIF");
//...
//и дальше юзать
если СЗ.Принадлежит(ВРег(Прав(Ф,4))) = 1
//
Показать полностью

плюс надо иметь в виду: расширения могут быть не обязательно 3-х символьные...
tiff, jpeg - вполне легитимные названия
//
вариант2
Код
ДопустимыеРасширения = "*JPG*GIF*TIF*....";
расширение = "*"+ВРег(Прав(ф,3))+"*"
если Найти(ДопустимыеРаширения,Расширение) > 0 тогда
Показать полностью
6. Сhe Burashka (CheBurator) 14.07.08 19:32
по поводу (1) - это я видимо лажанулся - у мну в каталоге всего одна картинка была....
7. Сhe Burashka (CheBurator) 14.07.08 19:34
+ отстойно выводить все в один столбик.. нет бы расположить шахмакой...
8. Роман Петров (PeRom) 14.07.08 22:52
Главная идея вывести картинку, а какие расширения использовать и как располагать картинки, и выводить ли имена файлов - это уже дело техники и вкуса. ИМХО
Идею использовал для вывода картинок, прикреплённых к элементам справочника в прайс-лист, а обработку сляпал на скорую руку для иллюстрации идеи.
ПС: 1с различает верхний и нижний регистр в имени файла, и для учёта всех возможных вариантов придётся дублировать расширения в верхнем и нижнем регистре или преобразовывать имена файлов в один из регистров...
9. Владимир Пресняков (vip6374) 16.07.08 07:35
Предпочитаю помещать картинки в Эксель, эффективно выводить пакет лицензий для алкоголя, можно контролировать, кому эти лицензии уже выданы и когда
10. Сhe Burashka (CheBurator) 21.07.08 15:36
(8) а зачем юзера грузить этими проблемами? если обработка для юзера - то оценка на троечку - неудобно....
если для прога - то на единицу....
12. ineoosaki (ineoosaki) 07.11.08 18:50
Вижу, fixin, решил заценить разработки своих доброжелателей.
Посмотрим, что из этого получиться.
13. Роман Петров (PeRom) 07.11.08 18:54
У ГЕниЯ такой способ поиска новых партнёров. Видать тем 89 он уже давно надоел.
14. ineoosaki (ineoosaki) 07.11.08 19:26
2 (13)
Вместо того, что бы умничать, и поганить чужие ники, лучше бы ответили на 11.
15. Роман Петров (PeRom) 08.11.08 02:07
14. А шобы было. А по разумному, пятниццо уйдёт, будет по делу.
16. Оракул Айметдинов (jhfrek) 08.11.08 23:52
(11) Мне нужна была такая программулина для того чтобы все фотографии из каталога пакетно распечатать. Писать самому было влом, поэтому по одному распечатал. Клиенту одному делал подобную штуку, только там одну фотографию нужно было выводить на печать. У них там схемы были нарисованы. Так что вещь полезная. Редко конечно, но могут такое нестандартные клиенты заказать.
17. Роман Петров (PeRom) 10.11.08 15:32
14. Во-первых, про что в (11) вопрос. Если про обработку - то специально для слабовидящих из (8)Идею использовал для вывода картинок, прикреплённых к элементам справочника в прайс-лист, а обработку сляпал на скорую руку для иллюстрации идеи.
Во-вторых, насчёт поганить чужие ники - это я ещё по божески. Для иллюстрации прошу обратить внимание на коменты к последним 15-20 идеям идеягенератора. И насчёт умничать там-же.
18. Епрст (Ёпрст) 10.11.08 15:46
Ээххх когда же поиск то заработает у людёв ?
http://www.mista.ru/articles1c/hare/article.18.html
19. Роман Петров (PeRom) 10.11.08 16:14
(18)" - Ну не шмогла я, не шмогла." с.
20. Роман Петров (PeRom) 10.11.08 16:27
Ёпрст прошу Вашего разрешения добавить найденную Вами ссылку в описание обработки.
21. Епрст (Ёпрст) 10.11.08 16:29
(20) мне то что, это не мой код .. :)
22. Епрст (Ёпрст) 10.11.08 16:29
Это
Никита Зайцев (WildHare) где-то в 1999
23. Епрст (Ёпрст) 10.11.08 16:30
Хотя этот способ был известен и раньше ...
Просто всегда находились люди и записывали полезные вещи где-то...
:)
24. Роман Петров (PeRom) 10.11.08 16:58
21-23 Согласен, очередной велосипед получается. Доказать нечем, но после безрезультатного поиска использовал только ЖКК...
А насчёт поиска по Инфостарту, был бы поиск и по форуму, таких велосипедом на порядок поуменьшилоль бы :(
25. Proger Proger (Proger) 09.11.09 18:24
Ободрялка тебе.Небось проблы со скачкой ;)
26. Андрей Марецкий (Iksteram) 06.10.11 18:07
Да идея не нова, но когда мне понадобилось, нашел только тут. Так что спасибо.
27. eremin (mybracho) 10.05.12 15:02