ФормДок = Новый ФорматированныйДокумент;

	Вложения = Новый Структура;

	ФормДок.УстановитьHTML(ТестСтраницы, Вложения);

	Вложения = Неопределено;

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

	ФормДок = Неопределено;

   

 // Очищает текст в формате HTML от тегов и возвращает неформатированный текст. 

Функция ИзвлечьТекстИзHTML(Знач ИсходныйТекст) Экспорт

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

	

	Текст = НРег(ИсходныйТекст);

	

	// отрезаем всё что не body

	Позиция = Найти(Текст, "<body");

	Если Позиция > 0 Тогда

		Текст = Сред(Текст, Позиция + 5);

		ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 5);

		Позиция = Найти(Текст, ">");

		Если Позиция > 0 Тогда

			Текст = Сред(Текст, Позиция + 1);

			ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 1);

		КонецЕсли;

	КонецЕсли;

	

	Позиция = Найти(Текст, "</body>");

	Если Позиция > 0 Тогда

		Текст = Лев(Текст, Позиция - 1);

		ИсходныйТекст = Лев(ИсходныйТекст, Позиция - 1);

	КонецЕсли;

	

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

	Позиция = Найти(Текст, "<script");

	Пока Позиция  > 0 Цикл

		ПозицияЗакрывающегоТега = Найти(Текст, "</script>");

		Текст = Лев(Текст, Позиция - 1) + Сред(Текст, ПозицияЗакрывающегоТега + 9);

		ИсходныйТекст = Лев(ИсходныйТекст, Позиция - 1) + Сред(ИсходныйТекст, ПозицияЗакрывающегоТега + 9);

		Позиция = Найти(Текст, "<script");

	КонецЦикла;

	

	// вырезаем все теги	

	Позиция = Найти(Текст, "<");

	Пока Позиция > 0 Цикл

		Результат = Результат + Лев(ИсходныйТекст, Позиция-1);

		Текст = Сред(Текст, Позиция + 1);

		ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 1);

		Позиция = Найти(Текст, ">");

		Если Позиция > 0 Тогда

			Текст = Сред(Текст, Позиция + 1);

			ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 1);

		КонецЕсли;

		Позиция = Найти(Текст, "<");

	КонецЦикла;

	Результат = Результат + ИсходныйТекст;

	

	Возврат СокрЛП(Результат);

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

   ЭлементыФормы.Сайт.Перейти("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();

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

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

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

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

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

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

    

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

    стр=RegExp.Replace(стр, ""); //Заменяем все теги на пустоту