|
|
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Помогите новичку, исправьте ошибки... Нужно чтоб программа, которая находит файлы определенного расширения, находила повторяющиеся файлы (по имени) и создавала для них отдельную группу с их именем и перемещала их туда... Для каждого Файл Из МассивНайденных Цикл Кол=Справочники.Проект.СоздатьГруппу(); Если Кол.ИмяФайла=Истина Тогда Док=Справочники.Проект.СоздатьГруппу(); Док.Родитель.ИмяФайла=Файл.Имя; Док.Записать(); Иначе Док=Кол.ИмяФайла; КонецЕсли; Кол.Записать(); КонецЦикла; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 19:03 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
ctrl+f1 -> индекс -> "НайтиПоНаименованию" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 19:05 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Уже переделал под найти файлы? Уже лучше. Вот только где теперь создатьэлемент? ps Может курсы или литературу почитаешь? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 19:37 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Программист 1с, Я лучше понимаю когда сам делаю, литература естественно тоже есть, но так мне понятнее... Может ты здесь ошибки посмотришь? ) СтрокаНаименования = Файл.Имя; Данные = Справочники.Проект; НайденныйФайл = Данные.НайтиПоНаименованию(СтрокаНаименования); Если НайденныйФайл = Данные.ПустаяСсылка() Тогда Сообщить("Повторяющихся файлов """ + СтрокаНаименования + """ еще нет"); Иначе НайденныйФайл = Данные.ПолучитьФормуНовойГруппы(); НайденныйФайл=стр.Родитель.ИмяФайла; КонецЕсли; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 19:58 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Уже лучше. Вот только НайденныйФайл = Данные.ПолучитьФормуНовойГруппы(); НайденныйФайл=стр.Родитель.ИмяФайла; И что пытаешся добиться? И сообщить то замени на создание новой группы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 20:40 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Программист 1с, Я пытаюсь добиться, чтобы файлы с одинаковыми названиями, но лежащие в разных местах попадали в группу, называемую как сам файл. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 20:46 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Немного изменил, может здесь более правильней... Но все равно есть ошибка (( СтрокаНаименования = Файл.Имя; Данные = Справочники.Проект; НайденныйФайл = Данные.ПолучитьФормуНовойГруппы(); Если НайденныйФайл = Данные.ПустаяСсылка() Тогда Сообщить("Повторяющихся файлов """ + СтрокаНаименования + """ не найдено"); Иначе стр=Справочники.Проект.СоздатьГруппу().Родитель.ИмяФайла; КонецЕсли; КонецПроцедуры ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 22:46 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
эхххххххххх усугубил только. Ладно а смысл задачи то? Для чего это все? И разберись с разницей ПолучитьФормуНовойГруппы(); и создатьновуюгруппу(). Это 2 Агромные разницы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 22:49 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Программист 1с, Смысл связать 1с с автокадом, чтобы автокадовские файлы можно было открывать через 1с... Помоги добить, я уже не знаю что делать (( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 22:52 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
vladimir_polukhin, не вижу проблемы. Открыть файл можно если на машине стоит автокад. Если не ошибаюсь то запуститьприложение(ваш файл). А вы хотите хранить у себя в базе сами файлы или только их имена? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 22:57 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Программист 1с, Да он у меня уже все находит и все открывает, остались последние штрихи с оформлением... В базе будут только путь к файлу+его имя ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2010, 23:01 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
СтрокаНаименования = Файл.Имя; Данные = Справочники.Проект; НайденныйФайл = Данные.НайтиПоНаименованию(СтрокаНаименования,Истина); Если НайденныйФайл <>Неопределено Тогда Сообщить("Повторяющихся файлов """ + СтрокаНаименования + """ еще нет"); Иначе НайденныйФайл = Данные.СоздатьГруппу(); НайденныйФайл.Наименование=СтрокаНаименования; НайденныйФайл Записать(); КонецЕсли ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2010, 01:55 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Программист 1с Ладно а смысл задачи то? Для чего это все? Это продолжение вот этого топика http://www.sql.ru/forum/actualthread.aspx?tid=763626 А смысл задачи я так понял: "Выполнить средствами платформы 1С 8.* анализ наличия на указанном диске файлов с заданным расширением. Информацию по найденым файлам разместить в специальном справочнике 1С, в котором в отдельных реквизитах хранится информация об отдельных характеристиках файлов (Имя файла, Путь к файлу, ДатаСоздания, РазмерФайла и т.д.). При этом файлы с совпадающими именами должны быть помещены в одну группу". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2010, 08:00 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Программист 1с, Все бы ничего, только ошибка в "Если НайденныйФайл <>Неопределено Тогда", и одинаковые по имени документы в эту созданную группу не перемещаются... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2010, 10:11 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Dinamo, Да, ты прав... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2010, 10:12 |
|
||
|
Создать группы...
|
|||
|---|---|---|---|
|
#18+
Dinamo, подправили бы - всего то пару строчек. СтрокаНаименования = Файл.Имя; Данные = Справочники.Проект; НайденныйФайл = Данные.НайтиПоНаименованию(СтрокаНаименования,Истина); Если НайденныйФайл <>Неопределено Тогда // НайденныйФайл = Данные.СоздатьЭлемент(); НайденныйФайл.Наименование=СтрокаНаименования; НайденныйФайл Записать(); Сообщить("Повторяющихся файлов """ + СтрокаНаименования + """ еще нет"); Иначе об = Данные.СоздатьГруппу(); об.Наименование="Группа файлов"+СтрокаНаименования; об.Записать(); ОбНайденныйФайл=НайденныйФайл.ПолучитьОбъект(); ОбНайденныйФайл.Родитель=Об.ССылка; ОбНайденныйФайл.Записать(); + записываем текущий повторный файл НайденныйФайл = Данные.СоздатьЭлемент(); НайденныйФайл.Родитель=Об.ССылка; НайденныйФайл.Наименование=СтрокаНаименования; НайденныйФайл Записать(); КонецЕсли ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.06.2010, 11:09 |
|
||
|
|
start [/forum/topic.php?fid=28&msg=36665328&tid=1522291]: |
0ms |
get settings: |
8ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
150ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
68ms |
get tp. blocked users: |
1ms |
| others: | 241ms |
| total: | 503ms |
| 0 / 0 |
