Архивы сохранение

Создание файла формата DBF в 1С

31.07.2024 Павел Грибов 1C

Задача: создать силами платформы 1c файл в формате DBF (выгрузка в формате dbf)

Решение: собственно в 1С всё есть. Будем использовать метод XBase. При работе с DBF важно помнить, что это очень старый формат хранения данных, но тем не менее до сих пор используется для различного вида обменов. Его ограничениями являются:

длина имени файлов не более 8 символов, поэтому при генерации имени временного файла, не получится использовать функцию ПолучитьИмяВременногоФайла()
файл не должен быть больше 2ггб
имя колонки не может быть длиннее 10 символов
файл создается НЕ в кодировке UTF-8 (он в такую не умеет)
файл нужно сначала создать, потом закрыть, потом открыть и записать в него данные

А так, файл создаётся достаточно просто:


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	объект.РезультирующиеДанные.Очистить();
		нс=объект.РезультирующиеДанные.Добавить();
		нс.Код_фиас="1112232423";
		нс.НомерКвартиры="43";
		нс.Задолженость="20";
		нс.Переплата="12";
		нс.Услуга="КТВ+Домофон";
		нс.ЛС_База="235465";
		нс.ЛС_ЕПД="223234234";
		нс.ЛС_Электрика="445457223";
		нс.Адрес="г. Вологда,ул Лёнина 3";
		нс.АдресДоставки="г. Сокол, ул Лёнина 4";	
КонецПроцедуры

&НаСервере
Функция ВыгрузитьDBFНаСервере()    
	answer=Новый Структура("хранилище,имяфайла");
	НоваяТаблица = Новый XBase;
    НоваяТаблица.Кодировка = КодировкаXBase.ANSI;
	
    НоваяТаблица.Поля.Добавить("fias","S",50);
	НоваяТаблица.Поля.Добавить("flat","S",10);
	НоваяТаблица.Поля.Добавить("credit","N",10,2);
	НоваяТаблица.Поля.Добавить("debet","N",10,2);
	НоваяТаблица.Поля.Добавить("service","S",50);
	НоваяТаблица.Поля.Добавить("ls_base","S",10);
	НоваяТаблица.Поля.Добавить("ls_epd","S",10);
	НоваяТаблица.Поля.Добавить("ls_electro","S",10);
	НоваяТаблица.Поля.Добавить("address","S",100);
	НоваяТаблица.Поля.Добавить("delivery","S",100);

	имя_фр_файла=Лев(Новый УникальныйИдентификатор(),8)+".dbf";
	ПутьКНовомуDBF = КаталогВременныхФайлов()+"/"+имя_фр_файла;
    НоваяТаблица.СоздатьФайл(ПутьКНовомуDBF); 
    НоваяТаблица.ЗакрытьФайл();	
	
	Таблица = Новый XBase;
    Таблица.ОткрытьФайл(ПутьКНовомуDBF,, Ложь);    	
	
	для каждого стр из объект.РезультирующиеДанные цикл
	   Таблица.Добавить();
 	   Таблица.fias = стр.Код_фиас;
 	   Таблица.credit = стр.НомерКвартиры;
	   Таблица.debet = стр.Задолженость;
	   Таблица.service = стр.Переплата;
	   Таблица.ls_base = стр.Услуга;
	   Таблица.ls_epd = стр.ЛС_База;
	   Таблица.ls_electro = стр.ЛС_ЕПД;
	   Таблица.address = стр.address;
	   Таблица.delivery = стр.АдресДоставки;
 	   Таблица.Записать(); 
	конеццикла;	
	
	Таблица.ЗакрытьФайл();
	
	Двоичное=Новый ДвоичныеДанные(ПутьКНовомуDBF);
	answer.хранилище=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);	
	answer.имяфайла=имя_фр_файла;
	
	возврат answer;	
КонецФункции

&НаКлиенте
Процедура ВыгрузитьDBF(Команда)
	рез=ВыгрузитьDBFНаСервере();
	
		Двоичное=ПолучитьИзВременногоХранилища(рез.хранилище);			
		ИмяФайла = КаталогВременныхФайлов() + рез.имяфайла;		
		Двоичное.Записать(ИмяФайла);
		ЗапуститьПриложение(ИмяФайла);	
КонецПроцедуры

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

объект.РезультирующиеДанные.Очистить();

нс=объект.РезультирующиеДанные.Добавить();

нс.Код_фиас="1112232423";

нс.НомерКвартиры="43";

нс.Задолженость="20";

нс.Переплата="12";

нс.Услуга="КТВ+Домофон";

нс.ЛС_База="235465";

нс.ЛС_ЕПД="223234234";

нс.ЛС_Электрика="445457223";

нс.Адрес="г. Вологда,ул Лёнина 3";

нс.АдресДоставки="г. Сокол, ул Лёнина 4";

КонецПроцедуры

&НаСервере

Функция ВыгрузитьDBFНаСервере()

answer=Новый Структура("хранилище,имяфайла");

НоваяТаблица = Новый XBase;

НоваяТаблица.Кодировка = КодировкаXBase.ANSI;

НоваяТаблица.Поля.Добавить("fias","S",50);

НоваяТаблица.Поля.Добавить("flat","S",10);

НоваяТаблица.Поля.Добавить("credit","N",10,2);

НоваяТаблица.Поля.Добавить("debet","N",10,2);

НоваяТаблица.Поля.Добавить("service","S",50);

НоваяТаблица.Поля.Добавить("ls_base","S",10);

НоваяТаблица.Поля.Добавить("ls_epd","S",10);

НоваяТаблица.Поля.Добавить("ls_electro","S",10);

НоваяТаблица.Поля.Добавить("address","S",100);

НоваяТаблица.Поля.Добавить("delivery","S",100);

имя_фр_файла=Лев(Новый УникальныйИдентификатор(),8)+".dbf";

ПутьКНовомуDBF = КаталогВременныхФайлов()+"/"+имя_фр_файла;

НоваяТаблица.СоздатьФайл(ПутьКНовомуDBF);

НоваяТаблица.ЗакрытьФайл();

Таблица = Новый XBase;

Таблица.ОткрытьФайл(ПутьКНовомуDBF,, Ложь);

для каждого стр из объект.РезультирующиеДанные цикл

Таблица.Добавить();

Таблица.fias = стр.Код_фиас;

Таблица.credit = стр.НомерКвартиры;

Таблица.debet = стр.Задолженость;

Таблица.service = стр.Переплата;

Таблица.ls_base = стр.Услуга;

Таблица.ls_epd = стр.ЛС_База;

Таблица.ls_electro = стр.ЛС_ЕПД;

Таблица.address = стр.address;

Таблица.delivery = стр.АдресДоставки;

Таблица.Записать();

конеццикла;

Таблица.ЗакрытьФайл();

Двоичное=Новый ДвоичныеДанные(ПутьКНовомуDBF);

answer.хранилище=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);

answer.имяфайла=имя_фр_файла;

возврат answer;

КонецФункции

&НаКлиенте

Процедура ВыгрузитьDBF(Команда)

рез=ВыгрузитьDBFНаСервере();

Двоичное=ПолучитьИзВременногоХранилища(рез.хранилище);

ИмяФайла = КаталогВременныхФайлов() + рез.имяфайла;

Двоичное.Записать(ИмяФайла);

ЗапуститьПриложение(ИмяФайла);

КонецПроцедуры

Оставить комментарий 1с, dbf, выгрузка, создание, сохранение

Python 3: Сохранение вложения из письма по протоколу IMAP

17.07.2018 Павел Грибов Python

Задача: посмотреть в почтовом ящике письмо. Если в нем есть вложение — сохранить его в папку. Письмо удалить.

Решение 1 (листаем по одному письму):

#!/usr/bin/env python3
#encoding: UTF-8
import sys
import imaplib
import email
import os

server = "mail.esrgsergser.ru"
port = "143"
login = "strgsere@sgergsergse.ru"
password = "werferfe"
putdir="/home/pavel/";

ver="1.0";
copyleft="(c) 2018 by Pavel Gribov http://грибовы.рф";
comment="Сей чудный скрипт смотрит почту по imap протоколу, сохраняет вложения в заданную папку, удаляет письмо с сервера";

# История изменений

##

print (ver);
print (copyleft);
print (comment);

if len(sys.argv)==1:
    print ("Возможные параметры:")
    print ("--run выполнение скрипта. Без этого параметра не выполняется.")
    exit(0)
arg=sys.argv[1]
if arg=="--run":
    print ("- подключаемся к ",server);
    mail = imaplib.IMAP4_SSL(server)
    print ("-- логинимся");
    mail.login(login, password)
    mail.list()
    print ("-- подключаемся к inbox");
    mail.select("inbox")
    print ("-- получаем UID последнего письма");
    result, data = mail.uid('search', None, "ALL")       
    try:
     latest_email_uid = data[0].split()[-1]     
    except IndexError:
     print("-- писем нет!");
     exit(0)
    result, data = mail.uid('fetch', latest_email_uid, '(RFC822)')
    raw_email = data[0][1]
    try:
     email_message = email.message_from_string(raw_email)	
    except TypeError:
     email_message = email.message_from_bytes(raw_email)
    print ("--- нашли письмо от: ",email.header.make_header(email.header.decode_header(email_message['From'])));
    for part in email_message.walk():
        print(part.get_content_type())
        if "application" in part.get_content_type() :	    
            filename = part.get_filename()
            filename=str(email.header.make_header(email.header.decode_header(filename)))
            if not(filename): filename = "test.txt"          
            print ("---- нашли вложение ",filename);	    
            fp = open(os.path.join(putdir, filename), 'wb')
            fp.write(part.get_payload(decode=1))
            fp.close
    print ("-- удаляем письмо");
    mail.uid('STORE', latest_email_uid , '+FLAGS', '(\Deleted)')  
    mail.expunge()

#!/usr/bin/env python3

#encoding: UTF-8

import sys

import imaplib

import email

import os

server = "mail.esrgsergser.ru"

port = "143"

password = "werferfe"

putdir="/home/pavel/";

ver="1.0";

comment="Сей чудный скрипт смотрит почту по imap протоколу, сохраняет вложения в заданную папку, удаляет письмо с сервера";

# История изменений

print (ver);

print (copyleft);

print (comment);

if len(sys.argv)==1:

print ("Возможные параметры:")

print ("--run выполнение скрипта. Без этого параметра не выполняется.")

exit(0)

arg=sys.argv[1]

if arg=="--run":

print ("- подключаемся к ",server);

mail = imaplib.IMAP4_SSL(server)

print ("-- логинимся");

mail.login(login, password)

mail.list()

print ("-- подключаемся к inbox");

mail.select("inbox")

print ("-- получаем UID последнего письма");

result, data = mail.uid('search', None, "ALL")

try:

latest_email_uid = data[0].split()[-1]

except IndexError:

print("-- писем нет!");

exit(0)

result, data = mail.uid('fetch', latest_email_uid, '(RFC822)')

raw_email = data[0][1]

try:

email_message = email.message_from_string(raw_email)

except TypeError:

email_message = email.message_from_bytes(raw_email)

print ("--- нашли письмо от: ",email.header.make_header(email.header.decode_header(email_message['From'])));

for part in email_message.walk():

print(part.get_content_type())

if "application" in part.get_content_type() :

filename = part.get_filename()

filename=str(email.header.make_header(email.header.decode_header(filename)))

if not(filename): filename = "test.txt"

print ("---- нашли вложение ",filename);

fp = open(os.path.join(putdir, filename), 'wb')

fp.write(part.get_payload(decode=1))

fp.close

print ("-- удаляем письмо");

mail.uid('STORE', latest_email_uid , '+FLAGS', '(\Deleted)')

mail.expunge()

Решение 2 (пролистываем весь ящик):

#!/usr/bin/env python3
#encoding: UTF-8
import sys
import imaplib
import email
import os

server = "mail.sgergser.ru"
port = "143"
login = "sergfsertg@ergser.ru"
password = "esrgser"
putdir="/home/esrgser/";

ver="1.0";
copyleft="(c) 2018 by Pavel Gribov http://грибовы.рф";
comment="Сей чудный скрипт смотрит почту по imap протоколу, сохраняет вложения в заданную папку, удаляет писмо с сервера";

# История изменений

##

print (ver);
print (copyleft);
print (comment);

if len(sys.argv)==1:
    print ("Возможные параметры:")
    print ("--run выполнение скрипта. Без этого параметра не выполняется.")
    exit(0)
arg=sys.argv[1]
if arg=="--run":
    print ("- подключаемся к ",server);
    mail = imaplib.IMAP4_SSL(server)
    print ("-- логинимся");
    mail.login(login, password)
    mail.list()
    print ("-- подключаемся к inbox");
    mail.select("inbox")
    print ("-- получаем UID последнего письма");
    result, data = mail.uid('search', None, "ALL")       
    
    for num in data[0].split() :
     result, data = mail.fetch(num, '(RFC822)')
     raw_email = data[0][1]    
     try:
      email_message = email.message_from_string(raw_email)	
     except TypeError:
      email_message = email.message_from_bytes(raw_email)
     print ("--- нашли письмо от: ",email.header.make_header(email.header.decode_header(email_message['From'])));
     for part in email_message.walk():
        print(part.get_content_type())
        if "application" in part.get_content_type() :	    
            filename = part.get_filename()
            filename=str(email.header.make_header(email.header.decode_header(filename)))
            if not(filename): filename = "test.txt"          
            print ("---- нашли вложение ",filename);	    
            fp = open(os.path.join(putdir, filename), 'wb')
            fp.write(part.get_payload(decode=1))
            fp.close
     print ("-- удаляем письмо");
     mail.store(num , '+FLAGS', '(\Deleted)')  
     mail.expunge()    
    mail.close()
    mail.logout();

#!/usr/bin/env python3

#encoding: UTF-8

import sys

import imaplib

import email

import os

server = "mail.sgergser.ru"

port = "143"

password = "esrgser"

putdir="/home/esrgser/";

ver="1.0";

comment="Сей чудный скрипт смотрит почту по imap протоколу, сохраняет вложения в заданную папку, удаляет писмо с сервера";

# История изменений

print (ver);

print (copyleft);

print (comment);

if len(sys.argv)==1:

print ("Возможные параметры:")

print ("--run выполнение скрипта. Без этого параметра не выполняется.")

exit(0)

arg=sys.argv[1]

if arg=="--run":

print ("- подключаемся к ",server);

mail = imaplib.IMAP4_SSL(server)

print ("-- логинимся");

mail.login(login, password)

mail.list()

print ("-- подключаемся к inbox");

mail.select("inbox")

print ("-- получаем UID последнего письма");

result, data = mail.uid('search', None, "ALL")

for num in data[0].split() :

result, data = mail.fetch(num, '(RFC822)')

raw_email = data[0][1]

try:

email_message = email.message_from_string(raw_email)

except TypeError:

email_message = email.message_from_bytes(raw_email)

print ("--- нашли письмо от: ",email.header.make_header(email.header.decode_header(email_message['From'])));

for part in email_message.walk():

print(part.get_content_type())

if "application" in part.get_content_type() :

filename = part.get_filename()

filename=str(email.header.make_header(email.header.decode_header(filename)))

if not(filename): filename = "test.txt"

print ("---- нашли вложение ",filename);

fp = open(os.path.join(putdir, filename), 'wb')

fp.write(part.get_payload(decode=1))

fp.close

print ("-- удаляем письмо");

mail.store(num , '+FLAGS', '(\Deleted)')

mail.expunge()

mail.close()

mail.logout();

Оставить комментарий imap, python, вложение, работа с почтой, сохранение, удаление

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						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