xsi » Поиск » HelpF.pro

Результаты по ключевому слову: xsi

Как декодировать (преобразовать) Unicode в 1С

При разработке очередного обмена с интернет магазином через API столкнулисть что сайт возвращает ответ в виде:

Код VBS

 {"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"}

из кода ясно что это JSON и используя код ПрочитатьJSON

Код 1C v 8.3

 Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(стрВходящая);
	ДанныеЛога = ПрочитатьJSON(Чтение);
	Чтение.Закрыть();

В переменной ДанныеЛога будет структура в виде

В результате получилась функция с 2-мя вариантами возрата, в зависимости от того как нужно

Код 1C v 8.3

 //Функция читает полученный JSON декадируя текст юникод
Функция ДекодироватьUniCodeВJSON(стрВходящая) 
	// стрВходящая содержит {"ok":"true","description":"\u0421\u0442\u0430\u0442\u0443\u0441 \u0437\u0430\u043a\u0430\u0437\u0430 \u0438\u0437\u043c\u0435\u043d\u0435\u043d"}
	
	Чтение = Новый ЧтениеJSON;
	Чтение.УстановитьСтроку(стрВходящая);
	ДанныеЛога = ПрочитатьJSON(Чтение);
	Чтение.Закрыть();
	
	// Вариант 1 используя перебор структуры и вывод в текстовую переменную
	Текст = "";
	Для каждого Элемент Из ДанныеЛога Цикл
		//добавим разделитель после предыдущего значения
		Текст = Текст + ?(НЕ ПустаяСтрока(Текст), Символы.ПС, "");
		//добавим представление ключа и значения:
		Текст = Текст + Элемент.Ключ + " = " + Элемент.Значение;
	КонецЦикла;
	Возврат Текст; //Вернет   ok = true   description = Статус заказа изменен
	
	// Вариант 2 мспользуя ЗаписьJSON
	Запись = Новый ЗаписьJSON;    
	Запись.УстановитьСтроку(Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Нет));
	ЗаписатьJSON(Запись, ДанныеЛога,);
	Возврат Запись.Закрыть();  // Вернет JSON  {"ok":"true","description":"Статус заказа изменен"}
КонецФункции

На просторах интернета была найдена еще одна функция:

Код 1C v 8.3

 //Параметры: Строка в Юникод (обязательный) Тип: Строка. Исходная строка.
//Возвращаемое значение: Тип: Строка. Строка обработанных символов.
//Описание: Возвращает преобразованную строку из формата Unicod.
//Автор: Александр Кияница (treedo)
Функция ПереобразоватьЮникод(Строка)
   
    ГотововаяСтрока = "" ;
    
    МасУкр = Новый Массив(66) ;
    
    МасУкр[0]="А";   МасУкр[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]="ґ"; МасУкр[38]="д";
    МасУкр[39]="е";  МасУкр[40]="є"; МасУкр[41]="ж"; МасУкр[42]="з"; МасУкр[43]="и"; МасУкр[44]="і";
    МасУкр[45]="ї";  МасУкр[46]="й"; МасУкр[47]="к"; МасУкр[48]="л"; МасУкр[49]="м"; МасУкр[50]="н";
    МасУкр[51]="о";  МасУкр[52]="п"; МасУкр[53]="р"; МасУкр[54]="с"; МасУкр[55]="т"; МасУкр[56]="у";
    МасУкр[57]="ф";  МасУкр[58]="х"; МасУкр[59]="ц"; МасУкр[60]="ч"; МасУкр[61]="ш"; МасУкр[62]="щ";
    МасУкр[63]="ь";  МасУкр[31]="ю"; МасУкр[65]="я";  
        
    
    МасКод = Новый Массив(66) ;
    
    МасКод[0]="0410";   МасКод[1]="0411";  МасКод[2]="0412";  МасКод[3]="0413";  МасКод[4]="0490";  МасКод[5]="0414";
    МасКод[6]="0415";   МасКод[7]="0404";  МасКод[8]="0416";  МасКод[9]="0417";  МасКод[10]="0418"; МасКод[11]="0406";
    МасКод[12]="0407";  МасКод[13]="0419"; МасКод[14]="041A"; МасКод[15]="041B"; МасКод[16]="041C"; МасКод[17]="041D";
    МасКод[18]="041E";  МасКод[19]="041F"; МасКод[20]="0420"; МасКод[21]="0421"; МасКод[22]="0422"; МасКод[23]="0423";
    МасКод[24]="0424";  МасКод[25]="0425"; МасКод[26]="0426"; МасКод[27]="0427"; МасКод[28]="0428"; МасКод[29]="0429";
    МасКод[30]="042C";  МасКод[31]="042E"; МасКод[32]="042F";  


    МасКод[33]="0430";  МасКод[34]="0431"; МасКод[35]="0432"; МасКод[36]="0413"; МасКод[37]="0491"; МасКод[38]="0434";
    МасКод[39]="0435";  МасКод[40]="0454"; МасКод[41]="0436"; МасКод[42]="0437"; МасКод[43]="0438"; МасКод[44]="0456";
    МасКод[45]="0457";  МасКод[46]="0439"; МасКод[47]="043A"; МасКод[48]="043B"; МасКод[49]="043C"; МасКод[50]="043D";
    МасКод[51]="043E";  МасКод[52]="043F"; МасКод[53]="0440"; МасКод[54]="0441"; МасКод[55]="0442"; МасКод[56]="0443";
    МасКод[57]="0444";  МасКод[58]="0445"; МасКод[59]="0446"; МасКод[60]="0447"; МасКод[61]="0448"; МасКод[62]="0449";
    МасКод[63]="044C";  МасКод[31]="044E"; МасКод[65]="044F";  
    
    
    тмпСтрока = "" ;
    Для Счетчик = 1 По СтрДлина(Строка) Цикл      
        Если Лев(Строка, 1) = "\" Тогда
            Если Лев(Строка, 2) = "\u" Тогда
                
                тмпСтрока = Прав(Лев(Строка, 6),4) ;
                Если МасКод.Найти(тмпСтрока) = Неопределено Тогда
                    СтрокаЗамены = Прав(тмпСтрока, 1) ;
                    тмпСтрока = СтрЗаменить(тмпСтрока,СтрокаЗамены,ТРег(СтрокаЗамены)); 
                    Если МасКод.Найти(тмпСтрока) = Неопределено Тогда
                        Сообщить("Код символа не найден: " + тмпСтрока) ;
                    Иначе                      
                        ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод.Найти(тмпСтрока)] ;                                   
                    КонецЕсли;
                Иначе
                    ГотововаяСтрока = ГотововаяСтрока + МасУкр[МасКод.Найти(тмпСтрока)] ;               
                КонецЕсли;
                
                Строка = Прав(Строка, (СтрДлина(Строка)-6)) ; 
            Иначе  
                Строка = Прав(Строка, (СтрДлина(Строка)-2)) ;
            КонецЕсли;
        Иначе
            ГотововаяСтрока = ГотововаяСтрока + Лев(Строка, 1) ;
            Строка = Прав(Строка, (СтрДлина(Строка)-1)) ;     
        КонецЕсли;         
    КонецЦикла;   


    Возврат ГотововаяСтрока ;
        
КонецФункции

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Проверка регулярного выражения без внешних компонент Категория: Регулярные выражения

Публикация 1С на веб сервере apache / linux. Ошибка: wsap22.so: wrong ELF class: ELFCLASS32 Категория: Linux: CentOS, Debian, Ubuntu, ALT и д.р

Отладка web-сервисов 1С. Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Загрузка данных из XML файла в Таблицу Значений и вывод в Табличный документ

Код 1C v 7.x

 Перем ИмяПути,ИмяФайла;     
Перем xmlParser;

//пример чтения xml файла.
Функция УстановитьКомпоненту()
 Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда
  Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда
   Сообщить("Не удалось обнаружить компоненту V7Plus.dll!"); 
   Возврат 0;
  КонецЕсли;
 КонецЕсли;
 Попытка
  xmlParser = СоздатьОбъект("Addin.XmlParser") ;
 Исключение 
  Сообщить("Не удалось создать объект Addin.XmlParser!");
  Возврат 0;
 КонецПопытки;
 Возврат 1;
КонецФункции  // УстановитьКомпоненту

Процедура Выполнить() 
  стрИмяФайла=ИмяПути+ИмяФайла;  
  таб=СоздатьОбъект("ТаблицаЗначений");
  таб.НоваяКолонка("Ф","Строка",50,0);
  таб.НоваяКолонка("И","Строка",50,0);
  таб.НоваяКолонка("О","Строка",50,0);
  таб.НоваяКолонка("ДатаР","Дата");
  таб.НоваяКолонка("_01","Число",16,2);
  таб.НоваяКолонка("_02","Число",16,2);
  таб.НоваяКолонка("_03","Число",16,2);
  таб.НоваяКолонка("_04","Число",16,2);
  таб.НоваяКолонка("_05","Число",16,2);
  таб.НоваяКолонка("_06","Число",16,2);
  таб.НоваяКолонка("_07","Число",16,2);
  таб.НоваяКолонка("_08","Число",16,2);
  таб.НоваяКолонка("_09","Число",16,2);
  таб.НоваяКолонка("_10","Число",16,2);
  таб.НоваяКолонка("_11","Число",16,2);
  таб.НоваяКолонка("_12","Число",16,2);
  таб.НоваяКолонка("СумГод","Число",18,2);
  таб.НоваяКолонка("ОблГод","Число",18,2);
  таб.НоваяКолонка("УдерГод","Число",18,2);
  таб.НоваяКолонка("Индекс","Строка",6,0);
  таб.НоваяКолонка("Регион","Строка",2,0);
  таб.НоваяКолонка("Город","Строка",20,0);
  таб.НоваяКолонка("Улица","Строка",20,0);
  таб.НоваяКолонка("Дом","Строка",5,0);
  таб.НоваяКолонка("Корпус","Строка",5,0);
  таб.НоваяКолонка("Квартира","Строка",5,0);
  Документ=xmlParser.СоздатьДокумент();  
  Документ.Загрузить(стрИмяФайла);   
   Данные=Документ.ПолучитьПодчиненныйПоНомеру(2);
   Для Сч=1 По Данные.КоличествоПодчиненных() Цикл 
    таб.НоваяСтрока();
    Элем=Данные.ПолучитьПодчиненныйПоНомеру(Сч); 
    УзелПолучДох=Элем.ВыбратьУзлы("ПолучДох");  
    Для Сч3=0 По УзелПолучДох.КоличествоУзлов-1 Цикл 
   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).ПредставлениеXML); 
   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).КоличествоПодчиненных()); 
     ФИО=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(1);
     таб.Ф=ФИО.ПолучитьПодчиненныйПоНомеру(1).Текст;
     таб.И=ФИО.ПолучитьПодчиненныйПоНомеру(2).Текст;
     таб.О=ФИО.ПолучитьПодчиненныйПоНомеру(3).Текст;
     таб.ДатаР=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(3).Значение;
     адр=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(6);
     Для Сч4=1 По адр.КоличествоПодчиненных() Цикл     
      Если адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Индекс" Тогда
	таб.Индекс=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="КодРегион" Тогда
       таб.Регион=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;
      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Город" Тогда
       таб.Город=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 
      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Улица" Тогда
       таб.Улица=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 
      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Дом" Тогда
       таб.Дом=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 
      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Корпус" Тогда
       таб.Корпус=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 
      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Кварт" Тогда
       таб.Квартира=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 
      Иначе
      	/////// 
      КонецЕсли;
     КонецЦикла;
    КонецЦикла;  
    УзелСвДохСтав=Элем.ВыбратьУзлы("СвДохСтав");  
    Для Сч3=0 По УзелСвДохСтав.КоличествоУзлов-1 Цикл     
     //ел=УзелСвДохСтав.ПолучитьУзел(Сч3);
	УзелДохВыч=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("ДохВыч");
     Для Сч4=0 По УзелДохВыч.КоличествоУзлов-1 Цикл     
         МесДоход=УзелДохВыч.ПолучитьУзел(Сч4); 
         ИмяМес="";
      СумМес=0;
      Если МесДоход.ПолучитьПодчиненныйПоНомеру(1).Наименование="НомМес" Тогда
           ИмяМес=МесДоход.ПолучитьПодчиненныйПоНомеру(1).Текст;
      КонецЕсли;  
      Если МесДоход.ПолучитьПодчиненныйПоНомеру(3).Наименование="СумДоход" Тогда
           СумМес=МесДоход.ПолучитьПодчиненныйПоНомеру(3).Значение;
      КонецЕсли;  
      Если ПустоеЗначение(ИмяМес)=0 Тогда
       Если ИмяМес="01" Тогда
        таб._01=СумМес;  
       ИначеЕсли ИмяМес="02" Тогда
        таб._02=СумМес;    
       ИначеЕсли ИмяМес="03" Тогда
        таб._03=СумМес;    
       ИначеЕсли ИмяМес="04" Тогда
        таб._04=СумМес;    
       ИначеЕсли ИмяМес="05" Тогда
        таб._05=СумМес;    
       ИначеЕсли ИмяМес="06" Тогда
        таб._06=СумМес;    
       ИначеЕсли ИмяМес="07" Тогда
        таб._07=СумМес;    
       ИначеЕсли ИмяМес="08" Тогда
        таб._08=СумМес;    
       ИначеЕсли ИмяМес="09" Тогда
        таб._09=СумМес;    
       ИначеЕсли ИмяМес="10" Тогда
        таб._10=СумМес;    
       ИначеЕсли ИмяМес="11" Тогда
        таб._11=СумМес;    
       ИначеЕсли ИмяМес="12" Тогда
        таб._12=СумМес;    
       КонецЕсли;
      КонецЕсли;
     КонецЦикла;   
     
УзелНалПер=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("СГДНалПер");
НалПер=УзелНалПер.ПолучитьУзел(0);
Если НалПер.Наименование="СГДНалПер" Тогда
      таб.СумГод=НалПер.ПолучитьПодчиненныйПоНомеру(1).Значение;
      таб.ОблГод=НалПер.ПолучитьПодчиненныйПоНомеру(2).Значение;
      таб.УдерГод=НалПер.ПолучитьПодчиненныйПоНомеру(3).Значение;
 КонецЕсли;  
    //тут еще берем данные
 КонецЦикла;  
 Состояние(Сч);
КонецЦикла;          
   Т=СоздатьОбъект("Таблица");
   Т.ИсходнаяТаблица("Таблица");
   таб.выбратьСтроки();          
   Т.ВывестиСекцию("Шапка");    
   нпп=1;
   Пока таб.ПолучитьСтроку()=1 Цикл
    Т.ВывестиСекцию("Текст");    
    нпп=нпп+1;
   КонецЦикла;     
   Т.ТолькоПросмотр(1);
      Т.Опции(0, 0, 1, 0);
  // Т.ОбластьПечати(2);
   Т.ПараметрыСтраницы(2,,,5,5,5,5,,, 1);
   Т.Показать("Прочитали из XML");   
КонецПроцедуры

Процедура Выбрать()
 ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл","xml файлы (*.xml) |*.xml|Все файлы (*.*) |*.*","xml", );
 Если ПустоеЗначение(ИмяФайла)=0 Тогда
   PathSbitn=ИмяПути+ИмяФайла;
 КонецЕсли;
КонецПроцедуры //Выбрать       

Процедура ПриОткрытии()
 ИмяФайла ="";
 ИмяПути = "P:";     
 res=УстановитьКомпоненту();  
// Сообщить(res);
КонецПроцедуры //ПриОткрытии

Пример файла XML :

Код

<?xml version="1.0" encoding="windows-1251"?>
<НДФЛ2 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ВерсФорм="4.00001" ВерсПрог="НП 10.31" ИдФайл="ДОХОД_2НДФЛ">
<Справка>
<ОбщСвИЧ>
<ГодДох>2006</ГодДох>
<НомСпр>1</НомСпр>
<ДатаСпр>26.03.2007</ДатаСпр>
<ИФНСНА>7777</ИФНСНА>
</ОбщСвИЧ>
<ИстДох>
<СвНАЮЛ>
<ИННЮЛ>1234567890</ИННЮЛ>
<КПП>12345678</КПП>
<НаимОрг>ООО Рога и Копыта</НаимОрг>
<ОКАТО>12345678901</ОКАТО>
</СвНАЮЛ>
</ИстДох>
<ПолучДох>
<ФИО>
<Фамилия>Иванов</Фамилия>
<Имя>Иван</Имя>
<Отчество>Иванович</Отчество>
</ФИО>
<Статус>1</Статус>
<ДатаРожд>24.01.1973</ДатаРожд>
<Гражданство>643</Гражданство>
<УдЛичн>
<КодУдЛичн>21</КодУдЛичн>
<СерНомДок>12 01 012345</СерНомДок>
</УдЛичн>
<АдрМЖРФ>
<Индекс>123456</Индекс>
<КодРегион>77</КодРегион>
<Город>Энн г</Город>
<Улица>Ленина ул</Улица>
<Дом>99</Дом>
<Корпус>5</Корпус>
<Кварт>12</Кварт>
</АдрМЖРФ>
</ПолучДох>
<СвДохСтав>
<Ставка>35</Ставка>
<ДохВыч>
<НомМес>02</НомМес>
<КодДоход>2610</КодДоход>
<СумДоход>252.15</СумДоход>
</ДохВыч>
<ДохВыч>
<НомМес>07</НомМес>
<КодДоход>2760</КодДоход>
<СумДоход>100.00</СумДоход>
<КодВычет>503</КодВычет>
<СумВычет>100.00</СумВычет>
</ДохВыч>
<ДохВыч>
<НомМес>10</НомМес>
<КодДоход>2760</КодДоход>
<СумДоход>100.00</СумДоход>
<КодВычет>503</КодВычет>
<СумВычет>100.00</СумВычет>
</ДохВыч>
<СГДНалПер>
<СГДСумм>252.15</СГДСумм>
<ОблСумм>252.15</ОблСумм>
<НИОблСумм>88</НИОблСумм>
<НУОблСумм>88</НУОблСумм>
<ВозврСуммПЛ>0</ВозврСуммПЛ>
<ЗачСуммПЛ>0</ЗачСуммПЛ>
<УдСуммПЛ>0</УдСуммПЛ>
<ДолгНП>0</ДолгНП>
<ДолгНА>0</ДолгНА>
<ВзыскИФНС>0</ВзыскИФНС>
</СГДНалПер>
</СвДохСтав>
</Справка>
</НДФЛ2>

Категория: JSON, XML, TXT, CSV, DBF