Функция Перекодировка(Стр="",Кодировка="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 По Текст.КоличествоСтрок() Цикл

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

    КонецЦикла;

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

 Текст = Новый ТекстовыйДокумент;

// перебор элементов справочника

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

  // выводим в файл код и наименование, разделенные 

  // каким-либо разделителем, например, ‘;’

  Текст.ДобавитьСтроку(""+Выборка.Код+";"+Выборка.Наименование);

КонецЦикла;

// запись в текстовый файл

Текст.Записать("C://1.txt");   

 // файл в формате Unicode

Текст = Новый ЗаписьТекста("C://1.txt", КодировкаТекста.UTF8);

// перебор элементов справочника

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

  // выводим в файл код и наименование, разделенные 

  // каким-либо разделителем, например, ‘;’

  Текст.ЗаписатьСтроку(""+Выборка.Код+";"+Выборка.Наименование);

КонецЦикла;

// запись в текстовый файл

Текст.Закрыть();   

 Текст = Новый ТекстовыйДокумент;

// открытие файла

Текст.Прочитать("C://1.txt");

// перебор строк текстового документа

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

 // получить строку файла с указанным номером

 Стр = Текст.ПолучитьСтроку(НомерСтроки);

 // «распарсивание» строки

 // ищем позицию символа-разделителя

 Позиция = Найти (Стр, ‘;’);

 // создаем новый элемент справочника

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

 // в код записывается подстрока от первого символа до позиции

 // символа-разделителя

 Спр.Код = Сред(Стр,1,Позиция-1); 

 // за символом-резделителем – наименование клиента

 Спр.Наименование = Сред (Стр, Позиция+1);

 Спр.Записать();

КонецЦикла;   

 // файл в формате Unicode

Текст = Новый ЧтениеТекста("C://1.txt", КодировкаТекста.UTF8);

// перебор элементов справочника

Стр="";

// пока строки в файле остались

Пока Стр<>Неопределено Цикл

 // получить очередную строку файла 

 Стр = Текст.ПрочитатьСтроку();

 // «распарсивание» строки

 // ищем позицию символа-разделителя

 Позиция = Найти (Стр, ‘;’);

 // создаем новый элемент справочника

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

 // в код записывается подстрока от первого символа до позиции

 // символа-разделителя

 Спр.Код = Число(Сред(Стр,1,Позиция-1)); 

 // за символом-резделителем – наименование клиента

 Спр.Наименование = Сред (Стр, Позиция+1);

 Спр.Записать();

КонецЦикла;   

  // Выгрузка данных в текстовый файл

Текст = Новый ТекстовыйДокумент;

Выборка = Справочники.Номенклатура.Выбрать();

Пока Выборка.Следующий() Цикл

	Стр = СтрЗаменить(Выборка.Наименование, Символ(34), "%квч%");

	Код = Строка(Выборка.Код) + Символ(34);

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

КонецЦикла;

Текст.Записать("c:\temp\text.txt");



//Загрузка данных из текстового файла. При загрузке ориентируемся на используемый разделитель значений (это кавычка).

//После получения значения делаем обратное преобразование для разделителя (при выгрузке 

//данных кавычку, встречающуюся в выгружаемых строках, заменяли комбинацией символов %квч%)

Текст = Новый ТекстовыйДокумент;

Текст.Прочитать("c:\temp\text.txt");

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

	Стр = Текст.ПолучитьСтроку(НомерСтроки);

	Позиция = Найти(Стр, Символ(34));

	Код = Сред(Стр, 1, Позиция-1);

	прНаименование = Сред(Стр, Позиция + 1);

	Наименование = СтрЗаменить(прНаименование, "%квч%", Символ(34));

	Сообщить(Код + "–" + Наименование);	

КонецЦикла;	





"В предыдущем примере файл ЗАГРУЖАЛСЯ ПОЛНОСТЬЮ, а в следующем примере ЗАГРУЖАЕТСЯ ПОСТРОЧНО."

"Это позволяет при работе с файлами больших размеров значительно уменьшить время выполнения задачи."

//Запись данных в файл построчно

Путь = "c:\temp\text.txt";

Текст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8);

Выборка = Справочники.Номенклатура.Выбрать();

Пока Выборка.Следующий() Цикл

	Текст.ЗаписатьСтроку(Выборка.Наименование);

КонецЦикла;	

Текст.Закрыть();



//Чтение данных из файла построчно

Путь = "c:\temp\text.txt";

Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8);

Стр = Текст.ПрочитатьСтроку();

Пока Стр <> Неопределено Цикл

	Стр = Текст.ПрочитатьСтроку();

	Сообщить(Стр);

КонецЦикла;   

  //Выгрузка данных в TXT файл

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

Данные.КодоваяСтраница(0); // принудительная установка   

НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

ТЗ.ВыбратьСтроки();

Пока ТЗ.ПолучитьСтроку()=1 Цикл 

 Стр = ""+ТЗ.ЭтоГруппа+";"+ТЗ.Уровень+";"+ ТЗ.КодРодителя+";"+ТЗ.Код+";"+ТЗ.Наименование; // Символ - разделитель полей - ";"

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

КонецЦикла; 

Данные.Записать("c:\export.txt");

КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

// Рассчитываем продолжительность выполнения алгоритма в секундах

Длительность = Окр((КонВремя-НачВремя)/1000,3);

Сообщить("Время выгрузки в TXT файл: "+Длительность+" с");



//Загрузка, чтение данных из TXT файла:

НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

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

Данные.КодоваяСтраница(0); // принудительная установка  

Данные.Открыть("c:\export.txt");

КолСтр  = Данные.КоличествоСтрок();

 Для н=1 по КолСтр Цикл 

 ТекСтр = Данные.ПолучитьСтроку(н);   

 Состояние("В файле прочитано строк "+н+" из "+КолСтр);

КонецЦикла; 

КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

// Рассчитываем продолжительность выполнения алгоритма в секундах

Длительность = Окр((КонВремя-НачВремя)/1000,3);

Сообщить("Время чтения TXT файла: "+Длительность+" с"); 

  // ПРИМЕР 1

// Запись данных справочника в DBF-файл:

БД = Новый XBase;

// проектируется структура таблицы, т.е. имена и типы полей

БД.Поля.Добавить("Code","N",6,0);	// числовое поле Код

БД.Поля.Добавить("Name","S",30);	// строковое поле Наименование

// создание файла с указанной структурой

БД.СоздатьФайл("C://1.dbf");

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

	// создается новая пустая строка таблицы

	БД.Добавить();

	// заполняем поля новой строки

	БД.Code = Выборка.Код;

	БД.Name = Выборка.Наименование;

КонецЦикла;

// зафиксировать изменения в файле

БД.ЗакрытьФайл();



// Чтение данных из DBF-файла в справочник:

БД = Новый XBase;

БД.ОткрытьФайл("C://1.dbf");

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

Пока БД.Следующая() Цикл

	// создаем новый элемент справочника

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

 	// переносим в реквизиты данные из текущей строки таблицы

 	Спр.Код = БД.Сode; 

 	Спр.Наименование = БД.Name;

Спр.Записать();

КонецЦикла;

БД.ЗакрытьФайл();   

  // ПРИМЕР 2

// Выгрузка данных в DBF

БД = Новый XBase;

БД.Поля.Добавить("CODE", "S", 5);

БД.Поля.Добавить("NAME", "S", 40);

БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx");

БД.Индексы.Добавить("IDXCODE", "CODE");

ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx");

БД.АвтоСохранение = Истина;

Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл

	БД.Добавить();

	БД.CODE = Выборка.Код;

	БД.NAME = Выборка.Наименование;

КонецЦикла;

БД.ЗакрытьФайл();



// Загрузка данных из DBF

БД = Новый XBase;

БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); 

БД.ТекущийИндекс = БД.Индексы.IDXCODE;

Пока БД.Следующая() Цикл

	Сообщить(БД.CODE);

	Сообщить(БД.NAME);

КонецЦикла;	

БД.ЗакрытьФайл();    

  // Выгрузка ТЗ, Таблицы значений в DBF файл  

 НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

 ДБФ = СоздатьОбъект("XBASE"); 

 ДБФ.ДобавитьПоле("IsGroup","N",1,0);  

 ДБФ.ДобавитьПоле("Level","N",1,0);

 ДБФ.ДобавитьПоле("ParentCode","S",8,0);

 ДБФ.ДобавитьПоле("Code","S",8,0);

 ДБФ.ДобавитьПоле("Descr","S",60,0); 

 ДБФ.КодоваяСтраница(0); // Windows

 ДБФ.СоздатьФайл("c:\export.dbf"); 



 ТЗ.ВыбратьСтроки();

 Пока ТЗ.ПолучитьСтроку()=1 Цикл

  ДБФ.Добавить();  

  ДБФ.IsGroup= ТЗ.ЭтоГруппа;

  ДБФ.Level= ТЗ.Уровень; 

  ДБФ.ParentCode = ТЗ.КодРодителя;

  ДБФ.Code= ТЗ.Код; 

  ДБФ.Descr= СокрЛП(ТЗ.Наименование); 

  ДБФ.Записать(); 

 КонецЦикла;  

 ДБФ.ЗакрытьФайл(); 



 КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

 // Рассчитываем продолжительность выполнения алгоритма в секундах

 Длительность = Окр((КонВремя-НачВремя)/1000,3);

 Сообщить("Время выгрузки в DBF файл: "+Длительность+" с");



 // Загрузка ТЗ, Таблицы значений из DBF файла

  НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма 

  ДБФ = СоздатьОбъект("XBASE"); 

  ДБФ.КодоваяСтраница(0); // Windows

  ДБФ.ОткрытьФайл("c:\export.dbf");  

  Если ДБФ.Открыта()=0 Тогда

   Сообщить("Файл DBF не открыт !","!");

   Возврат;

  КонецЕсли;

  КолСтр  = ДБФ.КоличествоЗаписей();

  н= 0; 

  ДБФ.Первая(); 

  ПризнакГруппы  = ДБФ.IsGroup;

  ТекУровень  = ДБФ.Level; 

  ТекКодРодителя = ДБФ.ParentCode;

  ТекКод  = ДБФ.Code; 

  ТекНаименоване = ДБФ.Descr;  

  н = н+1;

  Состояние("В файле прочитано записей "+н+" из "+КолСтр); 

  Пока ДБФ.Следующая()=1 Цикл

   ПризнакГруппы  = ДБФ.IsGroup;

   ТекУровень  = ДБФ.Level; 

   ТекКодРодителя = ДБФ.ParentCode;

   ТекКод  = ДБФ.Code; 

   ТекНаименоване = ДБФ.Descr;

   н = н+1;

   Состояние("В файле прочитано записей "+н+" из "+КолСтр); 

  КонецЦикла;  

  ДБФ.ЗакрытьФайл(); 

  

  КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

  // Рассчитываем продолжительность выполнения алгоритма в секундах

  Длительность = Окр((КонВремя-НачВремя)/1000,3);

  Сообщить("Время чтения DBF файла: "+Длительность+" с"); 

  ДБФ=СоздатьОбъект("XBase");

    ДБФ.ДобавитьПоле("DATE","D",0,0);  

    Дбф.ДобавитьИндекс("INDEX","DTOS(DATE)",0,0,"<");

   //Дбф.ДобавитьИндекс("INDEX","DTOS(DATE)",0,0,"Пустая строка"); //DTOS !!!

   // где DTOC() - "ММ/ДД/ГГ" или DTOS() - "ГГГГММДД"  

    ДБФ.СоздатьФайл("c:\test.dbf","c:\test.cdx");  

    Для ТекДата='01.09.05' По '10.09.05' Цикл 

        Дбф.Добавить();

        Дбф.DATE=ТекДата;

        ДБФ.Записать();

    КонецЦикла; 

    //ДБФ.КодоваяСтраница(0); 

    ДБФ.ТекущийИндекс("INDEX"); 

    Для ТекДата='01.09.05' По '10.09.05' Цикл 

        ДБФ.Ключ.DATE = ТекДата;

        Если ДБФ.НайтиПоКлючу(0)=1 Тогда

            Сообщить(ТекДата);

        КонецЕсли;    

    КонецЦикла;

    ДБФ.ЗакрытьФайл();

 ДБФ = СоздатьОбъект("XBase");

ДБФ.КодоваяСтраница(0);

ИмяФайла = СокрП(ПутьККаталогуСБазой)+"1sconst.dbf";

Попытка

    ДБФ.ОткрытьФайл(ИмяФайла,,1);

    Если ДБФ.Открыта() = 1 Тогда

         ДБФ.Первая();

         Пока ДБФ.ВКонце() = 0 Цикл

             Если Найти(ДБФ.Value,"7.70.") > 0 Тогда

                  НомерРелиза = СокрП(ДБФ.Value);

                  ДБФ.ЗакрытьФайл();

                  Прервать;

             КонецЕсли;         

             ДБФ.Следующая();

        КонецЦикла;

     ДБФ.ЗакрытьФайл();

Исключение

    Сообщить("ОШИБКА: " + ОписаниеОшибки());

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

 функция сзПолучитьСписокБаз()

    попытка

        олеСкрипт = новый COMОбъект("MSScriptControl.ScriptControl");

        олеСкрипт.Language = "VBScript";

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""#"""",4772b3b4-f4a3-49c0-a1a5-8cb5961511a3,"" & chr(10)

        |  Answer = Answer & ""{3,1e512aab-1b41-4ef6-9375-f0137be9dd91,0,0,"" & chr(10)

        |  Answer = Answer & ""{"" & (UBound(Arr) + 1) & "","" & chr(10)

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{1e512aab-1b41-4ef6-9375-f0137be9dd91,"" & chr(10) &_

        |             ""{"""""" & replace(Value, """""""", """""""""""") & """""",0,"" &_

        |             chr(10) & ""{""""S"""","""""" & Arr(x)& """"""},"" &_

        |             chr(10) & ""{3,0,"" & chr(10) & ""{0},"""""""",-1,-1,0,0}"" &_

        |             chr(10) & ""}"" & chr(10) & ""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |    Answer = Answer & chr(10)

        |  next

        |  Answer = Answer & ""},"" & chr(10) & ""{""""Pattern""""}"" & chr(10) &_

        |           ""}"" & chr(10) & ""}""

        |  strGetListBase = Answer

        |end function";

        олеСкрипт.AddCode(стрКод);

        стрОтвет = олеСкрипт.Run("strGetListBase");

        Ответ = ЗначениеИзСтрокиВнутр(стрОтвет);

        Ответ.СортироватьПоПредставлению();

    исключение

        Ответ = новый СписокЗначений;

        Ответ.Добавить("Базы 1С:Передприятия 7.7 не обнаруженны!");

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

    возврат Ответ;

конецфункции   

 

Функция ПолучитьСписокБаз1()

    Перем Value,arrValues;

    Scr = CreateObject("MSScriptControl.ScriptControl");

    Scr.Language = "vbscript";

    Scr.Timeout=-1;

    HKEY_CURRENT_USER = 2147483649;

    strKeyPath = "Software\1C\1Cv7\7.7\Titles";

    Locator=СоздатьОбъект("WbemScripting.SWbemLocator");

    ServiceDef=Locator.ConnectServer(".","root\default");

    oReg = ServiceDef.Get("StdRegProv");

    Dict=СоздатьОбъект("Scripting.Dictionary");

    Scr.AddObject("Dict",Dict);

    Scr.AddObject("oReg",oReg);

    Scr.ExecuteStatement("dim arrValues,Value:");

    Scr.ExecuteStatement("oReg.EnumValues "+HKEY_CURRENT_USER+","""+strKeyPath+""",arrValues:");

    Scr.ExecuteStatement("for i=lbound(arrValues) to ubound(arrValues):Dict.add ""pj"" & i, arrValues(i):next");

    ТЗБаз=СоздатьОбъект("ТаблицаЗначений");

    ТЗБаз.НоваяКолонка("Путь");

    ТЗБаз.НоваяКолонка("Описание");

    Для к=0 По Dict.count Цикл

        Д=Dict.Item("pj"+к);

        Scr.ExecuteStatement("oReg.GetStringValue "+HKEY_CURRENT_USER+","""+strKeyPath+""","""+Д+""",Value");

        ТЗБаз.НоваяСтрока();

        ТЗБаз.Путь = Д;

        ТЗБаз.Описание = Scr.eval("Value");

    КонецЦикла;

	//Посмотрим что в ТЗ

	//ТЗБаз.ВыбратьСтроку();

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

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



Процедура ПолучитьСписокБаз2()

     Попытка

          scrptCtrl=createobject("MSScriptControl.ScriptControl");

          scrptCtrl.language="vbscript";

          scrptCtrl.addcode("Function Get1CV77Titles()

          |const HKEY_CURRENT_USER = &H80000001

          |Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

          |""\root\default:StdRegProv"")

          |strKeyPath = ""Software\1C\1Cv7\7.7\Titles""

          |oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues

          |strInfo=vbNullString

          |For i = LBound(arrValues) To UBound(arrValues)

          | call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)

          | strInfo=strInfo & arrValues(i) & ""="" & Value & vbCrLF

          |Next

          |Get1CV77Titles = strInfo 

          |End Function");

          Сообщить(scrptCtrl.run("Get1CV77Titles"));

     Исключение

          Сообщить(ОписаниеОшибки()); 

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

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

<Сообщил Gloom>

                  

Процедура ПолучитьСписокБаз3()

     Ключ="HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles";

     ИмяКаталога=СокрЛП(КаталогПользователя());

     ИмяБазы=СокрЛП(каталогИБ());

     Если прав(ИмяКаталога,1)<>"\" Тогда ИмяКаталога=ИмяКаталога+"\" КонецЕсли;

     Если прав(ИмяБазы,1)<>"\" Тогда ИмяБазы=ИмяБазы+"\" КонецЕсли;

     ИмяБазыСтр=Симв(34)+СтрЗаменить(ИмяБазы,"\","\\")+Симв(34);

     ИмяФайла="USER.TXT";

     Команда="Regedit /ea "+Симв(34)+ИмяКаталога+ИмяФайла+Симв(34)+" "+Симв(34)+Ключ+Симв(34);

     КомандаСистемы(Команда);

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

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

     Текст.Открыть(ИмяКаталога+ИмяФайла);

     Текст.Показать();

     Стр=""; Нашли=0;

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

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

          Сообщить(Стр);

          Если Найти(стр,ИмяБазыСтр)<>0 Тогда

               Нашли=1;

               прервать;

          КонецЕсли;

     КонецЦикла;

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