&НаКлиенте

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

   Сигнал();

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

 // Способ №1

файлз = "C:\1.wav";

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

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

Скрипт.AddCode("

                    |Function Main()

                    |Set oVoice = CreateObject(""SAPI.SpVoice"")

                    |set oSpFileStream = CreateObject(""SAPI.SpFileStream"")

                    |oSpFileStream.Open """+файлз+"""

                    |oVoice.SpeakStream oSpFileStream

                    |End Function");

Скрипт.Run("Main");

 

// Способ №2

файлз = "C:\1.wav";

oVoice = Новый COMObject("SAPI.SpVoice");

oSpFileStream = Новый COMObject("SAPI.SpFileStream");

oSpFileStream.Open(файлз);

oVoice.SpeakStream(oSpFileStream);

oSpFileStream.Close();





// Способ №3

файлз = "C:\1.wav";

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

DynamicWrapper.Register("winmm.dll", "sndPlaySoundA", "i=su");

DynamicWrapper.sndPlaySoundA(файлз, 1);





// Способ №4

// Проигрыватель - это ActiveX компонента "Windows Media Player"

Процедура КнопкаВыполнитьНажатие(Кнопка) 

   ПроигратьЗвук("D:\Звуки\123.wav"); 

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





Процедура ПроигратьЗвук(Путь) 

   Попытка 

       ЭлементыФормы.Проигрыватель.settings.autostart = Истина; 

       ЭлементыФормы.Проигрыватель.settings.volume = 100; 

       ЭлементыФормы.Проигрыватель.URL = Путь; 

   Исключение 

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

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





// Способ №5

// при помощи html-тега bgsound, на форме должен быть элемент Поле HTML документа

&НаКлиенте

Процедура ВоспроизвестиMP3()

   мФайл = ПолучитьАдресФайла();

 

   ПолеHTML = "

   | <HTML>

   | <BODY scroll='no'>

   | <BGSOUND id='sound_think' balance=0 volume='-1000'></BGSOUND>

   | <div id=paperRaphael></div>

   | <script>

   | function PlaySound() {

   | if (!window.HTMLAudioElement) {

   | document.all.sound_think.volume=0; 

   | document.all.sound_think.src = '"+мФайл+"';

   | }

   | }

   | window.onload = function(){

   | PlaySound();

   | }

   | </script>

   | </BODY>

   | </HTML>";

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

 

&НаСервере

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

   Возврат ПоместитьВоВременноеХранилище(Обработки.ЗвукВ1С.ПолучитьМакет("sound"));

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

 [c83]

Здесь я расскажу как правильно формировать SQL запрос к EXEL дабы правильно подрубаться через разные методы подключения и создания ComОбьектов, так как в инете много разного пишут по этому поводу но конкретики что делать нет....

Приступим, создаем или открываем заполненную таблицу exel, далее заходим во вкладку данные выбираем "Из других источников и выбираем ИЗ Microsoft Quer" далее выбираете источник Базы Данных "Exel Files" далее будет выбор книги не стал делать скрин так как там просто нужно выбрать файл какой мы открываем("Пользователь /ПутьФайла/Файл"), далее появится форма создания запроса здесь выбираем нужный лист жмем стрелку переноса в столбцы запроса жмём далее, пропускаем все предложенные варианты, так как там будет предрлагатся задать правило отбора данных, порядок сортировки и тп. задача стояла в простом запросе так что пропускаем все условия, далее на заключительном шаге выбираем "Просмотр или изменение данных Microsoft Quer" жмём готово.

Откроется "Microsoft Query" представляет собой программу для переноса данных из внешних источников в программы Microsoft Office, в частности Microsoft Excel - это из справки о программе, а на деле это программа  дает возможность строить правильный запрос к exel как сложные так и простые, о построении сложных подробнее можно почитать в справке о программе, а чтобы увидеть как обратится к exel из 1с достаточно нажать кнопку SQL так называемый режим SQL и мы увидим запрос SQL который можно использовать при написании выгрузки и загрузки exel... в моём случае загрузка в бд через ADODB.Connection упиралась в SQLзапрос, так как я не мог его построить правильно, а здесь уже готовый запрос который подходит по синтаксису к 1с. 





Пример кода чтения EXEL.



Функция ВыполнитьЗагрузку(ПутьКФайлу) Экспорт     

   Файл=Новый Файл(ПутьКФайлу);   

     Если Файл.Существует() Тогда        Стр_Файл=Файл.ПолноеИмя;     

   // Отрезаем слеш если он есть в конце пути        Стр_Путь=Файл.Путь; 

       Если Прав(Стр_Путь,1)="\" Тогда            Стр_Путь=Лев(Стр_Путь,СтрДлина(Стр_Путь)-1); 

      КонецЕсли;        // Строка корнекта        Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)}; 

       |DriverId=790;

        |Dbq="+Стр_Файл+";

        |DefaultDir="+Стр_Путь+";"; 

        Об_Конект = Новый COMОбъект("ADODB.Connection"); 

       Попытка            Об_Конект.Open(Стр_Конект);  

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

           Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!            

|Возможно файл ["+Стр_Файл+"] открыт другим пользователем.");

            Возврат Ложь;        КонецПопытки;                

 //формируем запрос       

  //Здесь есть нюанс первая строка данных всегда будет являться заголовком 

        //если она пустая то имена клонок формируются следующим образом F<Номер колонки>  

      Стр_SQL = "SELECT `Лист1$`.Город,`Лист1$`.Заправка FROM`C:\Users\User_scan\Desktop\файл.xls`.`Лист1$``Лист1$`";

        Об_РекордСет = Новый COMОбъект("ADODB.Recordset");

        //если неудача тогда след. присвоение должно взлететь 

       //Стр_SQL = "SELECT "+Стр_КолонкиВыбора+" FROM [A"+Ч_Начало+":AZ100000] WHERE "+Стр_УсловиеКлючей;

                        Попытка            Об_РекордСет=Об_Конект.Execute(Стр_SQL);

        Исключение            Сообщить("Не удадлось выполнить запрос к файлу Excel           

 |"+ ОписаниеОшибки(),СтатусСообщения.Важное); 

           Возврат Ложь;

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

       Номер = 1;      

  Пока НЕ Об_РекордСет.EOF Цикл            

// Получаем данные из Об_РекордСет 

           // ...            Номер = Номер +1;

            //Сообщить("ВСЕ ОК!!!"); 

           Для каждого ОБ_Поле Из Об_РекордСет.Fields Цикл  

              // Пример вывода информации Сообщить(ОБ_Поле.Name,Об_РекордСет.Fields(ОБ_Поле.Name).value); 

            КонецЦикла;  

          // ...            Об_РекордСет.MoveNext(); 

       КонецЦикла;  

      Сообщить(Номер); 

       Об_Конект.Close(); 

    // Закрываем конект  

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

      Об_РекордСет=Неопределено; 

               Возврат Истина; 

   Иначе        Сообщить("Файл "+ПутьКФайлу+" не найден!");

        Возврат Ложь;

    КонецЕсли;   

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



   

 <!DOCTYPE html>

<html>

<head>

<meta name="viewport" content="initial-scale=1.0, user-scalable=no" />

<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>

<meta http-equiv="X-UA-Compatible" content="IE=8">

<style type="text/css">

  html { height: 100% }

  body { height: 100%; margin: 0px; padding: 0px }

  #map { height: 100% }

</style>

<script type="text/javascript" src="http://maps.google.com/maps/api/js?v=3.9&sensor=false"></script>

<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js" type="text/javascript"></script>

<script type="text/javascript" src="http://www.sitedev.by/lab/markerclusterer/markerclusterer.js"></script>

<script type="text/javascript">

	var latlng;

	var markers = [];

	var myMap;

	var index = 1;

	var directionsDisplay;

	var directionsService = new google.maps.DirectionsService();

	var infoWindow = new google.maps.InfoWindow;

	var clusterer, mcOptions;

	var trafficLayer = new google.maps.TrafficLayer();

	var trafficOn = false;

	var noclick = false;

	var PointArray = [];

	var polygons = [];





  	function initialize() {

  		directionsDisplay = new google.maps.DirectionsRenderer();

		latlng = new google.maps.LatLng(55.75, 37.62);

	  	var myOptions = {

		  zoom: 12,

		  center: latlng,

		  mapTypeId: google.maps.MapTypeId.ROADMAP,

		  disableDoubleClickZoom: true,

		  panControl: true,

		  zoomControl: true,

		  mapTypeControl: true,

		  scaleControl: true,

		  streetViewControl: true,

		  overviewMapControl: true

		};

		myMap = new google.maps.Map(document.getElementById("map"),

	       myOptions);

	       

	    google.maps.event.addListener(myMap, 'dragend', function() {

        	noclick = true;			

			document.getElementById('CoordX').value = "0";

			document.getElementById('CoordY').value = "0";  

        });

        

        google.maps.event.addListener(myMap, 'click', function(event) {

	    	infoWindow.close();

	    	if (!noclick) {

				addMarker(event.latLng);

	      	}else{

	      		noclick = false;

	      	}

	    });          

	    

	    mcOptions = {gridSize: 3, maxZoom: 15};

	    clusterer = new MarkerClusterer(myMap, markers, mcOptions);

	    

	    //отображение кнопки управления трафиком - все спер с примера, только подцепил свою функцию

	    var trafficControlDiv = document.createElement('div');

        

        trafficControlDiv.style.padding = '5px';





        // Set CSS for the control border

        var controlUI = document.createElement('div');

        controlUI.style.backgroundColor = 'white';

        controlUI.style.borderStyle = 'solid';

        controlUI.style.borderWidth = '2px';

        controlUI.style.cursor = 'pointer';

        controlUI.style.textAlign = 'center';

        controlUI.title = 'нажмите для вкл/выкл трафика';

        trafficControlDiv.appendChild(controlUI);





        // Set CSS for the control interior

        var controlText = document.createElement('div');

        controlText.style.fontFamily = 'Arial,sans-serif';

        controlText.style.fontSize = '12px';

        controlText.style.paddingLeft = '4px';

        controlText.style.paddingRight = '4px';

        controlText.innerHTML = '<b>Трафик</b>';

        controlUI.appendChild(controlText);





        google.maps.event.addDomListener(controlUI, 'click', function (){

			if (!trafficOn){

				trafficOn = true;

				trafficLayer.setMap(myMap);

			}else{

				trafficOn = false;

				trafficLayer.setMap(null);

			}

			});





        trafficControlDiv.index = 1;

        myMap.controls[google.maps.ControlPosition.TOP_RIGHT].push(trafficControlDiv);

	};

  

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

	function addMarker(location) {

		marker = new google.maps.Marker({

			position: location,

			map: myMap,

			title: 'Точка'+index

		});

		infoWindow.setContent(marker.title);

        infoWindow.open(myMap, marker);

		

		google.maps.event.addListener(marker, 'click', function(){

			 var mark = this;

		     var latLng = mark.getPosition();

		     infoWindow.setContent(mark.title);

             infoWindow.open(myMap, mark);});

		

		markers.push(marker);

		index++;

		

		document.getElementById('CoordX').value = location.lat();

		document.getElementById('CoordY').value = location.lng();

	}

	

	function calcRoute(options) {

	  //вытягиваем из массива переданных параметров значения

	  //и преобразуем их в формат LatLng

	  var option1 = options[0];//начальная точка 

	  var option2 = options[1];//промежуточные точки

	  var option3 = options[2];//конечная точка

	  var start = new google.maps.LatLng(option1[0], option1[1]);  //первый

	  var end = new google.maps.LatLng(option3[0], option3[1]); //последний

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

	  var waypts = [];

	  if(option2.length > 0) {

	  	for(var i = 0, l = option2.length; i < l; i++) {

	  		temp = option2[i]; 

			Qcoord = new google.maps.LatLng(temp[0], temp[1])

			waypts.push({

	          location:Qcoord,

	          stopover:true

	      });

		} 

	  }	 

	  //return;

	  var request = {

	      origin: start,

	      destination: end,

	      waypoints: waypts,

	      optimizeWaypoints: true,

	      travelMode: google.maps.TravelMode.DRIVING

	  };

	  directionsService.route(request, function(response, status) {

	    if (status == google.maps.DirectionsStatus.OK) {

	    	directionsDisplay.setMap(myMap);

	    	directionsDisplay.setDirections(response);

	      

	    	var total = 0; 

		    var myroute = response.routes[0];

		 

		    for (i = 0; i < myroute.legs.length; i++) {		 

		      total += myroute.legs[i].distance.value;		 

		    }

		  	total = total / 1000;

		  	document.getElementById('RouteInfo').value = "Длина маршрута - " + total + "км.";

	        

	        //генерация события для перехвата в 1С

	        var evt = document.createEventObject();

	  		document.body.fireEvent('ondatasetcomplete', evt);

	    }else{

	    	alert(status);

	    }

	  });

	}

	

	function Reset(){

		directionsDisplay.setMap(null);

		for (var i = 0; i < markers.length; i++) {

          markers[i].setMap(null);

        }

		markers = [];

		index = 1;

		

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

		clusterer.clearMarkers();

		

		for (var i = 0; i < polygons.length; i++) {

          polygons[i].setMap(null);

        }

		polygons = [];

		PointArray = [];

	}

	

	function FindAdres(Adres){

		Reset();

		var geocoder = new google.maps.Geocoder();

	    geocoder.geocode( { 'address': Adres}, function(results, status) {

	      if (status == google.maps.GeocoderStatus.OK) {

	        latlng = results[0].geometry.location;

			myMap.panTo(latlng);

			

			 marker = new google.maps.Marker({

	            map: myMap,

	            position: latlng,

	            animation: google.maps.Animation.BOUNCE,

	            title:Adres

	        });

	        

	        markers.push(marker);

	        

	        infoWindow.setContent(marker.title);

        	infoWindow.open(myMap, marker);

	      } else {

	        alert("Ничего не найдено: " + status);

	      }

	    });

	}

	

	function ReverseSearchAdres(CoordX, CoordY, Adres){

		Reset();

		latlng = new google.maps.LatLng(CoordX, CoordY);

		myMap.panTo(latlng);

		

		var marker = new google.maps.Marker({

	        map: myMap,

            position: latlng,

            animation: google.maps.Animation.BOUNCE,

            title:Adres

        });

        

        markers.push(marker);

        

        infoWindow.setContent(marker.title);

        infoWindow.open(myMap, marker);

	}

	

	function addToPointArray(CoordX, CoordY, ID, IconT, Text){

		var latLng = new google.maps.LatLng(CoordX, CoordY);

	  	var point = new google.maps.Marker({'position': latLng, title: Text,  icon: IconT});

	  	PointArray.push(point);

	}

	

	function drawCluster(){

		clusterer.addMarkers(PointArray);

		//myMap.geoObjects.add(clusterer);

	}	

	

	function createPolygon(ArrayPoint, Name, color) {

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

		var paths = [];

		for(var i = 0, l = ArrayPoint.length; i < l; i++) {

	  		var temp = ArrayPoint[i]; 

			Qcoord = new google.maps.LatLng(temp[0], temp[1])

			paths.push(Qcoord);

		};

	

		// Создаем многоугольник

		myPolygon = new google.maps.Polygon({

		    paths: paths,

		    strokeColor: color,

		    strokeOpacity: 0.6,

		    strokeWeight: 5,

		    fillColor: "#0000FF"

		  });

                    

        myPolygon.setMap(myMap);

        polygons.push(myPolygon);

    }

    

    function WebClientClick() {

    	//очистка перед кликом координат, иначе после клика в упр. формах идет считывание координат

    	document.getElementById('CoordX').value = "0";

		document.getElementById('CoordY').value = "0";

    	

    	var WebClientOperation = document.getElementById("WebClientOperation").value;

		//alert(WebClientOperation);

		switch (WebClientOperation) {

        	case "0":   // ничего не делаем

        	   var a = 1; 

        	default:   // запускаем функцию

        	    eval(WebClientOperation);

        }

        document.getElementById('WebClientOperation').value = "0";

	}

</script>

</head>





<body onload="initialize()">

    <div id="map" style="width:100%; height:100%"></div>

    <input type="hidden" id="CoordX" name="CoordX" value="0"></input>

    <input type="hidden" id="CoordY" name="CoordY" value="0"></input>

    <input type="hidden" id="RouteInfo" name="RouteInfo" value=""></input>

    <input type="hidden" id="WebClientOperation" name="WebClientOperation" value="0"></input>

    <input type="hidden" id="WebClient" name="WebClient" onclick="WebClientClick();"></input>

</body>

</html>   

 Процедура ИнициализироватьКарту()

	

	ПутьКФайлу = КаталогВременныхФайлов()+"Карта.html";

	Ф = новый Файл(ПутьКФайлу);

	Если Ф.Существует() Тогда

		УдалитьФайлы(ПутьКФайлу);

	КонецЕсли; 

	

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

	ТД = ЭтотОбъект.ПолучитьМакет("МакетГугл");

	Т.УстановитьТекст(ТД.ПолучитьТекст());

	Т.Записать(ПутьКФайлу);

	

	ЭлементыФормы.Эксплорер.Перейти(ПутьКФайлу);

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





Процедура ОчиститьКарту()

	ЭлементыФормы.Эксплорер.Документ.parentWindow.eval("Reset()");

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



//к сожалению, другого спососба получить "внутрь 1С" информацию о действии пользователя на карте я не сумел

//действие пользователя на карте изменяет поле HTML-документа, но не вызывает никакого события в 1с-ке  

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

Процедура ПриОткрытии()	

ИнициализироватьКарту();  	

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



// вывод точек на карту

Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)

	

	ОчиститьКарту();

	СписокВидов = Новый СписокЗначений;

	Для Каждого стр из ВыборВывода Цикл

		   если стр.пометка тогда СписокВидов.Добавить(стр.наименование); КонецЕсли;

	   КонецЦикла;

	табАдресов.Очистить();

	

	табАдресов = получитьтабАдресов(СписокВидов);

	табУникальныхАдресов = табАдресов.скопировать();

	табУникальныхАдресов.свернуть("Уник");

	тзДанных = табАдресов.скопировать();

	табАдресов.очистить();

	Для Каждого стр из табУникальныхАдресов Цикл 

		Отбор = Новый Структура();

		Отбор.Вставить("Уник",стр.Уник);

		Строки = тзДанных.НайтиСтроки(Отбор); 		

		НовСтр = табАдресов.добавить();

		НовСтр.уник = стр.уник;

		Если Строки.Количество() > 0 Тогда

			для Каждого тздстр из Строки Цикл 

				  НовСтр.Адрес = тздстр.Адрес;

				  НовСтр.КД = тздстр.КД;

				  НовСтр.КШ = тздстр.КШ;

                  НовСтр.ВидОбъекта = тздстр.ВидОбъекта;

				  НовСтр.Наименование=Строка(НовСтр.Наименование)+Строка(тздстр.Наименование)+"; ";

			КонецЦикла;	

			КонецЕсли;

	КонецЦикла;	

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





	ВыборМасштаба = "50%";

	ВыборРегиона = "Москва";

	ЭлементыФормы.Надпись24.Заголовок = "Точек: "+Строка(табАдресов.количество());





	

	Кол = табАдресов.Количество();

	Индекс = 0;

	Для Каждого ТекСтрока Из табАдресов Цикл Индекс = Индекс + 1;  Если НЕ ЗначениеЗаполнено(ТекСтрока.КД) тогда Продолжить; КонецЕсли;

		Широта = формат(ТекСтрока.КШ, "ЧРД=.");

		Долгота = формат(ТекСтрока.КД, "ЧРД=.");

		СодержимоеТочки = СокрЛП(ТекСтрока.ВидОбъекта)+": "+ СокрЛП(ТекСтрока.адрес);  //опять же можно вставить свое название

		Попытка

		ЭлементыФормы.Эксплорер.Документ.parentWindow.eval("addToPointArray(" + Широта + "," + Долгота + ", '" + Строка(Индекс) + "', '" + СокрЛП(ТекСтрока.ВидОбъекта.ПутьКИконке)+ "', """ + СодержимоеТочки + """);");

	Исключение

		Сообщить("addToPointArray(" + Широта + "," + Долгота + ", '" + Строка(Индекс) + "', '" + СокрЛП(ТекСтрока.ВидОбъекта.ПутьКИконке)+ "', """ + СодержимоеТочки + """);",СтатусСообщения.Внимание);

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

		Состояние("Вывожу на карту " + Индекс + " из " + кол); 		

	КонецЦикла;

	

	ЭлементыФормы.Эксплорер.Документ.parentWindow.eval("drawCluster();");



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

 Соединение = "DRIVER=MySQL ODBC 3.51 Driver;Database=inventar_sm;DataSource=roman-book;UID=root;PWD=240580;STMT=set character_set_results=cp1251;"; 

//Это если задаём кодировку соединения (лучше задать);

Соединение = "DRIVER=MySQL ODBC 3.51 Driver;Database=inventar_sm;DataSource=roman-book;UID=root;PWD=240580;";

//Это без задания кодировки.   

 Попытка

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

Connection.Open("DRIVER=MySQL ODBC 3.51 Driver;Database=inventar_sm;DataSource=roman-book;UID=root;PWD=240580;STMT=set character_set_results=cp1251;");





RS = Новый COMОбъект("ADODB.Recordset"); 

RS.CursorType=3;

// Запрос к базе на языке SQL запросов.

RS.ActiveConnection=Connection;

RS.Open("select * from market_users");

//Перемещаем указатель на первую запись.

RS.MoveFirst(); 

Пока RS.EOF()=0 Цикл

    // Обрабатываем значения полей выборки.

    NAM = RS.Fields("NAME").Value;

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

    // Перемещаем указатель.

    RS.MoveNext();    

КонецЦикла;    

//Закрываем соединения.

RS.Close();

Connection.Close();   

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

Connection.Open("DRIVER=MySQL ODBC 3.51 Driver;Database=inventar_sm;DataSource=roman-book;UID=root;PWD=240580;STMT=set character_set_results=cp1251;");





//Устанавливаем кодировку для нашего подключения (дополнительно)...

Command= new COMObject("ADODB.Command"); 

Command.CommandText = "set names cp1251";

Command.ActiveConnection = Connection;

Command.CommandType = 1;

Command.Execute();





//Теперь выполняем скрипт

Command= new COMObject("ADODB.Command"); 

Command.CommandText = "update market_cards set name='Хлебушек бородинский' where articul='123'";

Command.ActiveConnection = Connection;

Command.CommandType = 1;

Command.Execute();





//Закрываем соединение.

Connection.Close();   

 



Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1)  // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе

Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов;	

	Url = "http://www.bank.gov.ua/control/uk/curmetal/currency/search?formType=searchFormDate&time_step=" + ?(Ежедневно = 1, "daily", "monthly") + 

		"&date=" + Формат(ДатаКурса, "ДДДММГГГГ") + "&outer=table&execute=run&time=" + _GetPerformanceCounter();

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

	Reader = СоздатьОбъект("MSXML2.XMLHTTP");

	Reader.Open("Get", Url, 0);

	Reader.Send();

	Пока Reader.ReadyState <> 4 Цикл

		Состояние("Чтение данных за <" + ДатаКурса + "> ");

	КонецЦикла;

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

	Док.open("text/html");

	Док.write(Reader.ResponseText);

	Док.close();

	HtmlTab	= Док.getElementsByTagName("table").item(5);

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

	ТабКурсов.НоваяКолонка("ЦифрКод"	, "Строка", 3,  , "Цифр. код");

	ТабКурсов.НоваяКолонка("БуквКод"	, "Строка", 3,  , "Букв. код");

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

	ТабКурсов.НоваяКолонка("Курс"		, "Число" ,14, 4);

	ТабКурсов.НоваяКолонка("Кратность"	, "Число" , 9, 0);

	Строк	= HtmlTab.rows.length;

	Для НомСтроки = 1 По Строк Цикл

		Р = HtmlTab.rows(НомСтроки - 1);

		Если (НомСтроки = 1) Или (Р.cells.length <> 5) Тогда // 1 - я заголовок, остальные не с данными

			Продолжить;

		КонецЕсли;

		ТабКурсов.НоваяСтрока();

		ТабКурсов.ЦифрКод	= СокрЛП(Р.cells(0).innerText);

		ТабКурсов.БуквКод	= СокрЛП(Р.cells(1).innerText);

		ТабКурсов.Название	= СокрЛП(Р.cells(3).innerText);

		ТабКурсов.Курс		= 0 + СтрЗаменить(СокрЛП(Р.cells(4).innerText), " ", "");

		ТабКурсов.Кратность	= 0 + СтрЗаменить(СокрЛП(Р.cells(2).innerText), " ", "");

	КонецЦикла;

	Reader = 0;

	ТабКурсов.ВыбратьСтроку(, "Курсы за " + ДатаКурса);

	Возврат ТабКурсов;

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

 



Функция ПолучитьТаблицуКурсов(ДатаКурса)

Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов;	

	Reader = СоздатьОбъект("MSXML2.XMLHTTP");

	Url = "http://tables.finance.ua/ru/currency/official/-/1/" + ДатаГод(ДатаКурса) + "/" + ДатаМесяц(ДатаКурса) + "/" + ДатаЧисло(ДатаКурса) + "?time=" + _GetPerformanceCounter();

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

	Reader.Open("Get", Url, 0);

	Reader.Send();

	Пока Reader.ReadyState <> 4 Цикл

		Состояние("Чтение данных за <" + ДатаКурса + "> ");

	КонецЦикла;

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

	Док.open("text/html");

	Док.write(Reader.ResponseText);

	Док.close();

	HtmlTab	= Док.getElementByID("currency-official-table");

	Строк	= HtmlTab.rows.length;

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

	ТабКурсов.НоваяКолонка("ЦифрКод"	, "Строка", 3,  , "Цифр. код");

	ТабКурсов.НоваяКолонка("БуквКод"	, "Строка", 3,  , "Букв. код");

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

	ТабКурсов.НоваяКолонка("Курс"		, "Число" ,14, 4);

	ТабКурсов.НоваяКолонка("Кратность"	, "Число" , 9, 0);

	Для НомСтроки = 1 По Строк Цикл

		Р = HtmlTab.rows(НомСтроки - 1);

		Если (НомСтроки = 1) Или (Р.cells.length <> 7) Тогда // 1 - я заголовок, остальные не с данными

			Продолжить;

		КонецЕсли;

		ТабКурсов.НоваяСтрока();

		ТабКурсов.ЦифрКод	= СокрЛП(Р.cells(0).innerText);

		ТабКурсов.БуквКод	= СокрЛП(Р.cells(1).innerText);

		ТабКурсов.Название	= СокрЛП(Р.cells(3).innerText);

		ТабКурсов.Курс		= 0 + СтрЗаменить(СокрЛП(Р.cells(4).innerText), " ", "");

		ТабКурсов.Кратность	= 0 + СтрЗаменить(СокрЛП(Р.cells(2).innerText), " ", "");

	КонецЦикла;

	Reader = 0;

	ТабКурсов.ВыбратьСтроку(, "Курсы за " + ДатаКурса);

	Возврат ТабКурсов;

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

 Функция ПреобразоватьТекстИзХТМЛФорматаВПростой(ТекстВФорматеХТМЛ) Экспорт

	Попытка

		НовыйHTMLДокумент = Новый COMОбъект("HtmlFile");

		НовыйHTMLДокумент.open("text/html");

		НовыйHTMLДокумент.write(ТекстВФорматеХТМЛ);

		НовыйHTMLДокумент.close();

		

		Возврат СтрЗаменить(НовыйHTMLДокумент.all.item(0).innerText, Символ(13), "");

	Исключение	

		Построитель = Новый ПостроительDOM;

		ЧтениеHTML = Новый ЧтениеHTML;

		ЧтениеHTML.УстановитьСтроку(ТекстВФорматеХТМЛ);

		ДокументHTML = Построитель.Прочитать(ЧтениеHTML);

		

		Возврат СокрЛП(ДокументHTML.Тело.ТекстовоеСодержимое);

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

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

 // Процедура изменяет признак формат текста письма (Текст, HТМЛ),

// и при этом конвертирует сам текст.

//

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

//  ЭУHTML,ЭУТекст - Элементы управления формы, соответственно поле HTML и поле Текст

//  Кнопка - выбранная кнопка ее текст "Простой текст" или "HTML" новый вид текста письма

//  либо текст кнопки если пометку кнопки менять не требуется, соответственно 

//  вопрос о потере форматирования задаваться не будет

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

//  Булево, признак выполнения изменения формата

//

Функция удИзменитьФорматТекста(ЭУHTML,ЭУТекст, Кнопка) Экспорт

    Если ТипЗнч(Кнопка) = Тип("Строка") Тогда

        НовыйВидТекстаПисьма = Кнопка;

        ЕстьКнопка = Ложь;

    Иначе

        Если Кнопка.Пометка Тогда 

            Возврат Ложь; 

        КонецЕсли;

        НовыйВидТекстаПисьма = Кнопка.Текст;        

        ЕстьКнопка = Истина;

    КонецЕсли;     

        

    Если Найти(НовыйВидТекстаПисьма,"Простой текст") > 0 Тогда          

        ИсходныйТекст = ЭУHTML.ПолучитьТекст();

        НачалоBODY = Найти(ИсходныйТекст, "<BODY>");

        КонецBODY  = Найти(ИсходныйТекст, "</BODY>");

        Если ЕстьКнопка и (НачалоBODY > 0 И КонецBODY > 0 И (НачалоBODY + 6) < КонецBODY) Тогда

            СтрокаВопроса = "Будет потеряно форматирование текста. Продолжить?";

            ОтветНаВопрос = Вопрос(СтрокаВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Нет);

            Если ОтветНаВопрос <> КодВозвратаДиалога.Да Тогда                

                Возврат Ложь;

            КонецЕсли;

        КонецЕсли;

        ФорматТекста = ЭУHTML.Документ.all.item(0).innerText;             

        ЭУТекст.Значение =  СтрЗаменить(ФорматТекста, Символ(13), "");

        ЭУТекст.Видимость = Истина;

        ЭУHTML.Видимость = Ложь;

        ЭУHTML.УстановитьТекст("");                        

    Иначе

        ФорматХТМЛ = СтрЗаменить(ЭУТекст.Значение, Символы.ПС, "<BR>");

    

        ЭУHTML.УстановитьТекст(ФорматХТМЛ);

        ЭУHTML.Видимость = Истина;

        ЭУТекст.Видимость = Ложь;

    КонецЕсли; 

    

    Если ЕстьКнопка Тогда

        Кнопка.Пометка = Истина;         

    КонецЕсли;   

    Возврат Истина;                     





КонецФункции // обИзменитьФорматТекста()   

 Функция ПолучитьТаблицуДанных(Строка)

	

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

	Сервер = "site.ru";

	

	Соединение = Новый HTTPСоединение(Сервер);			

	Заголовки = Новый Соответствие;

	Заголовки.Вставить("host", Сервер);

	ТекАдрес = СтрЗаменить(Строка.Наименование.УРЛСтраницы,"http://","");

	ТекАдрес = СтрЗаменить(ТекАдрес,Сервер,"");

	Запрос = Новый HTTPЗапрос(ТекАдрес, Заголовки);

	Ответ =Соединение.Получить(Запрос);

	Если Ответ.КодСостояния = 200 Тогда // Данные получены, обрабатываем их

		Содержимое= Ответ.ПолучитьТелоКакСтроку();

		//Выведем тест полученной страницы

		НачалоБлока = "<table id=" + """" + "table-price" + """" + " cellspacing=" + """" + "0" + """" + " border=" + """" + "1" + """" + " bordercolor=" + """" + "#dedede" + """" + " class=" + """" + "tablesorter" + """" + " >";

		//НачалоБлока = "<div class=" + """" + "w100fl" + """" + " id=" + """" + "kurs" + """" + ">";

		КонецБлока = "</table>";

		ТекстБлока = Сред(Содержимое, Найти(Содержимое, НачалоБлока) + СтрДлина(НачалоБлока), Найти(Содержимое, КонецБлока) - Найти(Содержимое, НачалоБлока) - СтрДлина(НачалоБлока));

		    				

		//Обработаем тест  				

		обрТекст = СтрЗаменить(ТекстБлока,"<tr>","");

		обрТекст = СтрЗаменить(обрТекст,"</tr>",Символы.ПС);

		обрТекст = СтрЗаменить(обрТекст," >", ">");

		обрТекст = СтрЗаменить(обрТекст,"</th> <th>", " | ");

		обрТекст = СтрЗаменить(обрТекст,"</td> <td>", " | ");

	   	обрТекст = СтрЗаменить(обрТекст,"</th> <th class=" + """" + "sortable_header" + """" + ">", " | ");

		обрТекст = СтрЗаменить(обрТекст,"</th> <th >", " | ");

		обрТекст = СтрЗаменить(обрТекст,"</th><th>", " | ");

		обрТекст = СтрЗаменить(обрТекст,"</td><td>", " | ");

		обрТекст = СтрЗаменить(обрТекст," >", ">");

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

		RegExp.IgnoreCase = Ложь; 

		RegExp.Global = Истина;    

		RegExp.MultiLine = Истина;    

		

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

		обрТекст=RegExp.Replace(обрТекст, "");

		//Сообщить(обрТекст);

		

		Если СокрЛП(обрТекст) = "Ни одной позиции не найдено." Тогда

			Сообщить(Строка(Строка.Наименование)+ " = Ни одной позиции не найдено! Строка " + Строка.Наименование);

			Возврат тзДанных;

		КонецЕсли;





		Если Найти(обрТекст, "Страница не найдена") > 0 Тогда

			Сообщить(Строка(ТекАдрес)+" = Страница не найдена, строка " + Строка.Наименование);

			Возврат тзДанных;  

		КонецЕсли;

		

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

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

			СтрТекста=СтрПолучитьСтроку(обрТекст,н);

			Если Найти(СтрТекста, "Длина Цена") > 0 Тогда

				СтрТекста = СтрЗаменить(СтрТекста, "Длина Цена", "Длина | Цена");

			КонецЕсли;

			Если Найти(СтрТекста, "Марка стали Цена") > 0 Тогда

				СтрТекста = СтрЗаменить(СтрТекста, "Марка стали Цена", "Марка стали | Цена");

			КонецЕсли;

			Если Найти(СтрТекста, ",  Поставщик") > 0 Тогда

				СтрТекста = СтрЗаменить(СтрТекста, ",  Поставщик", " | Поставщик");

			КонецЕсли;

			//Выводим текст страницы построчно

			мсДанных = ПолучитьМассивИзСтрокиСРазделителем(СтрТекста, "|", Истина);

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

				Для Каждого ткЗнач из мсДанных Цикл

					СтрЗапрещСимволов = " .,<>""\/-";

					ИмяКолонки = ткЗнач;

					Для сч33 = 1 по СтрДлина(СтрЗапрещСимволов) Цикл

						ЗапрещСимв = Сред(СтрЗапрещСимволов, сч33, 1);

						ИмяКолонки = СтрЗаменить(ИмяКолонки, ЗапрещСимв, "_");

					КонецЦикла;

					

					// добавим нужное количество колонок- если перед колонкой Поставщик не хватает

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

					Если НРег(ИмяКолонки) = "поставщик" Тогда

						Для Сч_дк = (Строка.Наименование.Родитель.Поставшик - 2) по тзДанных.Колонки.Количество() Цикл

							тзДанных.Колонки.Добавить("Колонка_" + (тзДанных.Колонки.Количество() + 1));

						КонецЦикла;

					КонецЕсли;

					

					тзДанных.Колонки.Добавить(ИмяКолонки);

				КонецЦикла;

				тзДанных.Колонки.Добавить("ном", , , 7);

			Иначе 

				НовСтр = тзДанных.Добавить(); нмас=0;

				Для Каждого ткЗнач из мсДанных Цикл

					НовСтр[нмас] = ткЗнач;

					нмас=нмас+1;

				КонецЦикла;

				НовСтр.ном = н;

			КонецЕсли;

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

		КонецЦикла;

		тзДанных.Колонки.Добавить("ЕстьСоответствие", Новый ОписаниеТипов("Булево"));

		тзДанных.Колонки.Добавить("СпрPr_Поставщики", Новый ОписаниеТипов("СправочникСсылка.Pr_Поставщики"));

		

		Для каждого стр из тзДанных Цикл

			текПоставщик = Справочники.Pr_Поставщики.НайтиПоНаименованию(стр[Строка.Наименование.родитель.Поставшик-1]);

			Если текПоставщик = Справочники.Pr_Поставщики.ПустаяСсылка() Тогда

				НовЭлем = Справочники.Pr_Поставщики.СоздатьЭлемент();

				НовЭлем.Наименование = СокрЛП(стр[Строка.Наименование.родитель.Поставшик-1]);

				НовЭлем.Записать();

				текПоставщик = НовЭлем.Ссылка;

			КонецЕсли;

			стр.СпрPr_Поставщики = текПоставщик;

		КонецЦикла;

	Иначе

		тзДанных.Колонки.Добавить("ЕстьСоответствие", Новый ОписаниеТипов("Булево"));

		тзДанных.Колонки.Добавить("СпрPr_Поставщики", Новый ОписаниеТипов("СправочникСсылка.Pr_Поставщики"));

		

		Сообщить("Ошибка получения данных для строки " + Строка.Наименование);

	КонецЕсли;

	

	Возврат тзДанных;

	

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

 // Функция разбивает строку разделителем.

// 

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

//  пСтрока      - Строка - которую разбиваем;

//  *пРазделитель - Строка, "." - символ-разделитель;

//  *ОбрезатьНепечатныеСимволы - Булево, *Ложь.

//

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

//  Массив - фрагментов.

//

Функция ПолучитьМассивИзСтрокиСРазделителем(Знач Стр, Разделитель = ".", ОбрезатьНепечатныеСимволы = Ложь) Экспорт

	

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

	

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

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

		Пока 1=1 Цикл

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

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

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

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

			КонецЕсли;

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

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

		КонецЦикла;

	Иначе

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

		Пока 1=1 Цикл

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

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

				Фрагмент = Стр;

				Если ОбрезатьНепечатныеСимволы Тогда

					Фрагмент = СокрЛП(Фрагмент);

				КонецЕсли;

				МассивСтрок.Добавить(Фрагмент);

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

			КонецЕсли;

			Фрагмент = Лев(Стр,Поз-1);

			Если ОбрезатьНепечатныеСимволы Тогда

				Фрагмент = СокрЛП(Фрагмент);

			КонецЕсли;

			МассивСтрок.Добавить(Фрагмент);

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

		КонецЦикла;

	КонецЕсли;





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

		

КонецФункции // ПолучитьМассивИзСтрокиСРазделителем()   

 Соединение = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");

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



Соединение.open("GET", "http://mamba.ru/my", 0);

Соединение.send();



//status: //404 - Not Found //200 - Ok

ТаймАут = 200;

Начало=ТекущаяДата();

Пока Соединение.readyState <> 4 И (ТаймАут=0 ИЛИ ТекущаяДата()-Начало<ТаймАут) Цикл

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

КонецЦикла;



//Сохраняем во временный файл

обСохранитьДвоичныйБуферВФайл(Соединение.responseBody, ИмяВременногоФайла);



Соединение.open("POST", "http://mamba.ru/my");

Соединение.send("login=xxx&password=&&&");





Функция обСохранитьДвоичныйБуферВФайл(Буфер, ИмяФайла) Экспорт

    Поток = Новый COMОбъект("ADODB.Stream");

    Поток.Type = 1;  //Бинарный

       Поток.Mode = 3; 

    Поток.Open();

    Поток.Write(Буфер);

    Поток.SaveToFile(ИмяФайла);

    Поток.Close();

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

     НТТР = ПолучитьCOMОбъект("","Microsoft.XMLHTTP");

    ИмяФайлаОтвета = КаталогВременныхФайлов() + "filename.tmp";           

    НТТР.open("GET", "www.google.com",0,,); 

    НТТР.send();

    StreamTypeEnum = Новый Структура("adTypeBinary, adTypeText", 1, 2);

    ConnectModeEnum = Новый Структура(

            "adModeRead, adModeReadWrite, adModeRecursive, adModeShareDenyNone,

            |adModeShareDenyRead, adModeShareDenyWrite, adModeShareExclusive, 

            |adModeUnknown, adModeWrite", 1, 3, 4194304, 16, 4, 8, 12, 0, 2);

    SaveOptionsEnum = Новый Структура("adSaveCreateNotExist, adSaveCreateOverWrite", 1, 2);

    StreamOut = Новый COMОбъект("ADODB.Stream");

    StreamOut.Type = StreamTypeEnum.adTypeBinary;

    StreamOut.Mode = ConnectModeEnum.adModeReadWrite; //Нужны и чтение и запись   

    StreamOut.Open(); //Открыли на чтение и запись

    StreamOut.Write(НТТР.responseBody); 

    StreamOut.SaveToFile(ИмяФайлаОтвета, SaveOptionsEnum.adSaveCreateOverWrite); //"2" - перезапись файла

    StreamOut.Close();   

 USE MyInfoBase --Имя БД





DECLARE @tbl TABLE (

name nvarchar(128),

[rows] char(11),

reserved varchar(18),

data varchar(18),

index_size varchar(18),

unused varchar(18)

)





DECLARE @name sysname





DECLARE CUR CURSOR FOR SELECT name FROM sys.tables

OPEN CUR

FETCH NEXT FROM CUR INTO @name

WHILE @@FETCH_STATUS = 0 BEGIN

INSERT @tbl EXEC sp_spaceused @name

FETCH NEXT FROM CUR INTO @name

END

CLOSE CUR 

DEALLOCATE CUR





SELECT

name,

[rows],

reserved,

data,

index_size,

unused,

reserved_kb

FROM

(SELECT  

name,

[rows],

reserved,

data,

index_size,

unused,

CONVERT(bigint, REPLACE(reserved, ' KB', '')) AS reserved_kb

FROM @tbl

) Q

ORDER BY

reserved_kb DESC

COMPUTE SUM(reserved_kb)

   

 

&НаКлиенте

Функция ИмяПринтераRDP(ИмяПринтера) 

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

	Task = Shell.Exec("query session");

	РезультатЗапроса = Task.StdOut.ReadAll();

	РезультатЗапроса = Декодер(РезультатЗапроса, "windows-1251", "cp866");

        Task.Terminate();

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

	

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

	ПользовательОС = Network.UserName();

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

	

        НомерСеанса = RegExpGetFirstMatch("rdp-tcp\S+\s+" + ПользовательОС + "\s+(\d+)", РезультатЗапроса);

	

	Возврат ИмяПринтера + " (перенаправлено " + НомерСеанса + ")";

	

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





Функция Декодер(Стр, Вход, Выход)

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

	Stream.Type = 2;

	Stream.Mode = 3;

	Stream.Charset = Вход;

	Stream.Open();

	Stream.WriteText(Стр);

	Stream.Position = 0;

	Stream.Charset = Выход;

	Результат = Stream.ReadText(-1);

	Stream.Close();

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

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



Функция RegExpGetFirstMatch(Маска, Строка, МногострочныйРежим = Истина, ГлобальныйПоиск = Истина, БезУчетаРегистра = Истина) 

	

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

	

	// Параметры

	RegExp.Multiline = МногострочныйРежим; 

	RegExp.Global = ГлобальныйПоиск;

	RegExp.IgnoreCase = БезУчетаРегистра;	

	RegExp.Pattern = Маска;	

	

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

	

	Если Matches.Count = 1 тогда

		Возврат Matches.Item(0).SubMatches.Item(0);



	Иначе

		Возврат Неопределено;

			

	КонецЕсли;

		

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



   

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

 Процедура Пример(ИмяФайла)



    // Перечисления из библиотеки ADO

    StreamTypeEnum = Новый Структура("adTypeBinary, adTypeText", 1, 2);

    ConnectModeEnum = Новый Структура(

        "adModeRead, adModeReadWrite, adModeRecursive, adModeShareDenyNone,

        |adModeShareDenyRead, adModeShareDenyWrite, adModeShareExclusive, 

        |adModeUnknown, adModeWrite", 1, 3, 4194304, 16, 4, 8, 12, 0, 2);

    SaveOptionsEnum = Новый Структура("adSaveCreateNotExist, adSaveCreateOverWrite", 1, 2);

    

    StreamIn = Новый COMОбъект("ADODB.Stream"); //Для создания этого объекта требуется MDAC 2.5 и выше

    StreamIn.Type = StreamTypeEnum.adTypeBinary;

    

    StreamIn.Open(); //По умолчанию открывается на чтение

    StreamIn.LoadFromFile(ИмяФайла); //Очевидно, что для больших файлов так поступать нехорошо.

    Data = StreamIn.Read(); //у переменной Data тип COMSafeArray, это массив байтов

    StreamIn.Close(); //Больше нам этот поток не нужен - закрываем.

    

    //Конечно, манипуляция в памяти приемлима только для небольших файлов!

    СодержимоеМассив = Data.Выгрузить();

    

    //...

    //...

    //тут можно по-всякому поиздеваться над массивом

    //...

    //...

    

    //Запихиваем массив 1С в COMSafeArray. VT_UI1 - обозначение однобайтного беззнакового целого.

    Data = Новый COMSafeArray(СодержимоеМассив, "VT_UI1", СодержимоеМассив.Количество());

    

    StreamOut = Новый COMОбъект("ADODB.Stream");

    StreamOut.Type = StreamTypeEnum.adTypeBinary;

    StreamOut.Mode = ConnectModeEnum.adModeReadWrite; //Нужны и чтение и запись.

    

    StreamOut.Open(); //Открыли на чтение и запись

    StreamOut.Write(Data); 

    StreamOut.SaveToFile(ИмяФайла, SaveOptionsEnum.adSaveCreateOverWrite); //"2" - перезапись файла

    StreamOut.Close();



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

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

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

 Массив64 = Преобразовать64(Строка64 , );   

 Строка64 = Преобразовать64( , Массив64 );   

  //Автор: Гобсек

&НаСервере

Функция Преобразовать64(Строка64 = неопределено, Массив64 = неопределено)

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

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

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

 Нпп = 0;

 Для Код = КодСимвола("A") По КодСимвола("Z") Цикл

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

  стр.Код = Нпп;

  стр.Символ = Символ(Код);

  Нпп = Нпп + 1;

 КонецЦикла;

 Для Код = КодСимвола("a") По КодСимвола("z") Цикл

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

  стр.Код = Нпп;

  стр.Символ = Символ(Код);

  Нпп = Нпп + 1;

 КонецЦикла;

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

 стр.Код = Нпп;

 стр.Символ = "0";

 Нпп = Нпп + 1;

 Для Код = 1 По 9 Цикл

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

  стр.Код = Нпп;

  стр.Символ = Формат(Код,"ЧЦ=1; ЧДЦ=0");

  Нпп = Нпп + 1;

 КонецЦикла;

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

 стр.Код = Нпп;

 стр.Символ = "+";

 Нпп = Нпп + 1;

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

 стр.Код = Нпп;

 стр.Символ = "/";

 

 Если Массив64 = неопределено Тогда 

  Если Строка64 = неопределено Тогда

   Сообщить("неверный вызов функции");

   Возврат неопределено;

  КонецЕсли;

  //Уберем переносы строк

  Строка64 = СтрЗаменить(Строка64, Символ(10), "");

  Строка64 = СтрЗаменить(Строка64, Символ(13), "");

  

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

  Если СтрДлина(Строка64) % 4 <> 0 Тогда

   Сообщить("длина строки на входе должна быть кратна 4"); 

   Сообщить(СтрДлина(Строка64)); 

   Возврат неопределено;

  КонецЕсли;

  Кол4 = Цел(СтрДлина(Строка64) / 4);

  РазмерМ = Кол4 * 3;

  Если Прав(Строка64, 2) = "==" Тогда

   РазмерМ = РазмерМ - 2;

  ИначеЕсли Прав(Строка64, 1) = "=" Тогда

   РазмерМ = РазмерМ - 1;

  КонецЕсли;   

  Массив64 = Новый Массив(РазмерМ);

  Для А = 1 По Кол4 Цикл

   Число3 = 0;

   Для Б = 1 По 4 Цикл

    Буква1 = Сред(Строка64, (А-1)*4 + Б, 1); 

    Если Буква1 = "=" Тогда

     Код4 = 0;

    Иначе

     стрН = Таб64.Найти(Буква1, "Символ");

     Если стрН = Неопределено Тогда

      Сообщить("ошибка при поиске "+ КодСимвола(Буква1)); 

     Иначе 

      Код4 = стрН.Код;

     КонецЕсли;

    КонецЕсли;

    Число3 = Число3 * 64 + Код4;

   КонецЦикла;

   Ост = Число3 % 256;

   Индекс = (А-1)*3 + 2;

   Если Индекс <= РазмерМ - 1 Тогда

    Массив64[Индекс] = Ост;

   КонецЕсли;

   Число3 = (Число3 - Ост) / 256;

   Ост = Число3 % 256;

   Индекс = (А-1)*3 + 1;

   Если Индекс <= РазмерМ - 1 Тогда

    Массив64[Индекс] = Ост;

   КонецЕсли;

   Число3 = (Число3 - Ост) / 256;

   Ост = Число3 % 256;

   Массив64[(А-1)*3 + 0] = Ост;

  КонецЦикла;

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

 Иначе //Преобразовываем массив в строку

  Строка64 = "";

  Кол3 = Цел(Массив64.Количество() / 3);

  Если Массив64.Количество() % 3 <> 0 Тогда

   Кол3 = Кол3 + 1;

  КонецЕсли;

  Для А = 1 По Кол3 Цикл

   Число3 = Массив64[(А-1)*3]; 

   Если (А-1)*3+1 <= Массив64.ВГраница() Тогда

    Код3 = Массив64[(А-1)*3+1];

   Иначе

    Код3 = 0;

   КонецЕсли;

   Число3 = Число3*256 + Код3;

   Если (А-1)*3+2 <= Массив64.ВГраница() Тогда

    Код3 = Массив64[(А-1)*3+2];

   Иначе

    Код3 = 0;

   КонецЕсли;

   Число3 = Число3*256 + Код3;

   

   Ост4 = Число3 % 64;

   Число3 = (Число3 - Ост4) / 64;

   Ост3 = Число3 % 64;

   Число3 = (Число3 - Ост3) / 64;

   Ост2 = Число3 % 64;

   Число3 = (Число3 - Ост2) / 64;

   Ост1 = Число3 % 64;

   Число3 = (Число3 - Ост1) / 64;

   стрН = Таб64.Найти(Ост1, "Код");

   Если стрН = неопределено Тогда

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

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост2, "Код");

   Если стрН = неопределено Тогда

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

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост3, "Код");

   Если стрН = неопределено Тогда

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

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

   стрН = Таб64.Найти(Ост4, "Код");

   Если стрН = неопределено Тогда

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

   Иначе

    Строка64 = Строка64 + стрН.Символ;

   КонецЕсли;

  КонецЦикла;

  //Если количество символов не делится на 3, то на конце должны быть

  //знаки "="

  Если Массив64.Количество() % 3 = 1 Тогда

   Строка64 = Лев(Строка64, СтрДлина(Строка64)-2)+ "=="; 

  ИначеЕсли Массив64.Количество() % 3 = 2 Тогда

   Строка64 = Лев(Строка64, СтрДлина(Строка64)-1)+ "="; 

  КонецЕсли;

  Возврат Строка64;

 КонецЕсли;

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

   ЭлементыФормы.Сайт.Перейти("http://www.svyaznoy.ru/catalog/phone/224"); //Категория с мобильными телефонами   

        Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.tagName = "H1" и Стр.innerText = "Производители" Тогда

                  Для Каждого опСтр из Стр.nextSibling.children Цикл

                      новСтр = Производители.Добавить();

                      новСтр.Наименование = опСтр.innerText;

                      новСтр.Ссылка = опСтр.firstChild.href;

                  КонецЦикла;

                  Возврат;

              КонецЕсли;

          КонецЦикла;   

       Для Каждого Стр из Производители Цикл

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

          Если Не Стр.Отметка Тогда

              Продолжить;

          КонецЕсли;

          Форма = ПолучитьФорму("ФормаТоваров");

          Форма.ЭлементыФормы.Сайт.Перейти(Стр.Ссылка);

          Форма.ТекущийПроизводитель = Стр;

          Форма.ОткрытьМодально();

      КонецЦикла;   

  Если ЭлементыФормы.Сайт.Документ.body.all.length>1 Тогда

          ГрузимТовары();

      КонецЕсли;   

       Процедура ГрузимТовары()

          Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.className = "ct_desc cleared" Тогда

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

                  Для Каждого опСтр из Стр.children Цикл

                      Если опСтр.className = "pic_and_comp" Тогда

                          новСтр.Картинка = СтрЗаменить(Сред(опСтр.firstChild.style.backgroundImage,5),")","")

                      КонецЕсли;

                      Если опСтр.className = "name" Тогда

                          новСтр.Наименование = опСтр.innerText;

                          новСтр.Ссылка = опСтр.firstChild.href;

                      КонецЕсли;

                      Если опСтр.className = "price" Тогда

                          новСтр.Цена = Число(СтрЗаменить(СтрЗаменить(опСтр.innerText,"-","")," ",""));

                      КонецЕсли;

                      Если опСтр.className = "desc" Тогда

                          новСтр.Описание = опСтр.innerText;//опСтр.innerHTML - если нужно вместе с тегами 



                      КонецЕсли;

                  КонецЦикла;



              КонецЕсли;



          КонецЦикла;

          Закрыть();

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

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

          Форма = ПолучитьФорму("ФормаДопИнфо");

          Форма.ЭлементыФормы.Сайт.Перейти(Стр.Ссылка);

          Форма.ТекущийТовар = Стр;

          Форма.ОткрытьМодально();

      КонецЦикла;   

   Если ЭлементыФормы.Сайт.Документ.body.all.length>1 Тогда

          ГрузимДопИнфо();

      КонецЕсли;   

       Процедура ГрузимДопИнфо();

          Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.className = "card_spec" Тогда

                  Для Каждого опСтр из Стр.children Цикл

                      Если Найти(опСтр.innerText,"Операционная система:") Тогда

                          ТекущийТовар.ОС = СокрЛП(СтрЗаменить(опСтр.innerText,"Операционная система:",""));

                      КонецЕсли;

                  КонецЦикла;

              КонецЕсли;

          КонецЦикла;

          Закрыть();

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

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

              путьСамФайл = Лев(Стр.Картинка,Найти(Стр.Картинка,".jpg/") + 3);

              самФайл = СтрЗаменить(СтрЗаменить(ПутьСамФайл,"http://static.svyaznoy.ru/upload/iblock/",""),"/","");

              Стр.Картинка = СохранитьКартинкуСайта("C:\Svyaznoy",ПутьСамФайл,СамФайл);

          КонецЦикла;   

       Функция СохранитьКартинкуСайта(КаталогСохранения,КартинкаНаСайте,КартинкаУНас)

              ИмяФайлаКартинки = КаталогСохранения + "\" + КартинкаУНас;

              ГетЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

              ГетЗапрос.SetTimeouts(10000, 10000, 10000, 10000);

              БазовыйУРЛ = КартинкаНаСайте;

              Хидер1 = "Content-Type";

              Хидер2 = "image/jpg"; // Тип рисунка.

              ГетЗапрос.Open("GET", БазовыйУРЛ, False); // Синхронный режим.

              ГетЗапрос.setRequestHeader(Хидер1, Хидер2);

              ГетЗапрос.Send();

              СтатусОтправки = ГетЗапрос.status;

              Если СтатусОтправки <> 200 Тогда

                  Сообщить("Ошибка отправки запроса на: "

                      + КартинкаНаСайте);

                  Возврат "";

              КонецЕсли;        



              Стрим = Новый COMОбъект("ADODB.Stream");

              Стрим.Mode = 3;

              Стрим.Type = 1;

              Стрим.Open();

              Стрим.Write(ГетЗапрос.responseBody);



              Стрим.SaveToFile(ИмяФайлаКартинки, 2);

              Стрим.Close();

              Возврат ИмяФайлаКартинки;

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

  ТабДокумент  = Новый ТабличныйДокумент;

    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Справка";



    АктивныйДокумент = ПолучитьМакет("Макет");

    КомОбъект = АктивныйДокумент.Получить();



    Попытка



        Word = КомОбъект.Application;

        Док=Word.Documents(1);

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

        Док.GrammarChecked=0;

        Док.ShowGrammaticalErrors=0;



        Док.Activate();

        Файл = КаталогВременныхФайлов() + "файл" + Выборка.Номер + ".doc";

        Word.S_election.WholeStory();

        Word.S_election.Copy();



        Счетчик = 1;

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



            Замена = Док.Content.Find;

            НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(СсылкаНаОбъект);

            Замена.Execute("[Номер]",  Ложь, Истина, Ложь, , , Истина, , Ложь, НомерДокумента);

            Замена = Док.Content.Find;

            Замена.Execute("[Дата]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Формат(Выборка.Дата, "ДЛФ = ДДММГГ"));

            Замена = Док.Content.Find;

            Замена.Execute("[Наименование]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(Строка.Номенклатура));

            Замена = Док.Content.Find;

            Замена.Execute("[Количество]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(Строка.Количество));

            Замена = Док.Content.Find;

            Замена.Execute("[Декларация]", Ложь, Истина, Ложь, , , Истина, , Ложь, РегНомерДекларации);

            Замена = Док.Content.Find;

            СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Выборка.Организация, Выборка.Дата,,);

            ФактАдрес = ФормированиеПечатныхФормСервер.ОписаниеОрганизации(СведенияОПоставщике, "ФактическийАдрес");

            Производитель = Выборка.ОрганизацияНаименованиеСокращенное + ", " + Выборка.ФактАдресОрганизации;

            Замена.Execute("[Производитель]",  Ложь, Истина, Ложь, , , Истина, , Ложь, Производитель);



            Word.S_election.EndKey(6);



            Если Счетчик < СсылкаНаОбъект.Товары.Количество() тогда

                Word.S_election.I_nsertBreak(7);

                Word.S_election.Paste();

            КонецЕсли;

            Счетчик = Счетчик + 1;

        КонецЦикла;



        Док.SaveAs(Файл);

        Док.Close(0);



        ЗапуститьПриложение("""" + Файл + """");



    Исключение

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

        Word.Quit();

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

 ПроверимСоединение = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + " ""close"" ""exit""";

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

net.Run(ПроверимСоединение, 0, Истина);   

 СтрокаСинхронизация = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """synchronize both " + КаталогНаСервере1С + " " + КаталогНаSFTPСервере  + """ " + """ close"" ""exit""";

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

net.Run(СтрокаСинхронизация, 0, Истина);   

 СтрокаСинхронизация = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """synchronize both " + КаталогНаСервере1С + " " + КаталогНаSFTPСервере  + """ " + """ close"" ""exit""";

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

net.Run(СтрокаСинхронизация, 0, Истина);   

 СтрокаПрограммы = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort""    " + """open " + ПрофильWinSCP + """ " + """get "  + КаталогНаSFTPСервере + "/" + ИмяФайлаСтр + " " + КаталогНаСервере1С + "\" + """ " + """close"" ""exit"";

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

net.Run(СтрокаПрограммы, 0, Истина);   

 СтрокаПрограммы = "cmd.exe /c """"" + ПутьWinSCP + """ /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """ls " + КаталогНаSFTPСервере + """""" + """ " + """ close""" + " > FMfiles.txt 2>&1" + """ " + """ exit""";

ЗапуститьПриложение(СтрокаПрограммы, ПутьКЛогам, Истина, КодВозврата);   

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

                //какой-то код

 

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



Процедура FWДокументСформирован(Элемент)

                FWDoc = ЭтаФорма.ЭлементыФормы.FW.Документ;

                Если FWDoc.URLUnencoded= "file:///E:/index.html" Тогда

 

                 inMsg = FWDoc.all.inMessage;

                 outMsg = FWDoc.all.outMessage;

                 outMsg.onchange = outMsgChange;  

                КонецЕсли;

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