1с получить каталог пользователя
Как восстановить любое значение из файла в 1с 8.3, 8.2
Как записать текстовый файл в 1с 8.3, 8.2
Ложь // перезаписывать файл, а не дописывать в конец (необязательно.)
Как прочитать текстовый файл в 1с 8.3, 8.2
Как проверить существование файла в 1С 8.3, 8.2
Как скопировать файл в 1с 8.3, 8.2
Как переместить файл в 1с 8.3, 8.2
Как найти файлы в каталоге в 1с 8.3, 8.2
Ложь // если Истина, то будет искать и в подкаталогах
Как удалить файл в 1с 8.3, 8.2
Как удалить файлы в каталоге по маске в 1с 8.3, 8.2
) ; // если маску не указать, то удалятся все файлы вместе с каталогом
Как получить имя временного файла в 1с 8.3, 8.2
Сообщить ( ПолучитьИмяВременногоФайла ( ) ) ; // например, c:\Temp\v8_11AE_4.tmp
Сообщить ( ПолучитьИмяВременногоФайла ( ".txt" ) ) ; // например, c:\Temp\v8_11AE_5.txt
Как прочитать атрибуты файла в 1с 8.3, 8.2
Как установить атрибуты файла в 1с 8.3, 8.2
Как узнать размер файла в 1с 8.3, 8.2
Сообщить ( Файлег . Размер ( ) ) ; // покажет размер в байтах
Как узнать по пути, файл это или каталог в 1с 8.3, 8.2
Как вытащить расширение файла из его пути в 1с 8.3, 8.2
Как вытащить имя файла без расширения в 1с 8.3, 8.2
Как создать каталог в 1с 8.3, 8.2
Как проверить существование каталога в 1с 8.3, 8.2
Как удалить каталог вместе с содержимым в 1с 8.3, 8.2
Как получить каталог временных файлов в 1 с 8.3 , 8.2
Как сохранить произвольное значение во временное хранилище в 1с 8.3, 8.2
АдресВХранилище = ПоместитьВоВременноеХранилище ( Список ) ;
Как прочитать произвольное значение из временного хранилища в 1с 8.3, 8.2
СписокИзХранилища = ПолучитьИзВременногоХранилища ( АдресВХранилище ) ;
Сообщить ( "Значение по этому адресу уже удалено из хранилища." ) ;
Как перезаписать уже сохраненное значение во временном хранилище в 1с 8.3, 8.2
ПоместитьВоВременноеХранилище ( Массив , АдресВХранилище ) ;
Как сохранить значение во временное хранилище на всё время жизни формы в 1с 8.3, 8.2
ПоместитьВоВременноеХранилище ( Массив , ЭтаФорма . УникальныйИдентификатор ) ;
Как сохранить значение во временное хранилище на всё время сеанса пользователя в 1с 8.3, 8.2
АдресВХранилище = ПоместитьВоВременноеХранилище ( Массив , Новый УникальныйИдентификатор ) ;
Как удалить значение из временного хранилища в 1с 8.3, 8.2
Как узнать является ли строка адресом во временном хранилище в 1с 8.3, 8.2
Если ЭтоАдресВременногоХранилища ( АдресВХранилище ) Тогда
Как передать файл с клиента на сервер в 1с 8.3, 8.2
ОповещениеОЗавершени и = Новый ОписаниеОповещения ( "ВыполнитьПослеПомещенияФайла" , ЭтотОбъект ) ;
// если опустить последний параметр, то помещенный файл
// а если указать - то только после удаления объекта формы
// выбрать файл самому четвёртый параметр (интерактивно)
Процедура ВыполнитьПослеПомещенияФайла ( Результат , Адрес , ВыбранноеИмяФайла , ДополнительныеПараметры ) Экспорт
ВыбранноеИмяФайла + " передан на сервер и сохранён во " +
Как прочитать файл на сервере из временного хранилища в 1с 8.3, 8.2
Процедура ПрочитатьФайлНаСервереИзХранилищаНаСервере ( )
Сообщить ( "Сначала нужно передать файл с клиента на сервер." ) ;
ДвоичныеДанные = ПолучитьИзВременногоХранилища ( АдресФайлаВХранилище ) ;
Как передать файл с сервера на клиент в 1с 8.3, 8.2
АдресФайлаВХранилище // адрес в хранилище на сервере
Процедура ВыполнитьПослеПолученияФайлов ( ПолученныеФайлы , ДополнительныеПараметры ) Экспорт
Сообщить ( "Получен " + Файл . Имя + " из " + Файл . Хранение ) ;
Поиск по сайту
Okolokompa в Яндекс Дзен
Как запустить программу (приложение) и дождаться окончания её выполнения в 1с 8.3, 8.2
Истина , // Дождаться завершения работы приложения, которое запустили
// Код, находящийся здесь, будет выполнен, после того, как пользователь закроет запущенное приложение
Как запустить программу (приложение), без ожидания окончания её выполнения в 1с 8.3, 8.2
Ложь , // Дождаться завершения работы приложения, которое запустили
// Код, находящийся здесь, будет выполнен, сразу после запуска приложения
Как открыть сайт в браузере по умолчанию в 1с 8.3, 8.2
Как открыть сайт в Internet Explorer из 1с 8.3, 8.2
ProgramFiles = Shell . ExpandEnvironmentStrings ( "%PROGRAMFILES%" ) ;
ЗапуститьПриложение ( ProgramFiles + "\Internet Explorer\iexplore.exe https://okolokompa.com" ) ;
КомандаСистемы ( "start iexplore.exe http:// okolokompa.ru" ) ;
Как открыть файл Word или Excel в 1с 8.3, 8.2
Как открыть папку в проводнике Windows в 1с 8.3, 8.2
WindowsDir = Shell . ExpandEnvironmentStrings ( "%WINDIR%" ) ;
ЗапуститьПриложение ( WindowsDir + "\explorer.exe " "C:\Наша папка" "" ) ;
Как выделить нужный файл в проводнике в 1с 8.3, 8.2
WindowsDir = Shell . ExpandEnvironmentStrings ( "%WINDIR%" ) ;
ЗапуститьПриложение ( WindowsDir + "\explorer.exe /select," "C:\Наша папка\Наш файл.exe" "" ) ;
Как запустить приложение с параметрами в 1с 8.3, 8.2
ЗапуститьПриложение ( "C:\Windows\explorer.exe " "Параметры запуска" "" ) ;
КомандаСистемы ( "start explorer.exe " "Параметры запуска " "" ) ;
Как выполнить команду операционной системы из приложения в 1с 8.3, 8.2
Как получить имя компьютера в 1с 8.3, 8.2
Как получить путь к каталогу исполняемых файлов в 1с 8.3, 8.2
Процедура ПолучаемПутьККаталогуИсполняемыхФайлов 1 С ( )
// Выведет полный путь к папке bin из которой запущена 1с
Как получить путь к каталогу временных файлов в 1с 8.3, 8.2
Как получить путь к каталогу документов пользователя в 1с 8.3, 8.2
Как получить информацию о мониторах (dpi, разрешение) в 1с 8.3, 8.2
Для Каждого Монитор Из ПолучитьИнформациюЭкрановКлиента ( ) Цикл
Строка ( Монитор . Высота ) + " Ширина: " + Строка ( Монитор . Ширина ) ) ;
Как получить путь к рабочему каталогу данных пользователя в 1с 8.3, 8.2
Процедура ПолучаемПутьКРабочемуКаталогуДанныхПользователя ( )
Как узнать текущий язык системы в 1с 8.3, 8.2
Как получить список пользователей операционной системы в 1с 8.3, 8.2
Процедура ПолучаемСписокПользователейОперационнойСистемы ( )
Для Каждого Имя Из Пользователь . Пользовател и Цикл
Поиск по сайту
Okolokompa в Яндекс Дзен
Внешняя компонента UsersDef.dll (для версии 1С:Предприятие 7.7)
Примечание: в SQL-версии не следует одновременно работать с файлом пользователей и в конфигураторе, и через Предприятие, иначе слетают параметры соединения с базой банных.
ИзменитьПароль (СтарыйПароль,НовыйПароль,Копия)
ChangePass (СтарыйПароль, НовыйПароль, Копия)
ИзменитьИмяПользователя (ПутьКБазе,СтароеИмя, НовояИмя,Копия)
ChangeUserName (ПутьКБазе,СтароеИмя, НовояИмя,Копия)
УдалитьПользователя (ПутьКБазе,ИмяПользователя,Копия)
DeleteUser (ПутьКБазе,ИмяПользователя,Копия)
СоздатьПользователя (ПутьКБазе,ИмяПользователя, ПарольПользователя, ПолноеИмяПользователя, ДиректорияПользователя,ИнтерфейсПользователя,ПраваПользователя ,Копия)
CreateUser (ПутьКБазе,ИмяПользователя, ПарольПользователя, ПолноеИмяПользователя, ДиректорияПользователя,ИнтерфейсПользователя,ПраваПользователя ,Копия)
ПолучитьИнтерфейсыБазы(ПутьКБазе)
GetBaseInterfaces(ПутьКБазе)
ПолучитьПраваБазы(ПутьКБазе)
GetBaseAccesses(ПутьКБазе)
ИзменитьДанныеПользователя (ПутьКБазе,ИмяПользователя, НовыйПарольПользователя, НовоеПолноеИмяПользователя, НоваяДиректорияПользователя,НовыйИнтерфейсПользователя,НовыеПраваПользователя ,Копия)
ChangeUserData (ПутьКБазе,ИмяПользователя, НовыйПарольПользователя, НовоеПолноеИмяПользователя, НоваяДиректорияПользователя,НовыйИнтерфейсПользователя,НовыеПраваПользователя ,Копия)
Если какой-то из параметров не нужно изменять, то передается значение в виде пустой строки.
ПолучитьСписокПользователей (ПутьКБазе)
GetUsersList(ПутьКБазе)
СортироватьСписокПользователей(ПутьКБазе,Копия)
SortUsersList(ПутьКБазе,Копия)
ПолучитьСписокПользователейТЗ(ПутьКБазе)
GetUsersListTZ(ПутьКБазе)
Возвращает список пользователей с данными в виде таблицы значений колонки: ИмяПользователя, ХэшПароляПользователя, ПолноеИмяПользователя, ДиректорияПользователя, ИнтерфейсПользователя, ПраваПользователя.
ПолучитьяИмяСервераСКЛ(ПутьКБазе)
GetSQLServerName(ПутьКБазе)
Возвращает в виде строки название SQL-сервера к которому подключается данная база (только для баз под SQL).
ПолучитьИмяБазыСКЛ(ПутьКБазе)
GetSQLBaseName(ПутьКБазе)
Возвращает в виде строки название базы как она названа в SQL-сервере (только для баз под SQL).
ПолучитьИмяПользователяСКЛ(ПутьКБазе)
GetSQLUserName(ПутьКБазе)
Возвращает в виде строки имя пользователя под которым происходит подключение к SQL-серверу для данной базы (только для баз под SQL).
ПолучитьПарольПользователяСКЛ(ПутьКБазе)
GetSQLUserPass(ПутьКБазе)
Возвращает в виде строки пароль пользователя которым производится подключение к SQL-серверу для данной базы (только для баз под SQL).
Компонента создана по технологии создания внешних компонент.
&НаСервере
Процедура ЧтениеИЗаписьФайлов ()
// Любое сериализуемое значение (массив, структура, таблица значений, строки. ) можно сохранить в файл
НаборСимволов = Новый Массив ;
НаборСимволов . Добавить ( 125 );
НаборСимволов . Добавить ( "А" );
НаборСимволов . Добавить ( "99" );
НаборСимволов . Добавить ( "%" );
ЗначениеВФайл ( "D:\Symbol.txt" , НаборСимволов ); // работает только на &НаСервере
// Восстановление произвольных значений из файла
НаборСимволовИзФайла = ЗначениеИзФайла ( "D:\Symbol.txt" );
Сообщить ( НаборСимволовИзФайла [ 0 ]); // 125
Сообщить ( НаборСимволовИзФайла [ 1 ]); // А
Сообщить ( НаборСимволовИзФайла [ 2 ]); // 99
Сообщить ( НаборСимволовИзФайла [ 3 ]); // %
&НаКлиенте
Процедура ОперацииНадФайлами ( Команда )
// Создание переменных (имя и путь к файлу)
ПутьКФайлу_Test = "D:\Test.txt" ;
ПутьКФайлу_Copy = "D:\Copy.txt" ;
// Создание пустого файла
ТекстФайл = Новый ЗаписьТекста ();
ТекстФайл . Закрыть ();
// Проверка на существование файла
ТекстФайл = Новый Файл ( ПутьКФайлу_Test );
Если ТекстФайл . Существует () Тогда
Сообщить ( ПутьКФайлу_Test + " существует!" );
КонецЕсли;
// Копирование файла. Параметры: Какой файл копируем, Куда файл копируем
КопироватьФайл ( ПутьКФайлу_Test , ПутьКФайлу_Copy ); // Если файл существует, то перезапишет
// Перемещение файла. Параметры: Какой файл копируем, Куда файл копируем
ПереместитьФайл ( ПутьКФайлу_Test , ПутьКФайлу_Copy ); // Если файл существует, то перезапишет
// Поиск файлов в каталоге (функция возвращает массив значений)
// Параметры: Каталог поиска, Маска поиска, Поиск и в подкаталогах
МассивФайлов = НайтиФайлы ( "D:\" , "*.txt" , Ложь);
Для Каждого ТекФайл Из МассивФайлов Цикл
Сообщить ( "Найден файл: " + ТекФайл . ПолноеИмя );
КонецЦикла;
// Удаление файла
УдалитьФайлы ( ПутьКФайлу_Test ); // Если файл с параметром только для чтения, то будет ошибка
// Удаление файлов в каталоге по маске
// поиск в каталоге нерекурсивный
УдалитьФайлы ( "D:\" , "*.txt" ); // Если маски нет, то удалятся все файлы и сам каталог
// Получение имя временного файла
ПолучитьИмяВременногоФайла (); // Например, C:\Temp\H_kImX035.tmp
ПолучитьИмяВременногоФайла ( ".txt" ); // Например, C:\Temp\H_kImX035.txt
&НаКлиенте
Процедура ПолучениеИИзменениеАтрибутовФайла ( Команда )
ТекстФайл = Новый Файл ( "D:\Test.txt" );
// Чтение атрибутов
ТекстФайл . ПолучитьВремяИзменения (); // время последнего изменения файла
ТекстФайл . ПолучитьТолькоЧтение (); // проверяем атрибут только чтение
ТекстФайл . ПолучитьНевидимость (); // проверяем атрибут hidden (скрытность, невидимость)
ТекстФайл . Размер (); // размер файла в байтах
// Получение расширение файла из его пути
ТекстФайл . Расширение (); // .txt
// Получение имени файла без расширения
ТекстФайл . ИмяБезРасширения (); // Test
// Получение информации по пути файла - это файл или каталог
Если ТекстФайл . ЭтоКаталог () Тогда
// Это каталог
ИначеЕсли ТекстФайл . ЭтоФайл () Тогда
// Это файл
КонецЕсли;
// Изменение атрибутов
ТекстФайл . УстановитьВремяИзменения ( ТекущаяДата ()); // меняем время последнего изменения файла
ТекстФайл . УстановитьТолькоЧтение (Ложь); // меняем атрибут только чтение
ТекстФайл . УстановитьНевидимость (Ложь); // меняем атрибут невидимости
&НаКлиенте
Процедура ОперацииНадКаталогами ( Команда )
//Создание каталога (он может уже существовать)
СоздатьКаталог ( "D:\Catalog" );
//Создание подкаталогов
СоздатьКаталог ( "D:\Catalog\2020\1" );
// Проверка существования каталога
Каталог = Новый Файл ( "D:\Catalog" );
Если Каталог . Существует () Тогда
Сообщить ( "Каталог по пути D:\Catalog существует!" );
КонецЕсли;
// Удаление каталога (вместе с файлами и подкаталогами)
УдалитьФайлы ( "D:\Catalog" ); // Можно добавить максу
// Получение каталога временных файлов
КаталогВременныхФайлов (); // Например, C:\Windows\Temp
&НаКлиенте
Процедура ОперацииСВременнымХранилищем ( Команда )
// Временное хранилище позволяет передавать данные,
// которые иначе не передать (произвольного типа) между сервером и клиентом
// Сохранение произвольного значения (списка значений) во временном хранилище
СЗ = Новый СписокЗначений ;
СЗ . Добавить ( "Арбуз" );
СЗ . Добавить ( "Дыня" );
СЗ . Добавить ( "Яблоко" );
АдресВХранилище = ПоместитьВоВременноеХранилище ( СЗ );
// Чтение произвольного значения (списка значений) из временного хранилища
СЗИзХранилища = ПолучитьИзВременногоХранилища ( АдресВХранилище );
Если СЗИзХранилища = Неопределено Тогда
Сообщить ( "Значение по этому адресу из хранилища уже удалено!" );
Иначе
Сообщить ( СЗИзХранилища [ 0 ]); // Арбуз
КонецЕсли;
// Перезапись уже сохраненного значения (массив) во временном хранилище
НаборСимволов = Новый Массив ;
НаборСимволов . Добавить ( 125 );
НаборСимволов . Добавить ( "А" );
НаборСимволов . Добавить ( "99" );
НаборСимволов . Добавить ( "%" );
// Время хранения зависит от параметра "АдресВХранилище" функции ПоместитьВоВременноеХранилище
ПоместитьВоВременноеХранилище ( НаборСимволов , АдресВХранилище );
// Если адрес - уникальный идентификатор формы или существующий адрес в хранилище:
// Значение будет удалено после закрытия формы
ПоместитьВоВременноеХранилище ( НаборСимволов , ЭтаФорма . УникальныйИдентификатор );
// Если адрес - уникальный идентификатор, не являющийся уникальным идентификатором формы %
// Значение будет удалено после завершения сеанса пользвоателя
ПоместитьВоВременноеХранилище ( НаборСимволов , Новый УникальныйИдентификатор );
// Если адрес не указан:
// Значение будет удалено после очередного запроса сервера
ПоместитьВоВременноеХранилище ( НаборСимволов );
// Удаление значения из временного хранилища
УдалитьИзВременногоХранилища ( АдресВХранилище );
// Проверка является ли строка адресом во временном хранилище
Если ЭтоАдресВременногоХранилища ( АдресВХранилище ) Тогда
// Это адрес во временном хранилище
КонецЕсли;
&НаКлиенте
Процедура ПередачаФайлаСКлиентаНаСервер ( Команда )
ТекстФайл = Новый ЗаписьТекста ( "D:\Prostokvashino.txt" );
ТекстФайл . ЗаписатьСтроку ( "Кот Матроскин" );
ТекстФайл . ЗаписатьСтроку ( "Дядя Федор" );
ТекстФайл . ЗаписатьСтроку ( "Шарик" );
ТекстФайл . Закрыть ();
Завершено = Новый ОписаниеОповещения ( "ПослеПередачи" , ЭтотОбъект );
// Параметр УникальныйИдентификаторФормы - если не указывать - то файл будет удален после очередного запроса сервера
// если указать - то после удаления объекта формы
// Параметр Интерактивно (Истина) - дает пользователю выбрать файл самому
НачатьПомещениеФайла ( Завершено , , "D:\Prostokvashino.txt" , Ложь, ЭтаФорма . УникальныйИдентификатор );
&НаКлиенте
Процедура ПослеПередачи ( Результат , ХранимыйАдрес , ВыбранноеИмяФайла , ДопПараметры ) Экспорт
Если Результат Тогда
// Сохранение полученного адреса в реквизите формы (строка) - адрес файла в хранилище на сервере
АдресФайлаВХранилище = ХранимыйАдрес ;
Сообщить ( "Файл " + ВыбранноеИмяФайла + " передан на сервер и сохранён во временном хранилище. Адрес: " + ХранимыйАдрес );
Иначе
Сообщить ( "Ошибка передачи файла на сервер!" );
КонецЕсли;
Читайте также: