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

	

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

	Сервер = "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();   

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

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



    // Перечисления из библиотеки 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;

 КонецЕсли;

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

 &НаКлиенте

Процедура ОткрытьОбработку(Команда)

	ОткрытьФорму("Обработка.ОбработкаВводБланкЗаказа.Форма");

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

 ПараметрыФормы = Новый Структура;

ПараметрыФормы.Вставить("ДокСсылка", НужнаяСсылка);



ОткрытьФорму("Обработка.ПечатьНаправления.Форма", ПараметрыФормы);   

 Параметры.ДокСсылка   

 Если Параметры.Свойство("ЛюбойПараметр") Тогда

    // ваш код

КонецЕсли   

 СсылкаНаДокумент = Параметры.ДокСсылка;