1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | Функция Выполнить() // откроем папку с локальными временными файлами для базы Модуль = Этот.Владелец; Параметр = Модуль.Параметр; Если (Параметр=0) Тогда Сообщить("Параметр не задан"); Возврат 0; Конец; ПутьБД = Строки.Заменить(Параметр.Путь,"""",""""""); //Сообщить(ПутьБД); ПутьКПапкеВременный = Компьютеры.Директории("%APPDATA%")+"\1C\1cv8\"; ПутьКФайлуВременный = ПутьКПапкеВременный+"1cv8u.pfl"; Текст = ""; Текст.Прочитать(ПутьКФайлуВременный); найден = 0; Стр2 = ""; Для Стр Из Текст Цикл Если (найден=1) Тогда Стр2 = Стр; Прервать; Иначе Если (Строки.Найти(Стр,ПутьБД)>0) Тогда найден = 1; Конец; Конец; Конец; Если (Стр2<>"") Тогда //Сообщить(Стр2); Стр3 = ПутьКПапкеВременный + Строки.Между(Стр2,""",""","""}"); Запустить(Стр3); Иначе Сообщить("Нет временной папки для "+ Параметр.Путь); Конец;Конец |