1.
sergey svetlakov
13
27.09.18 11:23
Сейчас в теме
Так сильно короче можно получить массив с ответом json
НовСтрока = "";
ПравильныеСимволы = ":,1234567890QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnmЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю";
Для Сч = 1 по СтрДлина(ХТТП.ResponseText) Цикл
ТекСимв = Сред(ХТТП.ResponseText, Сч, 1);
Если Найти(ПравильныеСимволы, ТекСимв) > 0 Тогда
НовСтрока = НовСтрока + ТекСимв;
КонецЕсли;
КонецЦикла;
Сообщить(НовСтрока);
Массив = Новый Массив;
МнСтр=СтрЗаменить(Сред(НовСтрока,8),",",Символы.ПС);
Для н=1 По СтрЧислоСтрок(МнСтр) Цикл
Массив.Добавить(СтрПолучитьСтроку(МнСтр,н));
КонецЦикла;
Для Индекс = 0 По ТаблицаДанных.Количество() - 1 Цикл
НашаСтрока = СокрЛП(ТаблицаДанных[Индекс]);
ПозицияСлеша = Найти(НашаСтрока,":");
ТаблицаДанных[Индекс] = Сред(НашаСтрока,ПозицияСлеша+1,СтрДлина(НашаСтрока));
КонецЦикла;