Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

Платформа 1С v8.x (все механизмы)
0. GAMLET 46 14.12.16 11:11 Сейчас в теме

Статистика аккаунтов Instagram

Конфигурация для сбора статистики по Instagram аккаунтам

Перейти к публикации

+ – Ответить
Комментарии
Избранное Подписка Сортировка: Древо
1. Akuji 15 19.04.18 21:06 Сейчас в теме
что то не хочет обновлять нынче(
{ОбщийМодуль.ПроцедурыРаботыСИнстаграммом.Модуль(38)}: Ошибка при вызове метода контекста (ПрочитатьJSON)
Инст = ПрочитатьJSON(ЧтениеJSON);
по причине:
Недопустимое имя свойства: 'acct:ntb' для чтения JSON в объект Структура
MsDjuice; dance000; +2 – Ответить
2. MsDjuice 96 17.10.18 20:10 Сейчас в теме
Публикация актуальная? У кого работает? Скачал и ошибка {ОбщийМодуль.ПроцедурыРаботыСИнстаграммом.Модуль(17)}: Ошибка при вызове метода контекста (ПрочитатьJSON)
Инст = ПрочитатьJSON(ЧтениеJSON);
по причине:
Недопустимое имя свойства: 'acct:ntb' для чтения JSON в объект Структура
+ – Ответить
3. MsDjuice 96 18.10.18 11:55 Сейчас в теме
(2) Может кому нужно, я сделал так: 
&НаСервере
Процедура СобратьИОбновитьПоказатели(ПользовательИнстаграмма) Экспорт
	
	Результат = ПолучитьСодержимоеВебАдреса("https://www.instagram.com/" + ПользовательИнстаграмма.Наименование);
		
	Результат = Прав(Результат, СтрДлина(Результат) - Найти(Результат, "<script type=""text/javascript"">window._sharedData =")-51);
	Результат = Лев(Результат, Найти(Результат, ";</script>")-1);
	Результат = "{" + Прав(Результат, СтрДлина(Результат) - Найти(Результат, "edge_followed_by") + 2);
	СтрокаДляДж = Лев(Результат, Найти(Результат, "page_info") - 3) + "}}";
	
	ЧтениеJSON = Новый ЧтениеJSON();
	ЧтениеJSON.УстановитьСтроку(СтрокаДляДЖ);
	Инст = ПрочитатьJSON(ЧтениеJSON);
	ЧтениеJSON.Закрыть();
	
	ЗаписатьПоказателиСервер(ПользовательИнстаграмма, Инст.edge_follow.count, Инст.edge_followed_by.count, Инст.edge_owner_to_timeline_media.count)
	
КонецПроцедуры
Показать
+ – Ответить
4. djolejek 21.04.19 04:33 Сейчас в теме 
&НаСервере
Процедура СобратьИОбновитьПоказатели(ПользовательИнстаграмма) Экспорт
	
	// Тут нам нужно взять название Пользователя
	// И добавить к https://www.instagram.com/kevin/
	// в получившемся ответе будет json в котором есть все параметры
	// эти параметры записываем в 
	

	Результат = ПолучитьСодержимоеВебАдреса("https://www.instagram.com/" + ПользовательИнстаграмма.Наименование);
		
//	СтрокаДляДЖ = Сред(Результат, Найти(Результат, "<script type=""text/javascript"">window._sharedData =")+ 52);


	Результат = Прав(Результат, СтрДлина(Результат) - Найти(Результат, "<script type=""text/javascript"">window._sharedData =")-51);
	СтрокаДляДж = Лев(Результат, Найти(Результат, ",""to_cache"":")-1);
	СтрокаДляДж = СтрЗаменить(СтрокаДляДж,"acct:ntb","acct_ntb");
	//Результат = "{" + Прав(Результат, СтрДлина(Результат) - Найти(Результат, "edge_followed_by") + 2);
	//СтрокаДляДж = Лев(Результат, Найти(Результат, "page_info") - 3) + "}}";
	//СтрНачинаетсяС(СтрокаДляДж,"to_cache":);
     СтрокаДляДж = СтрокаДляДж + "};";


	ЧтениеJSON = Новый ЧтениеJSON();
	ЧтениеJSON.УстановитьСтроку(СтрокаДляДЖ);
	Инст = ПрочитатьJSON(ЧтениеJSON);
	ЧтениеJSON.Закрыть();
	
	ЗаписатьПоказателиСервер(ПользовательИнстаграмма, Инст.entry_data.ProfilePage[0].graphql.user.edge_follow.count, Инст.entry_data.ProfilePage[0].graphql.user.edge_followed_by.count, Инст.entry_data.ProfilePage[0].graphql.user.edge_owner_to_timeline_media.count);
	
КонецПроцедуры

Функция СобратьСвойстваАккаунта(Наименование) Экспорт
	
	Результат = ПолучитьСодержимоеВебАдреса("https://www.instagram.com/" + Наименование);
		
	//СтрокаДляДЖ = Сред(Результат, Найти(Результат, "<script type=""text/javascript"">window._sharedData =")+ 52);
	Результат = Прав(Результат, СтрДлина(Результат) - Найти(Результат, "<script type=""text/javascript"">window._sharedData =")-51);
	СтрокаДляДж = Лев(Результат, Найти(Результат, ",""to_cache"":")-1);
	СтрокаДляДж = СтрЗаменить(СтрокаДляДж,"acct:ntb","acct_ntb");
	//Результат = "{" + Прав(Результат, СтрДлина(Результат) - Найти(Результат, "edge_followed_by") + 2);
	//СтрокаДляДж = Лев(Результат, Найти(Результат, "page_info") - 3) + "}}";
	//СтрНачинаетсяС(СтрокаДляДж,"to_cache":);
     СтрокаДляДж = СтрокаДляДж + "};";
	
	ЧтениеJSON = Новый ЧтениеJSON();
	ЧтениеJSON.УстановитьСтроку(СтрокаДляДЖ);
	Инст = ПрочитатьJSON(ЧтениеJSON);
	ЧтениеJSON.Закрыть();
	
	
	Стр = Новый Структура();
	Стр.Вставить("Ид", Инст.entry_data.ProfilePage[0].graphql.user.id);
	Стр.Вставить("ПолноеИмя", Инст.entry_data.ProfilePage[0].graphql.user.full_name);
	Стр.Вставить("Описание",  Инст.entry_data.ProfilePage[0].graphql.user.biography);
	Стр.Вставить("Закрытый", Инст.entry_data.ProfilePage[0].graphql.user.is_private);
	Стр.Вставить("Знаменитость", Инст.entry_data.ProfilePage[0].graphql.user.is_verified);
	
	Возврат Стр;
	
КонецФункции
Показать
+ – Ответить
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.
Посоветуйте удобный тайм-трекер  5 $m Личная эффективность
скрытые "лишние" поля таблицы в MS SQL и PG в документе которых нет в конфигураторе  0.04 $m UpdateCFБП3.0v8ПрограммистВопросИсследование
Как во ВПФ поменять формат даты у строки? (скриншоты) УТ10.3  0.3 $m Dev
MSScriptControl.ScriptControl не работает под другими терминальными пользователями  1 $m Admin
Автоматические скидки в чеках игнорируют ограничения по складам (КА 2.4, УТ 11.4)  1 $m Учет
Не удалось обновить рабочую группу предмета  0.3 $m Dev
Обработка не учитывает года, куда копать?  0.01 $m Dev

Вакансии

Программист 1С
Новосибирск
зарплата от 80 000 руб. до 120 000 руб.
Полный день
Программист 1С
Краснодар
зарплата от 70 000 руб.
Полный день
Старший консультант-аналитик 1С БИТ.Финанс
Москва
зарплата от 150 000 руб. до 180 000 руб.
Полный день
Программист 1С
Санкт-Петербург
зарплата от 110 000 руб. до 150 000 руб.
Полный день
Ведущий программист 1С
Москва
зарплата от 170 000 руб. до 200 000 руб.
Полный день