//В ходе выполнения некоторого кода открывается окно сообщений 

Сообщить("Сегодня: " +ТекущаяДата());



//Выполнение другой части кода



//Теперь нам необходимо закрыть окно сообщений

Wsh = Новый СОМОбъект("Wscript.shell");

//Wsh - переменная. Можно было дать любое другое имя, например Окно

Wsh.SendKeys("^+z");   //имитируем нажатие Ctrl+Z

Wsh.SendKeys("^+я");   //для случая, если текущей является русская раскладка клавиатуры   

  КоллекцияЭлементовДерева=ДеревоНоменклатуры.ПолучитьЭлементы();

//Свернуть дерево 

Для Каждого Строка Из КоллекцияЭлементовДерева Цикл

     ИдентификаторСтроки=Строка.ПолучитьИдентификатор();

     Элементы.ДеревоНоменклатуры.Свернуть(ИдентификаторСтроки);

КонецЦикла;



//Развернуть дерево 

Для Каждого Строка Из КоллекцияЭлементовДерева Цикл    

    ИдентификаторСтроки=Строка.ПолучитьИдентификатор();

    Элементы.ДеревоНоменклатуры.Развернуть(ИдентификаторСтроки);

КонецЦикла;   

 // Разворот текущей строки в дереве:

Строка = ЭлементыФормы.ТабличноеПоле.ТекущаяСтрока;

ЭлементыФормы.ТабличноеПоле.Развернуть(Строка, Истина);



// Определим, развернут ли узел дерева в указанной строке.

УзелРазвернут = ЭлементыФормы.ТабличноеПоле.Развернут(Строка);

Если УзелРазвернут Тогда

// Если Развернут, то Свернуть

ЭлементыФормы.ТабличноеПоле.Свернуть(Строка);

КонецЕсли;   

  //перебором свернуть все Выделенные строки дерева Табличного поля

Для каждого  Строка Из ЭлеменетыФормы.ТабличноеПоле1.ВыделенныеСтроки Цикл

   ЭлементыФормы.ТабличноеПоле.Свернуть(Строка);

КонецЦикла;   

 ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);

Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow;

Окно.ClipboardData.SetData("Text", ТекстПисьма);

ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123")));   

 ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);

Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow;

СодержимоеБуфера = Окно.ClipboardData.GetData("Text");

ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123")));

ТекстПисьма = ТекстПисьма + СодержимоеБуфера;    

 

Функция ПолучитьТекстБуфераОбмена() Экспорт

#Если Клиент Тогда

    Объект = Новый COMОбъект("htmlfile");

    Возврат Объект.ParentWindow.ClipboardData.Getdata("Text");

#КонецЕсли

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

 

Функция УстановитьТекстВБуферОбмена(Текст) Экспорт

#Если Клиент Тогда 

    Объект = Новый COMОбъект("htmlfile");

    Объект.ParentWindow.ClipboardData.Setdata("Text", Текст);

    Возврат Текст;

#КонецЕсли 

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

 Set objHTM = CreateObject("htmlfile");

Текст = "Помощь в 1С";

objHTM.ParentWindow.ClipboardData.Setdata("Text", Текст);

Текст = objHTM.ParentWindow.ClipboardData.GetData("text");

  // через SendKeys передаем Ctrl-C и Ctrl-V    

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

// Скопировать текст     

wsh.SendKeys("^c");      

// Вставить текст  

wsh.SendKeys("^v");   

  // через SendKeys передаем Ctrl-C и Ctrl-V    

wsh=СоздатьОбъект("WScript.Shell"); 

// Скопировать текст     

wsh.SendKeys("^c");  // или так:  wsh.SendKeys("^(C)");          

// Вставить текст  

wsh.SendKeys("^v");  // или так:  wsh.SendKeys("^(V)");  



//Объект Clipboard

WshExtra = СоздатьОбъект("WshExtra.Clipboard");  

// Скопировать текст   

WshExtra.Copy("Запись в буфер обмена")

// Вставить текст 

Текст = WshExtra.Paste(); 

 Процедура ВыполнитьОбработку() Экспорт



    Попытка



        //Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        Объект = ПолучитьCOMОбъект("C:\Users\NKrylov\Desktop\Тест.docx");

        // Покажем документ.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        ThisDocument = Word.Documents(1);

        ThisDocument.Activate();



        // Отключим проверку грамматики и вывод информации о грамматических ошибках.

        ThisDocument.GrammarChecked=0;

        ThisDocument.ShowGrammaticalErrors=0;



        // Готовим переменную в которой будет содержимое документа (текст).

        S_election = Word.S_election;



        // Очистим документ

        // Ctrl-A

        S_election.WholeStory();

        // Del

        S_election.Delete(1, 1);



        // Уменьшим междустрочный интервал.

        S_election.ParagraphFormat.LineSpacingRule = 0; // 1 по умолчанию

        S_election.ParagraphFormat.SpaceAfter = 0;      // 10 по умолчанию



        // Разметим документ. Это можно сделать и предварительно в макете

        ThisDocument.Bookmarks.Add("Закладка1", S_election.Range());

        S_election.TypeParagraph();

        S_election.TypeText("34r3 ");

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка3", S_election.Range());

        S_election.TypeParagraph();

        ThisDocument.Bookmarks.Add("Закладка4", S_election.Range());

        S_election.EndKey();



        // Так можно работать с текстом только в конкреной области документа - это и будет замена метода Find-Execute.

        ThisDocument.Bookmarks("Закладка3").Range.S_elect();

        S_election = Word.S_election;



        Bookmark = ThisDocument.Bookmarks("Закладка3");

        Table = ThisDocument.Tables.Add(Bookmark.Range(),1,5,1,2);

        Table.Rows(1).Cells(1).Range.Text = 1;

        Table.Rows(1).Cells(2).Range.Text = 2;

        Table.Rows(1).Cells(3).Range.Text = 3;

        Table.Rows(1).Cells(4).Range.Text = 4;

        Table.Rows(1).Cells(5).Range.Text = 5;



        // После вывода таблицы, появится "лишняя строка", удалим ее

        // в результате курсор встанет в область закладки 4

        S_election.MoveDown(, 1);

        S_election.Delete(1, 1);



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

        // в данном случае - в области закладки 2

        ThisDocument.Bookmarks("Закладка2").Range.S_elect();

        S_election = Word.S_election;

        Text = S_election.Range.Text;

        S_election.TypeText(Text + " sdcsdcs");

        // При выводе текста закладка "сбросилась". Восстановим.

        // "Победить" эту проблему я так и не смог((

        // Хотя на практике, закладка больше и не понадобится.

        // Дважды выводить текст в одну и ту же область - не имеет смысла.

        S_election.HomeKey(, 1);

        ThisDocument.Bookmarks.Add("Закладка2", S_election.Range());

        S_election.EndKey();



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

        ThisDocument.Bookmarks("Закладка4").Range.S_elect();

        S_election = Word.S_election; // активная (выделенная) область будет начинаться

        // от закладки 4)



        // Добавим текст "для опытов"

        // 1

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 2

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 3

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // 4

        S_election.TypeText("sdcsdcsdcsdc");

        S_election.TypeParagraph();

        // Выделяем введенный текст

        S_election.MoveUp(,4,1);



        // Настроим шаблон объекта галереи списков

        // Галереи списков бывают несккольких типов, 2 - нумерованные списки

        ListTemplate = Word.ListGalleries(2).ListTemplates(1).ListLevels(1);

        // Формат нумератора списка - точка после символа нумерации

        ListTemplate.NumberFormat = "%1.";

        // стиль нумератора - арабские цифры

        ListTemplate.NumberStyle = 0; // wdListNumberStyleArabic

        // 4 - маленькие латинские буквы.

        // 2 - маленькие римские цифры.

        // 58- меленькие русские буквы.

        // Font = Template.Font; // можно указать форматирование текста списка



        // Применим шаблон к выделенному тексту

 S_election.Range.ListFormat.ApplyListTemplateWithLevel( Word.ListGalleries(2).ListTemplates(1));



        // Перейдем в конец текста

        S_election.EndKey(6);



        // Добавим картинку

        // Параметры: путь к файлу, создавать ссылку на картинку, сохранять с файлом

        Picture = S_election.InlineShapes.AddPicture("C:\Users\NKrylov\Desktop\Новый.bmp", Ложь, Истина);

        // Зададим размер

        Picture.Height = 100;

        Picture.Width  = 150;



        // Чтобы установить обтекание текста, конвертируем рисунок в фигуру

        Shape = Picture.ConvertToShape();

        Shape.WrapFormat.Type = 0; // по контуру...



        ThisDocument.Save();

        //Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        ThisDocument.Save();

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

        //Объект.Application.Quit();

        Объект = Неопределено;

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



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

 Процедура ВыполнитьОбработку() Экспорт



    Попытка

        Объект = ПолучитьCOMОбъект(ПутьКФайлу);

        // Покажем документ. Для красоты.

        Объект.Application.Visible = 1;

        Word = Объект.Application;



        Doc = Объект.Application.Documents(1);

        Doc.Activate();



        // Готовим переменную в которой будет содержимое нашего документа

        // (текст, таблицы и проч).

        Text = Word.S_election;



        // Очистим документ

        // Ctrl-A

        Text.WholeStory();

        // Del

        Text.Delete(1, 1);

        // Двигаемся на 3 строки ниже. Документ пустой, поэтому добавляем

        // строки "Переводами коретки"



        Text.TypeText(Символы.ВК);

        Text.TypeText(Символы.ВК);

        Text.TypeParagraph(); // другой вариант того же действия

        // Выводим текст.

        Text.TypeText("Обычный текст, набранный первую очередь");



        // Курсор в конце строки

        // Эмулируем нажатие Shift+Home - выделяем строку

        Text.HomeKey(, 1);

        // Форматирование выделенной строки

        Text.Font.Bold = 9999998;

        Text.Font.Size = 14;

        Text.Font.Name = "Verdana";



        // Сдвигаем курсор. Сдвинуть курсор по строкам возможно, только,

        // если эти строки уже содержат текст, иначе ничего не произойдет.

        Text.MoveUp(,2);   // вверх на 2 строки

        //Word.S_election.MoveDown(,числострок); // вниз

        //Word.S_election.MoveLeft(,числострок); // влево

        //Word.S_election.MoveRight(,числострок);// вправо



        // Добавление текста. Текст выводится начиная с текщей позиции

        // курсора.

        Text.HomeKey(, 1);

        Text.TypeText("Обычный текст, набранный во вторую очередь");



        Text.MoveDown(,1); // вниз на 2 строки

        Text.EndKey(); // в конец строки

        Text.TypeParagraph(); // и в начало следующей строки



        // Очищаем форматирование

        Text.ClearFormatting();

        // Добавляем таблицу.

        // Получаем текущую позицию курсора

        Position = Text.Range();



        // Параметры: Позиция, число строк, число колонок,

        // последние 2 параметра отвечают за автоподбор высоты и отображение

        // границ таблицы

        Table = Doc.Tables.Add(Position, 1, 6, 1, 2);



        // Устанавливаем ширину колонок

        Table.Columns(1).PreferredWidth=10;

        Table.Columns(2).PreferredWidth=50;

        Table.Columns(3).PreferredWidth=10;

        Table.Columns(4).PreferredWidth=10;

        Table.Columns(5).PreferredWidth=10;

        Table.Columns(6).PreferredWidth=10;



        // Задаем заголовки колонок

        Row1=Table.Rows(1);

        Row1.Cells(1).Range.Text="№ п/п";

        Row1.Cells(2).Range.Text="Наименование";

        Row1.Cells(4).Range.Text="Кол-во";

        Row1.Cells(3).Range.Text="Ед. изм.";

        Row1.Cells(5).Range.Text="Цена,руб.";

        Row1.Cells(6).Range.Text="Сумма,руб.";



        // Построчно выводим содержимое таблицы Товары

        НомерСтроки = 1;

        Для каждого СтрокаТовары Из Ссылка.Товары Цикл

            Row=Table.Rows.Add();

            Row.Cells(1).Range.Text=НомерСтроки;

            // Выравнивание по левому краю

            Row.Cells(1).Range.ParagraphFormat.Alignment = 1;

            // В качестве текста можно передать только значение "простого" формата

            // все агрегатные объекты, переданные как текст, что нормально для платформы 1с

            // вызовут исключение.

            Row.Cells(2).Range.Text=СтрокаТовары.Номенклатура.Наименование

                   +?(ЗначениеЗаполнено(СтрокаТовары.ХарактеристикаНоменклатуры),

                   " ("+СтрокаТовары.ХарактеристикаНоменклатуры+")","");

            Row.Cells(4).Range.Text=Строка(СтрокаТовары.Количество);

            Row.Cells(4).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(3).Range.Text=?(ЗначениеЗаполнено(СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения)

                                  ,СтрокаТовары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,"-");

            Row.Cells(3).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(5).Range.Text=Формат(СтрокаТовары.Цена,"ЧДЦ=2");

            Row.Cells(5).Range.ParagraphFormat.Alignment = 1;

            Row.Cells(6).Range.Text=Формат(СтрокаТовары.Сумма,"ЧДЦ=2");

            Row.Cells(6).Range.ParagraphFormat.Alignment = 1;

            НомерСтроки=НомерСтроки+1;

        КонецЦикла;



        // Задаем форматирование первой строки

        // Если сделать это сразу, то все новые строки таблицы будут

        // формироваться с тем же форматом

        Row1.Range.Font.Bold = 9999998;

        Row1.Range.Font.Size = 14;

        Row1.Range.Font.Name = "Verdana";

        Row1.Range.ParagraphFormat.Alignment = 1;



        // Последняя строка...

        Row = Table.Rows.Add();

        Row.Range.Font.Bold = 9999998;

        Row.Cells(1).Range.Text="Итого:";

    Исключение

        Doc.Save();

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

        Объект.Application.Quit();

        Объект = Неопределено;

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



    Попытка // эта конструкция выдает исключительную ситуацию, но при этом

        // результат все-равно работает))

        // объединяем ячейки в конце таблицы

        Table.cell(НомерСтроки+1, 1).Merge(Table.cell(НомерСтроки+1, 5));

    Исключение

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



    Попытка

        Row.Cells(1).Range.ParagraphFormat.Alignment = 3;

        Row.Cells(2).Range.Text=Формат(Ссылка.Товары.Итог("Сумма"), "ЧДЦ=2");

        Row.Cells(2).Range.ParagraphFormat.Alignment = 1;



        Doc.Save();

        Объект.Application.Quit();

        Объект = Неопределено;

    Исключение

        Doc.Save();

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

        Объект.Application.Quit();

        Объект = Неопределено;

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



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

 // Функция вычислет степень числа

// _База    - Число                - Число, возводимое в степень

// _Степ   - Число                - Степень числа

Функция Степень(_База, _Степ)

                Результат = 1;

                Для К = 1 По _Степ Цикл

                               Результат = Результат *_База;                              

                КонецЦикла;

                Возврат Результат;

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

// Возвращает Число, возведенное в степень

   

 ACos(<Число>)   

 ASin(<Число>)   

 ATan(<Число>)   

 Cos(<Угол>)   

 Exp(<Число>)   

 Log(<Число>)   

 Log10(<Число>)   

 Sin(<Угол>)   

 Tan(<Угол>)   

 // Hижe пpивeдeн Полный тeкcт мoдyля, coдepжaщeгo фyнкции 

// КвaдpaтныйКopeнь(), 

// ЭкcПонeнтa(), 

// CтeпeннaяФyнкция(), 

// Cинyc(), Кocинyc() и Taнгeнc().

//Источник http://www.kb.mista.ru/article.php?id=78



// Toчнocть c кoтopoй вычиcляютcя Значeния функций

// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()

Перем ДocтaтoчнaяToчнocть;

// Кoличecтвo Значaщиx знaкoв Поcлe зaпятoй для peзультaтoв,

// вoзвpaщaeмыx функциями

// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()

Перем КoличecтвoЗнaкoв;

// Максимaльнoe кoличecтвo итepaций, кoтopoe выПолняeтcя в функцияx

// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()

Перем КoличecтвoИтepaций;

// Чиcлo "пи"

Перем ЧиcлoПИ;

Функция КвaдpaтныйКopeнь(Apгумeнт) Далее

Функция ЭкcПонeнтa(Apгумeнт) Далее

Функция CтeпeннaяФункция(Apгумeнт1,Apгумeнт2) Далее

Функция Cинуc(Знач Apгумeнт, TипApгумeнтa = 0) Далее

Функция Кocинуc(Знач Apгумeнт, TипApгумeнтa = 0) Далее

Функция Taнгeнc(Знач Apгумeнт, TипApгумeнтa = 0) Далее



//******************************************************************

// КвaдpaтныйКopeнь(Apгумeнт)

//

// Пapaмeтpы:

// Apгумeнт - нeoтpицaтeльнoe чиcлo

//

// Boзвpaщaeмoe Значeниe:

// Квaдpaтный кopeнь Apгумeнтa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния квaдpaтнoгo кopня чиcлa c

// пpимeнeниeм итepaциoннoгo мeтoдa Hьютoнa

// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй

// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть

//

Функция КвaдpaтныйКopeнь(Apгумeнт)

     // Oгpaничимcя oблacтью oпpeдeлeния функции

     Если Apгумeнт<0 Тогда

          // cooбщeниe oб oшибкe

          Сообщить("...","!");

          Возврат ПолучитьПустоеЗначение();

          // Oтceчeм нoль

     ИначеЕсли Apгумeнт=0 Тогда

          Возврат 0;

     КонецЕсли;

     // Bыбepeм пepвoe пpиближeниe

     ПpeдыдущaяИтepaция = Apгумeнт/2;

     Для Cч=1 По КoличecтвoИтepaций Цикл

          Значeниe = 0.5*(ПpeдыдущaяИтepaция+

          Apгумeнт/ПpeдыдущaяИтepaция);

          Если Значeниe<ПpeдыдущaяИтepaция Тогда

               Paзницa = ПpeдыдущaяИтepaция-Значeниe;

          Иначе

               Paзницa = Значeниe-ПpeдыдущaяИтepaция;

          КонецЕсли;

          Если Paзницa<ДocтaтoчнaяToчнocть Тогда

               Прервать;

          КонецЕсли;

          ПpeдыдущaяИтepaция=Значeниe;

     КонецЦикла;

     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));

     Возврат Значeниe;

КонецФункции            // кoнeц функции КвaдpaтныйКopeнь

//******************************************************************

// ЭкcПонeнтa(Apгумeнт)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo

//

// Boзвpaщaeмoe Значeниe:

// Чилo e в cтeпeни Apгумeнт

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния экcПонeнты c пpимeнeниeм

// pядa Maклopeнa (чacтный cлучaй pядa Tэйлopa)

// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй

// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть

//

//

Функция ЭкcПонeнтa(Apгумeнт)

     Значeниe = 1;

     ПpeдыдущийЧлeн = 1;

     Для Cч=1 По КoличecтвoИтepaций Цикл

          OчepeднoйЧлeн = ПpeдыдущийЧлeн*Apгумeнт/Cч;

          Значeниe = Значeниe+OчepeднoйЧлeн;

          Toчнocть = OчepeднoйЧлeн/Значeниe;

          Если (Toчнocть<ДocтaтoчнaяToчнocть) И (OчepeднoйЧлeн<0.1) Тогда

               Прервать;

          КонецЕсли;

          ПpeдыдущийЧлeн=OчepeднoйЧлeн;

     КонецЦикла;

     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));

     Возврат Значeниe;

КонецФункции      // кoнeц функции ЭкcПонeнтa

//******************************************************************

// CтeпeннaяФункция(Apгумeнт1, Apгумeнт2)

//

// Пapaмeтpы:

// Apгумeнт1 - чиcлo, кoтopoe вoзвoдитcя в cтeпeнь Apгумeнт2

// Apгумeнт2 - чиcлo

//

// Boзвpaщaeмoe Значeниe:

// Чиcлo Apгумeнт1 в cтeпeни Apгумeнт2

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния cтeпeннoй функции c пpимeнeниeм

// pядa Maклopeнa (чacтный cлучaй pядa Tэйлopa)

// Итepaции выПолняютcя дo дocтижeния тoчнocти, зaдaннoй

// внeшнeй (публичнoй) Перемeннoй ДocтaтoчнaяToчнocть

//

//

Функция CтeпeннaяФункция(Apгумeнт1,Apгумeнт2)

     // Пpoвepим бaзу cтeпeннoй функции

     Если Apгумeнт1<0 Тогда

          // cooбщeниe oб oшибкe

          Сообщить("...","!");

          // Oтceчeм нoль

     ИначеЕсли Apгумeнт1=0 Тогда

          Возврат 0;

     КонецЕсли;

     Значeниe = 1;

     ПpeдыдущийЧлeн = 1;

     Для Cч=1 По КoличecтвoИтepaций Цикл

          OчepeднoйЧлeн = ПpeдыдущийЧлeн*Apгумeнт2*Лог(Apгумeнт1)/Cч;

          Значeниe = Значeниe+OчepeднoйЧлeн;

          Toчнocть = OчepeднoйЧлeн/Значeниe;

          Если Toчнocть<0 Тогда

               Toчнocть = -Toчнocть;

          КонецЕсли;

          Если (Toчнocть<ДocтaтoчнaяToчнocть) И (OчepeднoйЧлeн<0.1) Тогда

               Прервать;

          КонецЕсли;

          ПpeдыдущийЧлeн=OчepeднoйЧлeн;

     КонецЦикла;

     Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));

     Возврат Значeниe;

КонецФункции      // кoнeц функции CтeпeннaяФункция

//******************************************************************

// CлужTaнгeнc(Apгумeнт)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo, Значeниe углa в paдиaнax

//

// Boзвpaщaeмoe Значeниe:

// Taнгeнc зaдaннoгo углa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния тaнгeнca зaдaннoгo в paдиaнax углa

// в oблacти Значeний oт 0 дo ПИ/8

// ИcПользуeтcя функциями Cинуc(), Кocинуc() и Taнгeнc()

// Иcчиcлeниe пpoизвoдитcя c иcПользoвaниeм цeпнoй дpoби

//

//

Функция CлужTaнгeнc(Apгумeнт)

     КвApгум = Apгумeнт*Apгумeнт;

     Значeниe = Apгумeнт/(1-КвApгум/(3-КвApгум/(5-КвApгум/(7-КвApгум/(9-КвApгум/(11-КвApгум/(13-КвApгум/(15-КвApгум))))))));

     Возврат Значeниe;

КонецФункции      // кoнeц функции CлужTaнгeнc

//******************************************************************

// Cинуc(Apгумeнт, TипApгумeнтa = 0)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo, Значeниe углa

// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт

// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax

// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax

// Значeниe По умoлчaнию - 0

//

// Boзвpaщaeмoe Значeниe:

// Cинуc зaдaннoгo углa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния cинуca углa, зaдaннoгo в

// paдиaнax или гpaдуcax

// Oблacть oпpeдeлeния функции нe oгpaничeнa

//

//

Функция Cинуc(Знач Apгумeнт, TипApгумeнтa = 0)

     Если TипApгумeнтa=1 Тогда

          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;

     КонецЕсли;

     ЗнaкPeзультaтa=1;

     // Пpивeдeм к oблacти 0 - 2ПИ

     Если Apгумeнт<0 Тогда

          Apгумeнт=-Apгумeнт;

          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;

     КонецЕсли;

     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(2*ЧиcлoПИ))*2*ЧиcлoПИ;

     // тeпepь пpивeдeм к oблacти 0 - ПИ

     Если Apгумeнт>ЧиcлoПИ Тогда

          Apгумeнт = Apгумeнт-ЧиcлoПИ;

          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;

     КонецЕсли;

     // тeпepь пpивeдeм к oблacти 0 - ПИ/2

     Если Apгумeнт>ЧиcлoПИ/2 Тогда

          Apгумeнт=ЧиcлoПИ-Apгумeнт;

     КонецЕсли;

     // тeпepь пpивeдeм к oблacти 0 - ПИ/4

     Если Apгумeнт>ЧиcлoПИ/4 Тогда

          Значeниe = ЗнaкPeзультaтa*Кocинуc(ЧиcлoПИ/2-Apгумeнт);

     Иначе

          TaнгeнcПолoвины = CлужTaнгeнc(Apгумeнт/2);

          Значeниe = ЗнaкPeзультaтa*2*TaнгeнcПолoвины/

          (1+TaнгeнcПолoвины*TaнгeнcПолoвины);

     КонецЕсли;

     Возврат Значeниe;

КонецФункции       // кoнeц функции Cинуc

//*****************************************************************

// Кocинуc(Apгумeнт, TипApгумeнтa = 0)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo, Значeниe углa

// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт

// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax

// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax

// Значeниe По умoлчaнию - 0

//

// Boзвpaщaeмoe Значeниe:

// Кocинуc зaдaннoгo углa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния кocинуca углa, зaдaннoгo в

// paдиaнax или гpaдуcax

// Oблacть oпpeдeлeния функции нe oгpaничeнa

//

//

Функция Кocинуc(Знач Apгумeнт, TипApгумeнтa = 0)

     Если TипApгумeнтa=1 Тогда

          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;

     КонецЕсли;

     // Пpивeдeм к oблacти 0 - 2ПИ

     Если Apгумeнт<0 Тогда

          Apгумeнт=-Apгумeнт;

     КонецЕсли;

     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(2*ЧиcлoПИ))*2*ЧиcлoПИ;

     // Если Попaли в oблacть 0 - ПИ/4 - cчитaeм чecтнo

     Если Apгумeнт<ЧиcлoПИ/4 Тогда

          TaнгeнcПолoвины = CлужTaнгeнc(Apгумeнт/2);

          Значeниe = (1-TaнгeнcПолoвины*TaнгeнcПолoвины)/

          (1+TaнгeнcПолoвины*TaнгeнcПолoвины);

     Иначе

          Значeниe = Cинуc(Apгумeнт+ЧиcлoПИ/2);

     КонецЕсли;

     Возврат Значeниe;

КонецФункции      // кoнeц функции Кocинуc

//******************************************************************

// Taнгeнc(Apгумeнт, TипApгумeнтa = 0)

//

// Пapaмeтpы:

// Apгумeнт - чиcлo, Значeниe углa

// TипApгумeнтa - чиcлo, тип пapaмeтpa Apгумeнт

// 0 - Значeниe углa Apгумeнт зaдaнo в paдиaнax

// 1 - Значeниe углa Apгумeнт зaдaнo в гpaдуcax

// Значeниe По умoлчaнию - 0

//

// Boзвpaщaeмoe Значeниe:

// Taнгeнc зaдaннoгo углa

//

// Oпиcaниe

// ПpeднaЗначeнa для иcчиcлeния тaнгeнca углa, зaдaннoгo в

// paдиaнax или гpaдуcax

// B тoм cлучae, Если для Значeния Apгумeнт функция нe

// oпpeдeлeнa (нaпpимep, пи/2 paдиaн)

// вoзвpaщaeтcя пуcтoe Значeниe c cooбщeниeм oб oшибкe

//

//

Функция Taнгeнc(Знач Apгумeнт, TипApгумeнтa = 0)

     Если TипApгумeнтa=1 Тогда

          Apгумeнт = (Apгумeнт/180)*ЧиcлoПИ;

     КонецЕсли;

     ЗнaкPeзультaтa=1;

     // Пpивeдeм к oблacти 0 - ПИ

     Если Apгумeнт<0 Тогда

          Apгумeнт=-Apгумeнт;

          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;

     КонецЕсли;

     Apгумeнт = Apгумeнт-Цел(Apгумeнт/(ЧиcлoПИ))*ЧиcлoПИ;

     // Пpивeдeм к oблacти 0 - ПИ/2

     Если Apгумeнт>ЧиcлoПИ/2 Тогда

          Apгумeнт=ЧиcлoПИ-Apгумeнт;

          ЗнaкPeзультaтa=-1*ЗнaкPeзультaтa;

     КонецЕсли;

     // Если Попaли в oблacть ПИ/8

     Если Apгумeнт<ЧиcлoПИ/8 Тогда

          Значeниe = ЗнaкPeзультaтa*CлужTaнгeнc(Apгумeнт);

     Иначе

          // oбoйдeм дeлeниe нa нoль

          Попытка

               Значeниe = ЗнaкPeзультaтa*Cинуc(Apгумeнт)/

               Кocинуc(Apгумeнт);

          Исключение

               // cooбщeниe oб oшибкe

               Сообщить("...","!");

               Значeниe = ПолучитьПустоеЗначение();

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

     КонецЕсли;

     Возврат Значeниe;

КонецФункции      // кoнeц функции Taнгeнc

// Toчнocть c кoтopoй вычиcляютcя Значeния функций

// КвaдpaтныйКopeнь(), ЭкcПонeнтa(), CтeпeннaяФункция()

ДocтaтoчнaяToчнocть = 0.00000000001;

КoличecтвoИтepaций = 1000;

// Кoличecтвo Значaщиx знaкoв Поcлe зaпятoй для peзультaтoв пpи

// зaдaннoй тoчнocти

КoличecтвoЗнaкoв = -Лог10(ДocтaтoчнaяToчнocть)-1;

// Чиcлo "пи"

ЧиcлoПИ = 3.1415926535897932384626433832795;

 VBS=CreateObject("MSScriptControl.ScriptControl");

VBS.Language="VBscript";

Параметр=1234;

Корень=VBS.Eval("sqr("+СокрЛП(Параметр)+")");

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

   Ctrl=СоздатьОбъект("MSScriptControl.ScriptControl");

   Ctrl.Language="vbscript";

   Ctrl.AddCode("

   |pi=4 * atn(1.0)

   |

   |Function ShowPI

   |ShowPI=pi

   |End Function

   |

   |Function CalcSQR(number)

   |if number<0 then

   | CalcSQR=0

   |else

   | CalcSQR=SQR(Number)

   |end if

   |End Function

   |

   |Function CalcSIN(number)

   |CalcSin=Sin(number/(180/pi))

   |End Function

   |

   |Function CalcCOS(number)

   |CalcCOS=COS(number/(180/pi))

   |End Function

   |

   |Function CalcTAN(number)

   |CalcTAN=TAN(number/(180/pi))

   |End Function

   |

   |Function CalcRND

   |Randomize

   |CalcRND=RND

   |End Function

   |

   |Function NameOfWeekDay(MyDate)

   |NameOfWeekDay=WeekDayName(Weekday(MyDate),False)

   |End Function

   |

   |");

                  

   Сообщить(Ctrl.Run("ShowPI")); // Число ПИ

   Сообщить(Ctrl.Run("CalcSQR",4)); // Квадратный корень из 4

   Сообщить(Ctrl.Run("CalcSin",90)); // Синус 90 градусов

   Сообщить(Ctrl.Run("CalcCOS",180)); // Косинус 180 градусов

   Сообщить(Ctrl.Run("CalcTAN",180)); // Тангенс 90 градусов

   Сообщить(Ctrl.Run("CalcRND")); // Случайное число от 0 до 1

   Сообщить(Ctrl.Run("NameOfWeekDay",ТекущаяДата())); // Название дня недели

 ScriptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl");

ScriptCtrl.Language = "vbscript";

ScriptCtrl.AddCode("

Function PlayS()

|    Set Wrap = CreateObject(""DynamicWrapper"")

|    Wrap.Register ""winmm.dll"", ""sndPlaySound"", ""i=sl"", ""f=s"", "r=l""

|    PlayS = Wrap.sndPlaySound(""C:\Sounds\newemail.wav"", SDN_ASYNC)

|    End Function");

ScriptCtrl.Run("PlayS");   

 Сообщить(appExcel.WorkSheets(1).UsedRange.Row);   

 LastRow=ExcelApp.Cells(1,1).SpecialCells(11).Row;   

 Сообщить(appExcel.WorkSheets(1).UsedRange.Columns);   

 LastCol=ExcelApp.Cells(1,1).SpecialCells(11).Columns;   

 

ЗагрузитьВнешнююКомпоненту("e:\Events\Events.dll");

vk=СоздатьОбъект("Addin.Events");

 ЗагрузитьВнешнююКомпоненту("vkloader.dll"); //регистрации не требует

Загрузчик = СоздатьОбъект("ЗагрузчикВК");

Результат = Загрузчик.ЗагрузитьВК("Events.dll", "Addin.Events=2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397");

 Попытка

    Объект=СоздатьОбъект("cool.object");

Исключение

    ИмяДЛЛ=КаталогИБ()+"cool.ocx";

    КомандаСистемы(КаталогИБ()+"regsvrex.exe /s /c "+ИмяДЛЛ);

    Попытка

        Объект=СоздатьОбъект("cool.object");

    Исключение

        Сообщить("Ошибка загрузки компоненты: "+ИмяDLL,"!");

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

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

 // Процедура получает из реестра список зарегистрированных ИБ 7.7

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

	Попытка

		ScrptCtrl=Новый COMObject("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

		|   Get1CV77Titles = strInfo

		|	On Error Resume Next

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

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

		|		strInfo=strInfo & arrValues(i) & vbTab & Value & vbCrLf

		|	Next		

		| 	Get1CV77Titles = strInfo

		|End Function

		|");

		Текст=СокрЛП(ScrptCtrl.Run("Get1CV77Titles"));

	Исключение

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

		Возврат;

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

	

	ТаблицаПути.Очистить();

	

	Если НЕ ЗначениеЗаполнено(Текст) Тогда

		Возврат;

	КонецЕсли;

		

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

		СтрБазы=СтрПолучитьСтроку(Текст,Ном);

		Разд=Найти(СтрБазы,Символы.Таб);

		Путь=Лев(СтрБазы,Разд-1);

		Название=Прав(СтрБазы,СтрДлина(СтрБазы)-Разд);

		

		НоваяСтрока = ТаблицаПути.Добавить();

		НоваяСтрока.Имя = Название;

		НоваяСтрока.Путь = Путь;

	КонецЦикла;

	

	ТаблицаПути.Сортировать("Имя");



КонецПроцедуры //ПолучитьСписокИБ

 

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

    попытка

        // Создаем объект Microsoft Script Control.

        олеСкрипт = создатьобъект("MSScriptControl.ScriptControl");

        // Устанавливаем в качестве языка для выполнения сценариев Visual Basic

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

        // Формируем код на VB.

        // В принципе он все делает. Создает объект

        // Windows Management Instrumentation и уже через него

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

        // в строку.

        стрКод =

        "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 = ""{""""СписокЗначений"""",{""

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

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

        |    Answer = Answer & ""{{""""Строка"""","""""" &_

        |             Arr(x) & """"""},"""""" & replace(Value, """""""", """""""""""") &_

        |             """""",""""0""""}""

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

        |  next

        |  Answer = Answer & ""}}""

        |  strGetListBase = Answer

        |end function";

        // Добавляем наш код.

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

        // Вызываем его на выполнение, и пытаемся из полученного результата

        // сформировать список значений.

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

        // Отсортируем список по Представлению баз

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

    исключение

        // Если произошла ошибка. Значит вернем "Error".

        Ответ = "Error";

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

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

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

  Новый COMОбъект(    

  СоздатьОбъект( 

  FSO = Новый COMОбъект("Scripting.FileSystemObject"); 

// Выборка объектов из коллекции Drives

Для каждого Диск Из FSO.Drives Цикл

	// Диск.DriveLetter - буква диска

	Стр = Диск.DriveLetter;

	// Диск.DriveType = 1 - Flash накопитель

	// Диск.DriveType = 2 - Локальный жесткий диск

	// Диск.DriveType = 3 - Сетевой диск

	// Диск.DriveType = 4 - CD/DVD дисковод

	Если Диск.DriveType = 3 Тогда  // если это сетевой диск, то укажем сетевой путь

		Стр = Стр + " - " + Диск.ShareName;

	ИначеЕсли Диск.IsReady Тогда

		Стр = Стр + " - " + Диск.VolumeName;

	Иначе

		Стр = Стр + " - [Диск не найден]";

	КонецЕсли; 

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

КонецЦикла;     

 

//При помощи скрипта получаем перечень всех дисков компьютера:

Попытка                                                       

	ScrptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl"); 

	ScrptCtrl.Language="vbscript";                                

	ScrptCtrl.addcode("                                           

	|Function GetComputers()		

	| Set objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"")		

	| Set colDisks = objWMIService.ExecQuery (""Select * from Win32_LogicalDisk"")               		

	| For Each objDisk in colDisks                                                               		

	| disk = disk & objDisk.DeviceID & "";"" & objDisk.DriveType& "";""                          		

	| Next                                                                                       		

	| GetComputers = disk                                                                        		

	|End Function

	|");                                                                                         		

	Текст=СокрЛП(ScrptCtrl.Run("GetComputers"));                                                                               		

Исключение                                                                                       		

	Предупреждение(ОписаниеОшибки());                                                            		

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

//Далее создадим таблицу дисков компьютера

ТабДисков = Новый ТаблицаЗначений;                                                           		

ТабДисков.Колонки.Добавить("Диск");                                                          		

ТабДисков.Колонки.Добавить("Описание");                                                      		

//Переберая полученную информацию из скрипта добавляем ее в таблицу

Пока СтрДлина (Текст)> 0 Цикл                                                                			

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

	Строка.Диск = Лев(Текст,2);    

	// Далее определим тип диска:

	// 1 - Дисковод

	// 2 - Flash накопитель

	// 3 - Локальный жесткий диск

	// 4 - Сетевой диск

	// 5 - CD/DVD дисковод

	Строка.Описание = Сред(Текст,4,1);                                                       			

	Текст = Сред(Текст,6,СтрДлина (Текст)-5);                                                			

КонецЦикла;

// Далее переберая элементы таблицы выведем флешки в окно сообщений

Сообщить("Флешки:");

Для Каждого Элемента Из ТабДисков Цикл                    		

	Если Элемента.Описание = "2" Тогда

		Сообщить(Элемента.Диск);

	КонецЕсли;                                            			

КонецЦикла;    

  //Попытка подключения к WMI на локальном компьютере

Попытка

	Locator = Новый COMОбъект("WbemScripting.SWbemLocator");

Исключение

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

	Возврат;

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

ServicesSet = Locator.ConnectServer(".");

//Извлечение экземпляров класса Win32_LogicalDisk

ObjectSet = ServicesSet.InstancesOf("Win32_LogicalDisk"); 

Для каждого Item Из ObjectSet Цикл

	Сообщить("Имя: " + Item.Caption);

	Сообщить("Описание: " + Item.Description); // здесь выводится тип диска

	Сообщить("Файловая система: " + Item.FileSystem);

	Сообщить("Свободное место: " + Item.FreeSpace);

	Сообщить("Метка диска: " + Item.VolumeName);

	Сообщить ("=======================") ;

КонецЦикла;    

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

    попытка

        олеСкрипт = новый 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;

               прервать;

          КонецЕсли;

     КонецЦикла;

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