Собственно код:
Функция РазборСтроки(знач Стр, Разделитель) Экспорт МассивЗначений = Новый Массив; Символ = Найти(Стр, Разделитель); Пока Символ > 0 Цикл МассивЗначений.Добавить(Лев(Стр, Символ - 1)); Стр = Прав(Стр, СтрДлина(Стр) - Символ); Символ = Найти(Стр, Разделитель); КонецЦикла; МассивЗначений.Добавить(Стр); Возврат МассивЗначений; КонецФункции Функция ПроверитьПодпискуИТС(НомерДляПроверкиРегистрации) URL = "1c.ru"; URLПроверки = "/rus/support/its/js-check-subscribe.jsp?rn="+НомерДляПроверкиРегистрации; Коннект = Новый HTTPСоединение(URL); ЧтениеТекста = Новый ТекстовыйДокумент; СтруктураПараметров = Новый Структура; ИмяВременногоФайла=ПолучитьИмяВременногоФайла("txt"); Коннект.Получить(URLПроверки,ИмяВременногоФайла); ЧтениеТекста.Прочитать(ИмяВременногоФайла); Для НомерСтроки=1 по ЧтениеТекста.КоличествоСтрок() Цикл Стр = ЧтениеТекста.ПолучитьСтроку(НомерСтроки); Если Найти(Стр,"ajaxCheck")>0 Тогда Стр = СтрЗаменить(Стр,"ajaxCheck",""); Стр = СтрЗаменить(Стр,"(",""); Стр = СтрЗаменить(Стр,")",""); МассивСтроки = РазборСтроки(Стр,","); СтруктураПараметров.Вставить("РегНомер",МассивСтроки[0]); СтруктураПараметров.Вставить("ПодпискаАктивна",МассивСтроки[1]); СтруктураПараметров.Вставить("ТребуетсяПодписка",МассивСтроки[2]); КонецЕсли; КонецЦикла; Возврат СтруктураПараметров; КонецФункции Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка) ДанныеОПодписке = ПроверитьПодпискуИТС("1234567"); Сообщить(ДанныеОПодписке.РегНомер); Сообщить(ДанныеОПодписке.ПодпискаАктивна); Сообщить(ДанныеОПодписке.ТребуетсяПодписка); КонецПроцедуры
Как и обещал, выкладываю обработку.
Вступайте в нашу телеграмм-группу Инфостарт
