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

RegExp.MultiLine=Ложь; 

RegExp.Global=Истина;

RegExp.Pattern = "[^A-z0-9]";

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

Res = RegExp.Replace(Str1, "");

Возврат Res;   

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

    Результат = Новый Массив();

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр  

    RegExp.Global = Истина; //Поиск всех вхождений шаблона  

    RegExp.MultiLine = Ложь; //Многострочный режим  

    

    RegExp.Pattern = "(?:^|;)(\""(?:[^\""]+|\""\"")*\""|[^;]*)"; //вот наш супер шаблон  

    //RegExp.Pattern = ";|;|;|;|;;|;|;|;|;|;|;|;|;;|;|;"; //вот наш супер шаблон  

    Matches=RegExp.Execute(Стр);

    ЧислоВхождений=Matches.Count();

    //Сообщить(Стр,СтатусСообщения.Важное); 

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            

            SubMatches = Match.SubMatches;

            ЧислоПодвыражений=SubMatches.Count();

            Для н = 0 По ЧислоПодвыражений-1 Цикл

                SubMatch=SubMatches.Item(н);

                Если SubMatch="" Тогда

                    //Продолжить; 

                КонецЕсли;    

                Результат.Добавить(SubMatch);

                //Сообщить("Подстрока: "+SubMatch); 

            КонецЦикла;    

        КонецЦикла;

    Иначе

        //Сообщить("Вхождений шаблона не найдено"); 

    КонецЕсли;

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

   

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

 ///////////////////////////////////////////////////////////////////////

//Поиск вхождений подстроки

Процедура RegExp_Exec()

    

    //Для 1С 7.7:

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Ложь; //Многострочный режим

    

    RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML

    Matches=RegExp.Execute("Это <hr> строка <br> с тегами HTML");

    ЧислоВхождений=Matches.Count();

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            Сообщить("Найден тег:"+ Match.Value);

        КонецЦикла;

    Иначе

        Сообщить("Вхождений шаблона не найдено");

    КонецЕсли;

    //Выдаст в окно сообщений:    

    //Найден тег:<hr>

    //Найден тег:<br>    

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

 ///////////////////////////////////////////////////////////////////////

//Поиск вхождений подстроки с использованием подвыражений

Процедура RegExp_Exec1()

    

    //Для 1С 7.7:

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Ложь; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Ложь; //Многострочный режим

    

    RegExp.Pattern = "([^<]*)(<[^>]*>)([^<]*)"; //Ищем теги HTML, а также текст до и после тега

    Matches=RegExp.Execute("  <tr><td id=aaa>Дятел <td> долбит <td> сосну </tr>");

    ЧислоВхождений=Matches.Count();

    Если ЧислоВхождений>0 Тогда 

        Для к = 0 По ЧислоВхождений-1 Цикл

            Match = Matches.Item(к);

            

            SubMatches = Match.SubMatches;

            ЧислоПодвыражений=SubMatches.Count();

            Для н = 0 По ЧислоПодвыражений-1 Цикл

                SubMatch=SubMatches.Item(н);

                Если SubMatch="" Тогда

                    Продолжить;

                КонецЕсли;    

                

                Сообщить("Подстрока: "+SubMatch);

            КонецЦикла;    

        КонецЦикла;

    Иначе

        Сообщить("Вхождений шаблона не найдено");

    КонецЕсли;

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



//Выводит в окно сообщений:

//Подстрока:   

//Подстрока: <tr>

//Подстрока: <td id=aaa>

//Подстрока: Дятел 

//Подстрока: <td>

//Подстрока:  долбит 

//Подстрока: <td>

//Подстрока:  сосну 

//Подстрока: </tr>

 ///////////////////////////////////////////////////////////////////////

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

Процедура RegExp_Test()

    RegExp = CreateObject("VBScript.RegExp");

    RegExp.Pattern =  "^\d+$"; //Шаблон, который соответствует целому числу

    стр="12345";//Строка, которую тестируем

    Если RegExp.Test(стр)=0 Тогда

        Сообщить("Это не целое число");

    Иначе

        Сообщить("Это целое число");

    КонецЕсли;

    //Выдаст в окно сообщений:    

    //"Это целое число"

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

 ///////////////////////////////////////////////////////////////////////

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

Процедура RegExp_Replace()

    

    //Строка, где мы будем производить замены

    стр="Дятел долбил сосну";

    

    Истина=-1;

    Ложь=0;

    RegExp = CreateObject("VBScript.RegExp");

    

    RegExp.IgnoreCase = Истина; //Игнорировать регистр

    RegExp.Global = Истина; //Поиск всех вхождений шаблона

    RegExp.MultiLine = Истина; //Многострочный режим

    

    

    RegExp.Pattern = "(долбил)"; 

    

    стр=RegExp.Replace(стр, "про$1"); 

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

    //Выдаст в окно сообщений:    

    //"Дятел продолбил сосну"

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

 Шаблон = ".+@.+\..+"; // регулярное выражение соответствует произвольному e-mail адресу



СтрокаАдреса = "ivanov@mail.com"; // проверяемый адрес

//CтрокаАдреса = ЭлементыФормы.ПолеВводаАдреса.Значение;  //проверяемый адрес для элемента формы



RegExp = Новый COMОбъект("VBScript.RegExp"); // создаем объект для работы  с регулярными выражениями

RegExp.MultiLine = Ложь;    // истина — текст многострочный, ложь — одна строка

RegExp.Global = Истина;     // истина — поиск по всей строке, ложь — до первого совпадения

RegExp.IgnoreCase = Истина; // истина — игнорировать регистр строки при поиске

RegExp.Pattern = Шаблон;    // шаблон (регулярное выражение) для проверки  корректности e-mail

Если RegExp.Test(СтрокаАдреса) Тогда

     Сообщить("Корректный адрес");

Иначе

     Сообщить("Некорректный адрес");

КонецЕсли;   

 RegExp = CreateObject("VBScript.RegExp");

 //Пример 1:

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

    Екскел=СоздатьОбъект("Excel.Application");

    Книга=Екскел.WorkBooks.Open("C:\Ищем.xls");

    Книга.Worksheets(1).Unprotect ("1qaz");

    Для к=1 По Книга.Worksheets.Count Цикл

        Диапазон = Книга.Worksheets(к).UsedRange;

        Попытка

            Найдено = Диапазон.Find("цу");

            Истина=-1;

        Исключение

            Истина=0;

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

        Если Истина=-1 Тогда

        АдресПреж = Найдено.Address;

        Пока Истина=-1 Цикл

            Сообщить(""+Книга.Worksheets(к).Name+"; "+Найдено.Address);

            Попытка

                Найдено = Диапазон.FindNext(Найдено);

                Истина=-1;

            Исключение

                Истина=0;

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

            Истина=?((Истина=-1) И (Найдено.Address <> АдресПреж),-1,0);

        КонецЦикла;

        КонецЕсли;

    КонецЦикла;

    Сообщить(Книга.Worksheets(1).Cells(1, 1).Text);

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





//Пример 2:

Процедура НайтиСтроку(Application,СтрокаПоиска)   

    S_election=Application.S_election;

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

      Скрипт.Language="vbscript";

      Скрипт.AddObject("S_election",S_election);

      Скрипт.AddObject("ActiveCell",Application.ActiveCell);

    //res=Скрипт.Eval("S_election.Find("+СтрокаПоиска+",ActiveCell,-4163,1).activate()");

 

    res=Скрипт.Eval("S_election.Find("+СтрокаПоиска+",ActiveCell,-4163,1)");

    Сообщить("результат "+res.Address);

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

                                                    

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

    Путь="C:\test.xls";

    Str="567";

    Попытка

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

    Исключение

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

        Сообщить("Возможно, MS Excel не установлен на этом компьютере.");

        Возврат;

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

    НайтиСтроку(Application,Str);

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

 

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

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

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

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

                Результат = 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",ТекущаяДата())); // Название дня недели

 

// Функция "расщепляет" строку на подстроки, используя заданный 

//		разделитель. Разделитель может иметь любую длину. 

//		Если в качестве разделителя задан пробел, рядом стоящие пробелы 

//		считаются одним разделителем, а ведущие и хвостовые пробелы параметра Стр

//		игнорируются.

//		Например, 

//		РазложитьСтрокуВМассивПодстрок(",ку,,,му", ",") возвратит массив значений из пяти элементов, 

//		три из которых - пустые строки, а 

//		РазложитьСтрокуВМассивПодстрок(" ку   му", " ") возвратит массив значений из двух элементов

//

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

//		Стр - строка, которую необходимо разложить на подстроки. 

//		Разделитель - 	строка-разделитель, по умолчанию - запятая.

//

//	Возвращаемое значение:

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

//

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

	

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

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

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

		Пока 1=1 Цикл

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

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

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

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

			КонецЕсли;

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

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

		КонецЦикла;

	Иначе

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

		Пока 1=1 Цикл

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

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

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

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

			КонецЕсли;

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

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

		КонецЦикла;

	КонецЕсли;

	

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

  // Пример с использованием предустановленной библиотеки RegExp, т.е. она есть в любом windows.

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

	RegExp = Новый COMОбъект("VBScript.RegExp");    // создаем объект для работы с регулярными выражениями

	

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

	RegExp.MultiLine = Ложь;  // истина — текст многострочный, ложь — одна строка

	RegExp.Global = Истина;   // истина — поиск по всей строке, ложь — до первого совпадения

	RegExp.IgnoreCase = Ложь; // истина — игнорировать регистр строки при поиске

	

	//Разбор строки вида 1,СЛОВО,(1+2); Маска для разделителя ',' [^\,]*"

	RegExp.Pattern = "[^\" + Разделитель + "]+";

	Matches = RegExp.Execute (Строка);

	

	Массив = Новый Массив;

	

	Для Сч = 0 По Matches.Count - 1 Цикл

		Массив.Добавить(Matches.Item(Сч).Value);

	КонецЦикла;

	

	RegExp = Неопределено;

	

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

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

 

Функция ВытащитьДату(Стр)

	парсер=СоздатьОбъект("VBScript.RegExp");

	парсер.Global=-1;

	парсер.IgnoreCase =-1;  

	стрМес="Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";

	парсер.Pattern="(\d\d)\s(("+стрМес+"))\s(\d{4})";

	рез = парсер.Execute(Стр);

	Если рез.Count>0 Тогда

		рез_ = рез.Item(0);

		чч=Число(рез_.Submatches(0));

		мст=рез_.Submatches(1);  

		где=Найти(стрМес,мст);

		мм=цел(где/4)+1;

		гг=Число(рез_.Submatches(3));  

		дат=Дата(гг,мм,чч);

	Иначе

		дат=0;

	КонецЕсли;

	Возврат дат;

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



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

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

	ТЗ.НоваяКолонка("ИД","Число");

	ТЗ.НоваяКолонка("Дата","Дата"); 

	ТЗ.НоваяКолонка("Заголовок","Строка");

	ТЗ.НоваяКолонка("Ссылка","Строка");

	ТЗ.НоваяКолонка("Текст","Строка"); 

	

	Состояние("Получение данных с сайта www.buh.ru");

	

	//ТаймАут поставьте в зависимости от качества подключения

	ТаймАут=100000;

	

	IE=СоздатьОбъект("InternetExplorer.Application");

	IE.navigate("http://www.buh.ru/rss/rss-2.0.jsp");

	Пока IE.readyState<4 Цикл

		ТаймАут=ТаймАут-1;

		Если ТаймАут=0 Тогда

			Предупреждение("Не удалось получить данные с сайта www.buh.ru",10);

			Возврат;

		КонецЕсли;

	КонецЦикла;        

	

	//версия 0.1 для v7plus.dll 

	//ХМЛ=СоздатьОбъект("AddIn.XMLParser");  

	//ХМЛДок=ХМЛ.СоздатьДокумент();

	//ХМЛДок.Загрузить(oIE.document.XMLDocument); 

	//Выборка=ХМЛДок.ВыбратьУзлы("//item");

	//Для ии=0 По Выборка.КоличествоУзлов()-1 Цикл 

	//	ЭлНовость=Выборка.ПолучитьУзел(ии);

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

	//	ТЗ.Дата=ВытащитьДату(ЭлНовость.ВыбратьУзел("./pubDate").Текст);

	//	ТЗ.Заголовок=ЭлНовость.ВыбратьУзел("./title").Текст;

	//	ТЗ.Ссылка=ЭлНовость.ВыбратьУзел("./link").Текст;

	//	ТЗ.Текст=ЭлНовость.ВыбратьУзел("./description").Текст;

	//КонецЦикла; 

	

	//версия 0.2 для MSXML

	ХМЛДок=СоздатьОбъект("MSXML2.DOMDocument");;

	ХМЛДок.async=0;

	ХМЛДок.resolveExternals=0;

	ХМЛДок.load(IE.document.XMLDocument); 

	Выборка=ХМЛДок.selectNodes("//item");

	Для ии=0 По Выборка.length-1 Цикл 

		ЭлНовость=Выборка.item(ии);

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

		ТЗ.Дата=ВытащитьДату(ЭлНовость.selectSingleNode("./pubDate").text);

		ТЗ.Заголовок=ЭлНовость.selectSingleNode("./title").text;

		ТЗ.Ссылка=ЭлНовость.selectSingleNode("./link").text;

		ТЗ.Текст=ЭлНовость.selectSingleNode("./description").text;

	КонецЦикла; 

    //Все. Мы получили ТЗ с последними новостями

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

 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");   

 Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение

ИмяФайла = ПолучитьИмяВременногоФайла(".txt");

//строка-образец

//http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1

//http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1

СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER";

СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ","");



Попытка //соединяемся

Соединение.Получить(СтрокаСоединения,ИмяФайла);

Исключение

Сообщить("Невозможно получить курс по адресу http://export.rbc.ru"+СтрокаСоединения);

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



КурсыТекст=Новый ТекстовыйДокумент; //читаем результат запроса

КурсыТекст.Прочитать(ИмяФайла);   

  // еще пример

 Функция ПолучитьКакСтроку(Адресс) 

	соминет = Новый COMОбъект("MSXML2.XMLHTTP");

	соминет.open ("GET", Адресс, Ложь);

	соминет.send();

	Возврат соминет.responseText;

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



Функция ПреобразоватьДату(дат)

	// Медот преобразования даты времен 1Сv7

	//Т=Строка(Дат);

	//Возврат Сред(Т,7,4)+"/"+Сред(Т,4,2)+"/"+Лев(Т,2);

	Возврат Формат(Дат,"ДФ=""гггг/ММ/дд""");

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



Процедура КнопкаЗагрузитьКурсы(Элемент)

	//Список - список валют	

	Для А = 1 по Список.Количество() цикл

		Если Список[а-1].Пометка тогда

			Сообщить("Загружаем курсы для "+Строка(Список[а-1].Значение));

			Код = Строка(Список[а-1].Значение.Код);

			Дат = ПериодС;

			Пока Дат <= ПериодПо цикл

				Стр = ПолучитьКакСтроку("http://cbrates.rbc.ru/tsv/"+Код+"/"+ПреобразоватьДату(Дат)+".tsv");

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

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

					Дат = Дат + 86400;

					Продолжить;

				КонецЕсли;					

				Кратность = Число(СокрЛП(Лев(стр,Поз-1)));

				курс = Число(СокрЛП(Сред(Стр,Поз+1,СтрДлина(Стр)-Поз)));

				Сообщить("Дата="+Строка(Дат)+" Курс="+Строка(курс)+" Кратность="+Строка(Кратность));

				Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();

				Запись.Период = Дат;

				Запись.Валюта = Список[а-1].Значение.Ссылка;

				Запись.Курс = Курс;

				Запись.Кратность = Кратность;

				Запись.Записать(Истина);

				Дат = Дат + 86400;                   

			КонецЦикла;				

		КонецЕсли;			

	КонецЦикла;		

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

 // Взято с http://www.1c-club.kz     IUnknown

//Небольшая обработка для получения курса валют размещенной на странице Национального Банка РК.

//Внимание: работоспособность данной обработки может быть нарушена, если дизайнеры сайта НБ РК изменят формат страницы с //официальным курсом валюта. Но не большой анализ нового формата и работоспособность обработки будет восстановлена.

// шаблон для отображаемой на форме таблице значения

перем тзПустышка;



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

// ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

//

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

//  стрНазвание - Строка. Наименование реквизита формы инициюрующей

//                вызов процедуры.

//  чисФлаг     - Число. Флаг станадартной обработки иницации нажатия

//                кнопки выбора значения.

//

// Возвращаемое значение:

//  Нет.

//

// Описание:

//  Переопределенная процедура инициирующая при нажатии кнопки

//  выбора значения реквизита формы.

//

процедура ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

    // Если инициировали из реквизита "стрУРЛа"

    если стрНазвание = "стрУРЛа" тогда

        // откроем страницу с введенным URL

        запуститьприложение(стрУРЛа);

    конецесли;

конецпроцедуры



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

// кнПолучить()

//

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

//  Нет

//

// Возвращаемое значение:

//  Нет.

//

// Описание:

//  Процедура получающая курсы валют с URL находящегося в

//  строковом реквизите формы "стрУРЛа". Пытается по указаноому URL

//  получить страницу и распарсить ее.

//

//  ПРЕДУПРЕЖДЕНИЕ:

//  В случае измения формата данных представленных на странице, возможно

//  будет работать не правильно.

//

процедура кнПолучить()

    // сгенирим имя файла для временного хранения содержимого

    // страницы курса валют Национального банка

    стрИмяФайла = каталогпользователя() + "$$$$.###";

    // создадим объект XMLHttpRequest

    олеХМЛ = создатьобъект("Microsoft.XMLHTTP");

    // иницируем его типом запроса и нужным нам URL

    олеХМЛ.Open("GET", стрУРЛа, 0);

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

    олеХМЛ.Send();

    // создадим "поток" через ADODDB для работы с данными

    олеАДО = создатьобъект("ADODB.Stream");

    // зададим тип и режим потока

    олеАДО.Mode = 3;

    олеАДО.Type = 1;

    // откроем его

    олеАДО.Open();

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

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

    // установим язык сценариев

    олеШелл.Language = "vbscript";

    // добавим созданные объекты

    олеШелл.AddObject("oleADO", олеАДО);

    олеШелл.AddObject("oleXML", олеХМЛ);

    // с помощью скрипта запишем в поток ADO данные из

    // объекта XMLHttpRequest

    // то есть содержимое страницы

    олеШелл.Eval("oleADO.Write(oleXML.ResponseBody)");

    // запишем данные во временный файл

    олеАДО.SaveToFile(стрИмяФайла, 2);

    // закроем данный поток

    олеАДО.Close();

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

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

    // для этого инициализуруем поток установкой

    // соотвествующим режимом и типом

    олеАДО.Mode= 3;

    олеАДО.Type = 2;

    // так как страница курса валют НБК имеет формат

    // символов UTF-8, то установим соотвествующий набор

    олеАДО.CharSet="UTF-8";

    // откроем поток

    олеАДО.Open();

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

    олеАДО.LoadFromFile(стрИмяФайла);

    // обнулим временную строковую переменную

    стрТемп = "";

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

    пока олеАДО.EOS() = 0 цикл

        // и запишем их во временную переменую, добавив разделитель строк

        стрТемп = стрТемп + олеАДО.ReadText(-2) + разделительстрок;

    конеццикла;

    // закроем поток

    олеАДО.Close();

    // удалим временный файл

    фс.УдалитьФайл(стрИмяФайла);

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

    чисПозиция = найти(стрТемп, "Официальные курсы валют на");

    если чисПозиция = 0 тогда

        // если позиции нет ... то мы имем другую страницу

        // или другой формат страницы...

        предупреждение("Не получилось получить курсы валют");

    иначе

        // создаим временную таблицу значений

        // для более шустрого заполения из-за отстуствия вызова

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

        тзТемп = создатьобъект("ТаблицаЗначений");

        // установим для нее нужный формат

        тзПустышка.Выгрузить(тзТемп);

        // отрежем все лишнее

        стрТемп = сред(стрТемп, чисПозиция);

        // получим дату курса

        дтКурса = дата(стрзаменить(стрполучитьстроку(стрТемп, 2), "/", "."));

        // первая строка с курсом валюты находится на 18 строке от начала

        // после удаления мусора

        чисПозиция = 18;

        // узнаем сколько всего строк в многострочке

        чисКоличествоСтрок = стрколичествострок(стрТемп);

        // получим строку

        стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

        // если в строке есть подстрока ... то значит это наверное очередная валюта

        пока найти(стрТекущая, "input type=""checkbox"" name=""idval""") > 0 цикл

            // добавляем новую строку

            тзТемп.НоваяСтрока();

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

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 1);

            // используя фичу 1С по преобразованию, получим число

            // за сколько единиц валюты имеем курс в тенге

            тзТемп.Количество = число(стрТекущая);

            // путем убирания "мусора" получаем наименование валюты

            тзТемп.Наименование = сокрлп(стрзаменить(стрзаменить(стрТекущая, тзТемп.Количество, ""), "</td>", ""));

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

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 2);

            // убираем html мусор

            стрТекущая = сокрлп(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // получаем код валюты

            тзТемп.Код1 = лев(стрТекущая, 3);

            // получаем код валюты "Тенге"

            тзТемп.Код2 = прав(стрТекущая, 3);

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

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 5);

            // очищаем от мусора и преобразуем в число... получаем курс

            тзТемп.Курс = число(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // увеличиваем позицию на 17 ...

            чисПозиция = чисПозиция + 17;

            если чисПозиция > чисКоличествоСтрок тогда

                // если позици дальше имеющихся строк

                // то все курсов больше нет

                стрТекущая = "";

            иначе

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

                стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

            конецесли;

        конеццикла;

        // сформированую таблицу копируем в таблицу на форме

        тзТемп.Выгрузить(тзКурсов);

    конецесли;

конецпроцедуры



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

// установим значение реквизита текущим URL по которому можно получить курс валют

стрУРЛа = "http://www.nationalbank.kz/?docid=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D";

// формируем формат таблицы

тзПустышка = создатьобъект("ТаблицаЗначений");

тзПустышка.НоваяКолонка("Количество", "число", 3, 0, "", 5);

тзПустышка.НоваяКолонка("Наименование", "строка", , , "Наименование", 70);

тзПустышка.НоваяКолонка("Код1", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Код2", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Курс", "число", 7, 2, "Курс", 10);

// копируем получившийся формат в таблицу на форме

тзПустышка.Выгрузить(тзКурсов);

 // оперделим два массива для формирования S-Блока

перем масТемп[254], масSБлок[254];

// переменая для управления объектом Script Control

перем олеШелл;



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

// стрКодировать(стрИсточник, стрКлюч)

//

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

//  стрИсточник - Строка. Набор симвлов для преобразования.

//  стрКлюч - Строка. Набор симвлов для формирования S-Блока.

//

// Возвращаемое значение:

//  Строка. Набор симвлов после преоброзования.

//

// Описание:

//  Функция шифрует или дешифрует набор символов с помощью

//  S-Блока сформированного на основе ключа.

//

функция стрКодировать(стрИсточник, стрКлюч)

    // Инициализация данных для формирования S-Блока

    чисДлинаКлюча = стрдлина(стрКлюч);

    у = 0;

    для х = 1 по 254 цикл

        у = у + 1;

        у = ?(у > чисДлинаКлюча, 1, у);

        масТемп[х] = кодсимв(сред(стрКлюч, у, 1));

        масSБлок[х] = х - 1;

    конеццикла;

    // Формирование S-Блока

    у = 0;

    для х = 1 по 254 цикл

        у = (у + масТемп[х] + масSБлок[х]) % 254 + 1;

        чисТемп = масSБлок[х];

        масSБлок[х] = масSБлок[у];

        масSБлок[у] = чисТемп;

    конеццикла;

    // Ну и сообственно преобразование

    чисДлинаТекста = стрдлина(стрИсточник);

    у = 0;

    ч = 0;

    для х = 1 по чисДлинаТекста цикл

        чисБайт = кодсимв(сред(стрИсточник, х, 1));

        у = (у + 1) % 254 + 1;

        ч = (ч + масSБлок[у]) % 254 + 1;

        чисТемп = масSБлок[у];

        масSБлок[у] = масSБлок[ч];

        масSБлок[ч] = чисТемп;

        чисТемп = масSБлок[(масSБлок[у] + масSБлок[ч]) % 254 + 1];

        чисБайт = число(олеШелл.Run("intXOR", чисБайт, чисТемп));

        Ответ = Ответ + симв(чисБайт);

    конеццикла;

    // Возвращаем полученную строку

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

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



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

// Этот блок обязателен.

// Необходимо что бы он отработал до первого вызова

// функции стрКодировать

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

// Создаем объект для управления скриптами

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

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

олеШелл.Language = "VBScript";

// Сам срипт для проведения логически-исключающего сложение двух операндов

стрКод =

"function intXOR(x, y)

|  intXOR = x xor y

|end function";

// Добавим наш скрипт в котрол скриптов

олеШелл.AddCode(стрКод);



Ответ = стрКодировать("Это пример реализации алгоритма шифрования RC4 на языке 1С", "Казахстанский Клуб профессионалов 1С");

сообщить(Ответ);

Ответ = стрКодировать(Ответ, "Казахстанский Клуб профессионалов 1С");

сообщить(Ответ);

 // Глобальная переменная в которой будем хранить

// известные нам типы статусов сетевой карты

перем сзТипСтатуса;

// Глобальная переменая

перем обШелл;



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

// стрСтатусАдаптера(стрИмя = "")

//

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

//  стрИмя - Строка. Имя сетевой статус которой надо определить.

//           В том виде как показа в сетвых подключениях.

//

// Возвращаемое значение:

//  Строка. Статус заданой сетевой.

//

// Описание:

//  Функция определяет статус сетевой.

//

функция стрСтатусАдаптера(стрИмя = "")

    Ответ = "";

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

    попытка

        сзСтевые = создатьобъект("списокзначений");

        // Выполняем скрипт. Из полученного значения пытаемся

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

        сзСтевые = значениеизстроки(обШелл.Run("strGetAdapterInfo"));

    исключение

        // По каким-то причинам выполнить скрипт не удалось

        Ответ = "Статус установить не удалось";

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

    // Если в возращаемом значение пустая строка, то скрипт

    // выполнился. Можно смотреть дальше.

    если Ответ = "" тогда

        // Получаем индекс статуса сетевой.

        стрСтатус = строка(сзСтевые.Получить(стрИмя));

        // Проверяем на пустое значение индекса.

        если пустоезначение(стрСтатус) = 1 тогда

            // Если индекс пуст, то сетевая суказанным именем отсуствует

            Ответ = "Сетевая с таким именем отсуствует";

        иначе

            // Ищем индекс статуса в известных нам типов статуса.

            чисПозиция = сзТипСтатуса.НайтиЗначение(стрСтатус);

            если чисПозиция = 0 тогда

                // Не нашли. Смотрим MSDN

                Ответ = "Не известный тип статуса сетевой";

            иначе

                // Получаем строковое представление статуса.

                сзТипСтатуса.ПолучитьЗначение(чисПозиция, Ответ);

            конецесли;

        конецесли;

    конецесли;

    // Возвращаем полученный статус

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

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



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

// Этот блок обязателен.

// Необходимо что бы он отработал до первого вызова

// функции стрСтатусАдаптера

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

// Создаем объект для управления скриптами

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

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

обШелл.Language = "VBScript";

// Сам срипт который соберет статусы всех сетевых устройств

тхтКод = "

|function strGetAdapterInfo()

|  dim objNetworkAdapter

|  Answer = ""{""""СписокЗначений"""",{""

|  set objWMI = getobject(""WinMgmts:\\.\Root\CIMV2"")

|  set objNetworkAdapters = objWMI.ExecQuery(""S_elect * FROM Win32_NetworkAdapter"", , 48)

|  for each objNetworkAdapter in objNetworkAdapters

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

|             """"""}, """""" & objNetworkAdapter.NetConnectionID & """""",""""0""""}""

|            

|  next

|  Answer = Answer & ""}}""

|  strGetAdapterInfo = Answer

|  end function";

// Добавим наш скрипт в котрол скриптов

обШелл.AddCode(тхтКод);

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

// виды статуса сетевых устройств.

сзТипСтатуса = создатьобъект("списокзначений");

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

сзТипСтатуса.ДобавитьЗначение("0", "Отключенно");

сзТипСтатуса.ДобавитьЗначение("1", "Подключение");

сзТипСтатуса.ДобавитьЗначение("2", "Подключено");

сзТипСтатуса.ДобавитьЗначение("3", "Отключение");

сзТипСтатуса.ДобавитьЗначение("4", "Устройство не представленно");

сзТипСтатуса.ДобавитьЗначение("5", "Устройство отключено");

сзТипСтатуса.ДобавитьЗначение("6", "Устройство не исправно");

сзТипСтатуса.ДобавитьЗначение("7", "Соединение разорвано");

сзТипСтатуса.ДобавитьЗначение("8", "Аутентификация");

сзТипСтатуса.ДобавитьЗначение("9", "Аутентификация прошла успешно");

сзТипСтатуса.ДобавитьЗначение("10", "Аутентификация не прошла");

сзТипСтатуса.ДобавитьЗначение("11", "Неправильный адресс");

сзТипСтатуса.ДобавитьЗначение("12", "Требуется полномочия");

 

//Таб - ТабличныйДокумент

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

PDFФайл = Новый Файл(ИмяФайла);



Пока НЕ PDFФайл.Существует() Цикл

ОбработкаПрерыванияПользователя();

КонецЦикла;



Исключение



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

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

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

//устанавливаем принтер по умолчанию

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

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

 //получаем принтер по умолчанию

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2″»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

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

 // Процедура получает из реестра список зарегистрированных ИБ 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);

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

КонецЦикла;