Пример программного создания каталога для хранения данных на жестком диске или внешнем носителе.

05.03.11

Разработка - Универсальные функции

+5 –
Когда вопрос становится, где хранить файлы или каким образом программно создать каталоги для выгружаемых файлов из системы, то предлагаю следующий пример:    

Я решил сделать каталог год/месяц/число/

 

ПроцедураКоманднаяПанель6СохранитьТаблицуXML(Кнопка)
Запись = Новый ЗаписьXML;
СтандартныйПутьКФайлу = "C:\ExternalTable";
Дата_ТД = Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
Время_ТД = Формат(ТекущаяДата(),"ДЛФ=T");
ТекущийМесяц = ОпределитьМесяц(Прав(Лев(Дата_ТД,5),2)); //функция находится ниже
ВремяТекущееСкорректированное = СтрЗаменить(Время_ТД,":","_");
ПутьКФайлу = СтандартныйПутьКФайлу + "\" + Прав(Дата_ТД,4) + "\" + ТекущийМесяц 
+ "\" + Лев(Дата_ТД,2) + "\";
ПроверитьСуществованиеКаталога(ПутьКФайлу);
Запись.ОткрытьФайл(ПутьКФайлу + "ПервоначальнаяТаблица" +ВремяТекущееСкорректированное);
//Работа непосредственно с файлом
Запись.ЗаписатьОбъявлениеXML();
Запись.Закрыть();
КонецПроцедуры

 

 

 

ФункцияОпределитьМесяц(МесяцЦифровой)
Если МесяцЦифровой = "01" Тогда  
Возврат "Январь";
ИначеЕсли МесяцЦифровой = "02" Тогда  
Возврат "Февраль";
ИначеЕсли МесяцЦифровой = "03" Тогда  
Возврат "Март";
ИначеЕсли МесяцЦифровой = "04" Тогда  
Возврат "Апрель";
ИначеЕсли МесяцЦифровой = "05" Тогда  
Возврат "Май";
ИначеЕсли МесяцЦифровой = "06" Тогда  
Возврат "Июнь";
ИначеЕсли МесяцЦифровой = "07" Тогда  
Возврат "Июль";
ИначеЕсли МесяцЦифровой = "08" Тогда  
Возврат "Август";
ИначеЕсли МесяцЦифровой = "09" Тогда  
Возврат "Сентябрь";
ИначеЕсли МесяцЦифровой = "10" Тогда  
Возврат "Октябрь";
ИначеЕсли МесяцЦифровой = "11" Тогда  
Возврат "Ноябрь";
ИначеЕсли МесяцЦифровой = "12" Тогда  
Возврат "Декабрь";
КонецЕсли;
КонецФункции

 

Вступайте в нашу телеграмм-группу Инфостарт

+5 –

См. также

Заполнение формул в файлах Excel (кроссплатформенное решение)

Загрузка и выгрузка в Excel Универсальные функции Программист 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025    4169    Abysswalker    11    

46
Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

Порой необходимо временно отключить расширение 1С, не удаляя его, чтобы не потерять данные. Но в этом случае при каждом запуске всем будет лезть уведомление о неактивном расширении, хотя очевидно, это техническая информация, которой не стоит лишний раз пугать пользователей.

14.05.2025    7777    DeerCven    15    

61
В помощь разработчику: преобразование табличного документа в запрос

Инструментарий разработчика Универсальные функции Запросы Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024    10231    249    ixijixi    10    

41
Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024    53028    dimanich70    84    

174
Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    7696    7    John_d    13    

59
GUID в 1С 8.3

Универсальные функции Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    67576    atdonya    31    

72
Переоткрытие внешних обработок

Универсальные функции Программист 1С:Предприятие 8 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    9640    ke.92@mail.ru    17    

68
Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик 1C:Бухгалтерия Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023    44292    YA_418728146    14    

128
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
0. Bober777 26 06.03.11 06:19 Сейчас в теме
Когда вопрос становится, где хранить файлы или каким образом программно создать каталоги для выгружаемых файлов из системы, то предлагаю следующий пример:

Перейти к публикации

+ – Ответить
1. Душелов 4025 06.03.11 06:19 Сейчас в теме
А почему месяц сразу форматом и не получить?

ТекущийМесяц = Формат(Дата_ТД, "ДФ=MMMM");
Bober777; +1 – Ответить
2. Staind111 06.03.11 08:06 Сейчас в теме
Тоже самое хотел написать :)

Или раз уж используем функцию для определения названия месяца, то почему его номер получаем таким странным образом, не легче было бы использовать - НомерМесяца = Месяц(ТекущаяДата())?
Bober777; +1 – Ответить
3. alexk-is 6550 06.03.11 08:32 Сейчас в теме
А я всегда думал, что всё это делается так:
ПутьКФайлу = "C:\ExternalTable" + Формат(ТекущаяДата(), "ДФ=\yyyy\MMMM\dd\");
ИмяФайла = "ПервоначальнаяТаблица" + Формат(ТекущаяДата(), "ДФ=HH_mm");
СоздатьКаталог(ПутьКФайлу);
Запись = Новый ЗаписьXML
Запись.ОткрытьФайл(ПутьКФайлу + ИмяФайла);
sCHTASS; obmailok; Spartan; BigB; Yashazz; +5 – Ответить
4. Bober777 26 06.03.11 09:34 Сейчас в теме
Спасибо теперь буду знать).
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация