&НаКлиенте

Процедура КомандаОбрW1C(Команда)

	Режим = РежимДиалогаВыбораФайла.ВыборКаталога; 

	ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 

	ДиалогОткрытия.Каталог = ""; 

	ДиалогОткрытия.МножественныйВыбор = Ложь; 

	ДиалогОткрытия.Заголовок = "Выберите каталог с Файлами"; 

	Если ДиалогОткрытия.Выбрать() Тогда 

		ПутьККаталогу = ДиалогОткрытия.Каталог; 	

		

		ВыбранКаталог = НайтиФайлы(ПутьККаталогу, "*.*");

		Для каждого НайденныйФайл Из ВыбранКаталог Цикл

			Если НайденныйФайл.ЭтоКаталог() Тогда //Каталог

				//каталоги пока не трогаем

			ИначеЕсли НайденныйФайл.Расширение=".w1c" Тогда // Файл для обработки				

				Сообщить(НайденныйФайл.ПолноеИмя);

				ОбработатьФайл(НайденныйФайл.ПолноеИмя);

			КонецЕсли; 

		КонецЦикла;

	КонецЕсли; 	    

	

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





&НаКлиенте

Процедура ОбработатьФайл(ТекФайл)

	//Прочитаем текст файла

	ОбрФайл = Новый ТекстовыйДокумент;

	ОбрФайл.Прочитать(ТекФайл,"UTF-8");

	врТекст = ОбрФайл.ПолучитьТекст();

	врМассив = РазложитьСтрокуВМассив(врТекст,"<&w1c&>");

	/// Переформируем структуру файла

	новТекст = СокрЛП(врМассив[0])+"<&w1c&>"; 

	новТекст = новТекст + СокрЛП(врМассив[1])+"<&w1c&>"+"1<&w1c&>"; 

	//Получим атрибуты файла

	АтрибутыФайла = Новый Файл(ТекФайл);

	новТекст = новТекст + Формат(АтрибутыФайла.ПолучитьВремяИзменения(),"ДФ=dd/MM/yyyy")+"<&w1c&>";

	новТекст = новТекст + СокрЛП(врМассив[2])+"<&w1c&>"; 

	новТекст = новТекст + СокрЛП(врМассив[3])+"<&w1c&>"; 

	новТекст = новТекст + СокрЛП(врМассив[4])+"<&w1c&>"; 

	новТекст = новТекст + СокрЛП(врМассив[5])+"<&w1c&>"; 

	новТекст = новТекст + "no-mods<&w1c&>"; 

	новТекст = новТекст + СокрЛП(врМассив[6])+"<&w1c&>";

	новТекст = новТекст + СокрЛП(врМассив[7]);

	// Запишем в тот же файл

	ОбрФайл.Очистить();

	ОбрФайл.УстановитьТекст(новТекст);

	ОбрФайл.Записать(ТекФайл,"UTF-8");

	

	//Но нужно получить файл UTF8 без сигнатуры BOM

	 Данные = Новый ДвоичныеДанные(ТекФайл);

    Строка64=Base64Строка(Данные);

    Строка64=Прав(Строка64,СтрДлина(Строка64)-4);

    ДанныеНаЗапись=Base64Значение(Строка64);

    ДанныеНаЗапись.Записать(ТекФайл); // записываем

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



//// Вспомогательное

&НаКлиенте

Функция РазложитьСтрокуВМассив(Знач Стр, Разделитель = ",") Экспорт 	

	МассивСтрок = Новый Массив();

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				МассивСтрок.Добавить(Стр);

				Возврат МассивСтрок;

			КонецЕсли;

			МассивСтрок.Добавить(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				МассивСтрок.Добавить(Стр);

				Возврат МассивСтрок;

			КонецЕсли;

			МассивСтрок.Добавить(Лев(Стр,Поз-1));

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;   	

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

 // Перекодировка файла из кодировки UTF-8 в ANSI.

// Будет создан файл в кодировке ANSI в этом же каталоге 

// с суффиксом "_ansi" .

// параметры:

// каталогФайла - Каталог где лежит файл без символа "\" на конце

// файлUTF8 	- имя файла для конвертации

Функция ПерекодироватьФайлUTF8_ANSI(каталогФайла, файлUTF8)



	  исходныйФайл = каталогФайла + "\" + файлUTF8;

	  файлЧтение  = Новый ЧтениеТекста(исходныйФайл,КодировкаТекста.UTF8);    

	  txt=файлЧтение.Прочитать();

	  файлЧтение.Закрыть();



	  ФайлANSI = СтрЗаменить(файлUTF8,".","_ansi.");

	  результатФайл  =  каталогФайла + "\" + ФайлANSI;

	  файлЗапись = Новый ЗаписьТекста(результатФайл,КодировкаТекста.ANSI);    

	  файлЗапись.Записать(txt);

	  файлЗапись.Закрыть();

	  

      Возврат ФайлANSI;

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



// Запуск 

каталогCSV   = "d:\csv";

файлCSV      = "export_file_.csv"; // в utf-8

файлCSV_ansi = ПерекодироватьФайлUTF8_ANSI(каталогCSV,файлCSV);   

 // Как записать файл в кодировке UTF-8 без BOM

функция ЗаписатьФайлВформате_UTF8_без_BOM(текст,полноеИмяФайла)



    // записываем в файл с символами BOM в начале файле	

    ТекстовыйФайлUTF8_Bom = Новый ТекстовыйДокумент();

    ТекстовыйФайлUTF8_Bom.ДобавитьСтроку(текст);

    ТекстовыйФайлUTF8_Bom.Записать(полноеИмяФайла,"UTF-8");

	

    // открываем файл и считываем символы после символов BOM

    Данные = Новый ДвоичныеДанные(полноеИмяФайла);

    Строка64=Base64Строка(Данные);

    Строка64=Прав(Строка64,СтрДлина(Строка64)-4);

    ДанныеНаЗапись=Base64Значение(Строка64);

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

	

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

 ОкладПриказа = СпрСотрудники.Оклад;   

 

Функция Перекодировка(Стр="",Кодировка="windows-1251")

    Стрим = СоздатьОбъект("Adodb.Stream");

    Стрим.Type = 2;

    Стрим.Mode= 3;

    Стрим.charset="iso-8859-5";

    Стрим.Open();

    Стрим.WriteText(Стр);

    Стрим.Position=0;

    Стрим.charset=Кодировка;

    Рез=Стрим.ReadText(-1);

    Стрим.Close();

    Возврат    Рез;

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



//Если предыдущая функция не срабатывает, то попробуйте:

Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.charset="iso-8859-5";

Стрим.Open();

Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");

Стрим.Position=0; // здесь уже можно дергать нормальный текст

 

Стрим2 = СоздатьОбъект("Adodb.Stream");

Стрим2.charset="windows-1251";

Стрим2.Open();

Стрим2.WriteText(Стрим.ReadText);

Стрим2.Position=0;

Рез=Стрим2.ReadText(-1);

Стрим.Close();

Стрим2.Close();

//Выведем в Сообщить результаты

Message("2 = "+Рез);

Message("StrLen(Рез) = "+StrLen(Рез));



// Кратко

Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.charset="iso-8859-5";

Стрим.Open();

Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");

Рез=Стрим.ReadText();

  //Код где, ни единого объекта. smaharbA

Процедура Сформировать()

    Стр="Нажрися вотки и закуси ка селедкой! ";

    База=""+_GetPerformanceCounter()+".txt";

    УТФ=КаталогВременныхФайлов()+"УТФ"+База;

    ИСО=КаталогВременныхФайлов()+"ИСО"+База;

    ДОС=КаталогВременныхФайлов()+"ДОС"+База;

    ОбратноДОС=КаталогВременныхФайлов()+"ОбратноДОС"+База;

    Текст=СоздатьОбъект("Текст");

    Текст.КодоваяСтраница(1);

    Для Сч=1 По 10 Цикл

        Текст.ДобавитьСтроку(Стр);

    КонецЦикла;

    Текст.Записать(ДОС);

    Текст.Очистить();

    КомандаСистемы("chcp 28595 > nul & echo off 2> """+ИСО+""" & for /f ""delims="" %i in ("+ДОС+") do (chcp 28595|>> """+ИСО+""" echo %i)");

//    КомандаСистемы("cmd /c ""chcp 28595|> """+ИСО+""" echo "+Стр+""""); 

    Текст.КодоваяСтраница(0);

    Текст.ДобавитьСтроку(Симв(255)+Симв(254));

    Текст.Записать(УТФ);

    КомандаСистемы("chcp 28595|> nul echo & cmd /u /c type """+ИСО+""" >> """+УТФ+"""");

    КомандаСистемы("type """+УТФ+""" > """+ОбратноДОС+"""");

    Текст.КодоваяСтраница(1);

    Текст.Открыть(ОбратноДОС);

    Для Сч=1 По Текст.КоличествоСтрок() Цикл

        Сообщить(Текст.ПолучитьСтроку(Сч));

    КонецЦикла;

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

 

Функция ПолучимСписокБаз1СИзФайла(Версия)

	// Функция получения списка баз 1С 8.0 8.1 8.2 E_Migachev

	// Возвращает Таблицу Значений содержащую Название, СтрокаСоединения с базами 1С

	

	// Для начала получим программным путем полный путь к папке Application Data 

	// Способ из https://helpf.pro/faq/view/271.html

	App = Новый COMОбъект("Shell.Application");

	AppData=App.Namespace(26).Self.Path;

	ТЗБаз=Новый ТаблицаЗначений;

	ТЗБаз.Колонки.Добавить("Название",,"Название",25);

	ТЗБаз.Колонки.Добавить("СтрокаСоединения",,"СтрокаСоединения",30);

	Если Версия = "v80" Тогда		

		СписокБаз=AppData+"\1C\1Cv8\v8ib.lst";

	ИначеЕсли Версия = "v81" Тогда

		СписокБаз=AppData+"\1C\1Cv81\ibases.v8i";

	ИначеЕсли Версия = "v82" Тогда

		СписокБаз=AppData+"\1C\1CEStart\ibases.v8i";

	КонецЕсли;

	Сообщить("Файл со списком баз: "+Строка(СписокБаз));

	//Открываем файл в кодировке UTF8

	ФайлБаз= Новый ЧтениеТекста;

	ФайлБаз.Открыть(СписокБаз, КодировкаТекста.UTF8);

	Стр = ФайлБаз.ПрочитатьСтроку();

	Пока НЕ Стр = Неопределено Цикл

		Если СтрДлина(СокрЛП(Стр)) Тогда

			ТекущаяСтрока = СокрЛП(Стр);

			

			Если Лев(ТекущаяСтрока, 1) = "[" Тогда

				НоваяСтрока = ТЗБаз.Добавить();

				НоваяСтрока.Название = ТекущаяСтрока;

			КонецЕсли;

			

			Если Лев(ТекущаяСтрока, 8) = "Connect=" Тогда

				Попытка					

					НоваяСтрока.СтрокаСоединения = Прав(ТекущаяСтрока, СтрДлина(ТекущаяСтрока)-8);

				Исключение

					// Это группа

					НоваяСтрока.СтрокаСоединения = "";

				КонецПопытки;				

			КонецЕсли;     						

		КонецЕсли;

		Стр = ФайлБаз.ПрочитатьСтроку();

	КонецЦикла;

	//Удалим из ТЗ строки с пустой Строкой Соединения, т.к это группы, а они нам не нужны

	ПустыеСтроки = ТЗБаз.НайтиСтроки(Новый Структура("СтрокаСоединения",));

	Для каждого СтрокаТаблицы Из ПустыеСтроки Цикл

		ТЗБаз.Удалить(СтрокаТаблицы)

	КонецЦикла;

	Возврат ТЗБаз;

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



Процедура ПолучимИзФайла(Кнопка)

	ТЗБаз = ПолучимСписокБаз1СИзФайла(Кнопка.Имя);

	//Выведем список баз из ТЗ в табличное поле

	Список=ТЗБаз;

	ЭлементыФормы.Список.СоздатьКолонки();

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

   

  regedit /ea 1СBase.reg HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles