Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Владимир Л
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Загрузка большого json
 
#
07.08.2020 08:32:23
Цитата
Андрей VG написал:
Владимир Л  написал:если в tags есть что-то,
если ничего нет, то он будет пуст tags: []
 
Перейти    
Загрузка большого json
 
#
07.08.2020 08:31:15
Цитата
Андрей VG написал:
вы уверены, что если представить не валидный json
простите, у меня через Ж весь интернет работает, мог пропустить ,
Сейчас должен быть валидный.
Код
{
"data":{
    "pole1":1,
    "pole2":2,
    "records":[{
        "id":1,
        "steps":[{
            "stepNumber":1,
            "answer": "текст",
            "state": "/1/2/3/4/5",
            "FromState": "/1/2/3/4/5.1-1",
            "events":[{
                "eventType": "question",
                "question": "Вопрос клиента"
                },{
                "eventType": "answer",
                "question": "ответ"
                }],
            "tags":[{
                 "stepNumber":1,
                 "name":"question",
                 "value":"ok"
                 },{}]
            },{
            "stepNumber":2,
            "answer": "текст",
            "tags":[{
                 "stepNumber":1,
                 "name":"question",
                 "value":"err"
                 },{}]
             
            }]
     },{
        "id":2,
        "steps":[{
            "stepNumber":1,
            "answer": "текст",
            "state": "/1/2/3/4/5/6",
            "tags":[{
                 "stepNumber":1,
                 "name":"question",
                 "value":"ok"
                 },{}]
            },{
            "stepNumber":2,
            "answer": "текст",
            "tags":[{
                 "stepNumber":1,
                 "name":"question",
                 "value":"ok"
                 },{}]
             
            }]     
     }]
}
}
 
Перейти    
Загрузка большого json
 
#
07.08.2020 07:34:11
Цитата
Андрей VG написал:
вы должны представить пример
Что-то вроде этого:
Код
{
"data":{
    "pole1":1,
    "pole2":2,
    "records":[{
        "id":1,
        "steps":[{
            "stepNumber":1,
            "answer": "текст",
            "state": "/1/2/3/4/5",
            "FromState": "/1/2/3/4/5.1-1",
            "events":[{
                "eventType": "question",
                "question": "Вопрос клиента"
                },{
                "eventType": "answer",
                "question": "ответ"
                }]
            "tags":[{
                 "stepNumber":1,
                 "name":"question",
                 "value":"ok"
                 },{}]
            },{
            "stepNumber":2,
            "answer": "текст",
            "tags":[{
                 "stepNumber":1,
                 "name":"question",
                 "value":"err"
                 },{}]
            
            }]
     },{
        "id":2,
        "steps":[{
            "stepNumber":1,
            "answer": "текст",
            "state": "/1/2/3/4/5/6",
            "tags":[{
                 "stepNumber":1,
                 "name":"question",
                 "value":"ok"
                 },{}]
            },{
            "stepNumber":2,
            "answer": "текст",
            "tags":[{
                 "stepNumber":1,
                 "name":"question",
                 "value":"ok"
                 },{}]
            
            }]     
     }]
}
}

Соответственно записей records, шагов steps может быть несколько.
Нужно обойти все записи, проверить  tags, если в tags есть что-то, то вывести value, state, id, event.question, сравнить state и FromState и определить флаг совпадения  и пр. и каждый такой элемент вывести в строку.

В идеале нужно сделать инструмент для тупого пользователя, чтобы он открыл ексель, загрузил файл  json и на лист ему вывалился необходимы список.
Да, для понимания - это сессии чат-бота с клиентами, которые размечены специалистами.
Простите за код, не нашел сворачивалку +

На данный момент, как и говорил, это реализовано с помощью библиотеки, но файл в 8 Мб может обрабатывать ооооочень долго, там порядка 350000 строк.
Изменено: Владимир Л - 07.08.2020 07:58:29
 
Перейти    
Загрузка большого json
 
#
06.08.2020 07:43:50
Цитата
Андрей VG написал:
Вам кто-то запрещает выполнить трансформации, чтобы вывести нужные уровни  
Хотите сказать, что можно написать функцию ч циклом для обхода json объекта?
можно пример какой-нибудь? просто никогда не работал с этим инструментом.
 
Перейти    
Загрузка большого json
 
#
04.08.2020 13:53:28
Цитата
Игорь написал:
Тогда макрос нужно написать
так он и есть, с использованием jsonbag
 
Перейти    
Загрузка большого json
 
#
04.08.2020 13:41:27
Он берет только верхний уровень, а у меня многоуровневый json с массивами и объектами.
Мне данные нужно еще проверить по условиям и вывести на лист в определенной структуре.
 
Перейти    
Загрузка большого json
 
#
04.08.2020 12:12:46
Добрый день.
Ребята, подскажите, какие еще есть варианты обработки json в vba?
В данный момент я гружу из файлов с помощью библиотеки jsonbag. файл порядка 6-10 Мб, данные с сайта, выгруженные через консоль.
Грузится неимоверно долго, приходится срубать через Диспетчер задач.
 
Перейти    
Распарсить json или получить jaon -объект по get запросу
 
#
10.07.2019 17:24:10
Есть сайт, с которого нужно получать и обрабатывать данные, я нашел гет-запрос для получения json-объекта.
Нужно разобрать объект и распределить данные по стобцам таблицы.
Как я себе это представляю: 2 варианта;
1. запрос из vba к сайту (внутри закрытой сети) с авторизацией и пр., во вложенном файле пример есть - авторизация проходит, куки получает, а дальше "болт"
2. в браузере открыть гет запрос и текстов скопировать json-объект в текстовый файл и оттуда vba читать библмотеками, поскольку вставить в ячейку excel не получится, т.к. более 32000 символов.

Бибилиотеками пробовал - берет только 10 записей в объекте records, когда их 84 вроде. Несколько библиотек попробывал - одно и то же, 10 шт.
help!
В идеале по 1 варианту сделать.
Изменено: Владимир Л - 10.07.2019 17:36:52
 
Перейти    
Массив дат в AutoFilter
 
#
09.08.2018 12:36:43
Цитата
Владимир Л написал:
был просто массив дать, без чередования, сейчас с чередованием, но сада дата в числовом формате, попробую дату в формат 7/20/2018 привезти
Все ОК, привел к нужному виду и все ОК,т.е. массив  с чередованием 2 и дата в формате месяц\/число\/год
 
Перейти    
Массив дат в AutoFilter
 
#
09.08.2018 12:21:35
Цитата
RAN написал:
Задача передать массив дат весьма не простая, и имеет два пути решения, в зависимости от крыжа групприровать даты в автофильтре.
был просто массив дать, без чередования, сейчас с чередованием, но сада дата в числовом формате, попробую дату в формат 7/20/2018 привезти
 
Перейти    
Массив дат в AutoFilter
 
#
09.08.2018 11:29:33
Добрый день, подскажите как в AutoFilter передать массив дать.

Код
                        ws.Range("$A$1:$AP$2088").AutoFilter Field:=2, Operator:= _
                            xlFilterValues, Criteria2:=Array(2, "7/20/2018", 2, "7/21/2018", 2, "7/22/2018", 2, _
                            "7/23/2018", 2, "7/24/2018", 2, "7/25/2018", 2, "7/26/2018")
пробовал так, но ошибку выдает:
Код
ws.Range("$A$1:$AP$2088").AutoFilter Field:=2, Operator:= _
                            xlFilterValues, Criteria2:=Arr_date

при этом даты в Arr_date записаны были как 20.07.2018 и как 43301
 
Перейти    
Адрес ячейки из RefEdit
 
#
09.08.2018 07:33:18
Ругается: Method 'Range' of Object '_Global' failed

Цитата
Sanja написал:Range(Me.RefEdit1.Value).Value = "Какие-то данные"
превосходно, Спасибо
 
Перейти    
Адрес ячейки из RefEdit
 
#
09.08.2018 07:18:21
Цитата
Sanja написал:
Что значит 'получаю'?
есть на форме:
Код
Private Sub RefEdit1_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)

End Sub
соответственно RefEdit.value = 'Отчет_динамика по неделям_RB'!$AR$5 - это для того,чтобы пользователь указал ячейку, в которую помещать результат расчета.

Хочу так:  'Отчет_динамика по неделям_RB'!$AR$5.value = "какие-то данные"
Изменено: Владимир Л - 09.08.2018 07:19:21
 
Перейти    
Адрес ячейки из RefEdit
 
#
09.08.2018 06:50:27
Добрый день.
Получаю из RefEdit адрес ячейки "'Отчет_динамика по неделям_RB'!$AR$5", как мне в эту ячейку теперь записать данные?
 
Перейти    
Установить владельца файла при создании
 
#
01.02.2018 06:28:03
Цитата
Андрей VG написал:
Полтора года прошло  
необходимость просто отпадала на это время
 
Перейти    
Установить владельца файла при создании
 
#
10.01.2018 09:46:36
HELP
 
Перейти    
Переделать вид объекта из Array(1)(1) в Array(1,1)
 
#
18.12.2017 07:28:42
Цитата
Цитата
Sanja написал:
Циклом
можно пример7
 
Перейти    
Переделать вид объекта из Array(1)(1) в Array(1,1)
 
#
18.12.2017 06:05:53
подскажите как это сделать?
 
Перейти    
Убрать условное форматирование в выбранной ячейке
 
#
09.11.2017 12:58:43
Цитата
The_Prist написал:
я не знаю по каким условиям Вы отбираете ячейки.
простите, туплю...
...у меня поиск по ФИО происходит из одного списка в другом. но все же не пойму как мне это Application.ThisWorkbook.Sheets("List").Cells(i, n) заппихать в union(rc,rr)
ведь у меня получается так
Код
for i=1 to 100
if fio == "петров" then
for n=1 to 100
' к примеру
                                                    With Application.ThisWorkbook.Sheets("ÒÀÁÅËÜ").Cells(i, n)
                                                        '.FormatConditions.Delete
                                                        .Interior.Color = RGB(255, 0, 0)
                                                        .ClearComments
                                                        .AddComment
                                                        .Comment.Text TW_SAP
                                                        With .Comment.Shape.TextFrame.Characters.Font
                                                            .Name = "Times New Roman"
                                                            .Size = 14
                                                            .Bold = True
                                                        End With
                                                    End With
end for
end if
end for
тут мне union(Range.Range).FormatConditions.Delete нужно сделать
.
Изменено: Владимир Л - 09.11.2017 13:01:20
 
Перейти    
Убрать условное форматирование в выбранной ячейке
 
#
09.11.2017 11:34:08
Цитата
The_Prist написал:
Тогда цикл по ним, через Union объединяйте в один Range и потом махом со всех удаляйте форматирование.
я весь список ячеек могу получить только после выполнения цикла, т.е. типа создать массив динамический и пополнять его адресами ячеек, но потом его же опять циклом проходит...
можно пример, может какая функция есть добавления адреса в Range.?
 
Перейти    
Убрать условное форматирование в выбранной ячейке
 
#
09.11.2017 09:58:58
Цитата
The_Prist написал:
Так Вы не для каждой ячейки в цикле отдельно его убирайте, а одним махом(без цикла).
вот в этом -то и затык - нужно по конкретным только.
 
Перейти    
Убрать условное форматирование в выбранной ячейке
 
#
09.11.2017 09:18:19
Делаю так:
но повисает макрос жестоко и надолго.
Код
Application.ThisWorkbook.Sheets("ИмяЛиста").Cells(i, n).FormatConditions.Delete
 
Перейти    
Убрать условное форматирование в выбранной ячейке
 
#
09.11.2017 08:57:05
Выяснил, что условное форматирование все срубает, как его убрать с выбранной ячейки.
 
Перейти    
Убрать условное форматирование в выбранной ячейке
 
#
09.11.2017 08:47:40
Есть отчет - табель работы сотрудников, который формируется макросами из разных файлов, есть ячейки, в которых есть текст(тип работы), а есть пустые. Так вот, пустые ячейки я могу заливать другим цветом и вставлять примечание макросом, а заполненные ячейки я не могу заливать никак, но макросом примечание добавляется.
HELP!!!
 
Перейти    
Изменить ряд данных в диаграмме
 
#
17.05.2017 13:24:40
Добрый день.
Есть диаграмма на листе, которая данные берет с таблицы этого же листа. Таблицу я обновляю макросом, но ряды данных в диаграмме не меняются автоматически = =да и с чего бы.
Хочу сделать обновление рядов, но не могу понять как.
Нашел в объекте диаграмм нужную, нашел имя её, но найти ряды не могу:
Код
Application.ChartsItem(1).Chart.ChartTitle.Caption
 
Перейти    
Функция всписке() или подобная
 
#
01.11.2016 11:19:48
Добрый день.
есть функция типа всписке(лед, стекло, вода, капрон), которая проверяет существование строки в скобках, только называется она по другому - не могу вспомнить как...
 
Перейти    
Очистить массив от дублирующихся элементов
 
#
25.10.2016 12:17:36
vikttur, если хотите сделать замечание - пишите личное сообщение, а не гадьте в теме.,..
 
Перейти    
Очистить массив от дублирующихся элементов
 
#
25.10.2016 11:49:55
Цитата
Hugo написал:
в данном случае можно.
Подскажите как тогда в данном случае:
Код
                For t = 0 To UBound(arr_Kab_revers)
                    ggg = UBound(arr_Kab_revers(t)) + 1
                    'For e = 0 To UBound(arr_Kab_revers(t))
                    Dim ss: ss = arr_Kab_revers(t)
                    ReDim Preserve ss(ggg)
                    Dim j As Integer
                    arr_Kab_revers(t) = ss
                    arr_Kab_revers(t)(2) = j
                    'Next
                Next
arr_Kab_revers  равен массиву arr_Kab
..я хочу пробежаться по 2 одинаковым массивам, проверять дубли и, если это дубль = писать 2
Изменено: Владимир Л - 25.10.2016 11:52:29
 
Перейти    
Очистить массив от дублирующихся элементов
 
#
25.10.2016 11:32:18
Цитата
vikttur написал:
Владимир Л, а у Вас получится не нажимать кноку цитирования для ответа?
я думал для оповещения автора цитаты нужно цитировать, иначе, если просто отвечать, то участники видеть не будут, это разве не так?
 
Перейти    
Очистить массив от дублирующихся элементов
 
#
25.10.2016 11:27:59
Цитата
Hugo написал:
Hugo
...а можно изменить тип данных отдельного элемента массива?
 
Перейти    
Страницы: 1 2 3 4 5 След.
Наверх