Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/27: Рейтинг темы: голосов - 27, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 21.12.2016
Сообщений: 14
RAD XE4+

Хранение значения из массива в переменной, парсинг json

30.03.2019, 01:38. Показов 5637. Ответов 13

Студворк — интернет-сервис помощи студентам
Привет всем)
Помогите с парсингом json.
Тут посмотрел, как парситься json в таблицу.
Пробовал с разных ресурсов брать данные, все отлично работает.
Но вот я не могу (не знаю) потом как то вытянуть данные, с конкретной ячейки например в Edit, Memo или же в переменную (лучше так).
Примеров полных не могу найти, что и как.
Может ли кто то показать или сделать пример? например с этим
https://api.privatbank.ua/p24a... coursid=11

Тут получаеться массив, как мне вытянуть каждый элемент и привязать к переменной?


Я просто или очень не умный, или не знаю уже
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.03.2019, 01:38
Ответы с готовыми решениями:

Хранение значения цвета RGB в одной переменной
Как считать изображения чтобы информация о пикселе хранилась ни как у меня в коде, а хранилась одним значением от 0 до 255, тобишь одной...

Хранение значения переменной
Как правильно в данном случае сохранить переменную? Словарь онлайн. Пользователь нажимает кнопку, из таблицы MySQLi случайно...

Хранение значения в переменной
Добрый день. Подскажите как указать значение элемента, например Content, VerticalAlignment, в переменной. Что-то типа: ...

13
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33395 / 21505 / 8236
Регистрация: 22.10.2011
Сообщений: 36,902
Записей в блоге: 12
30.03.2019, 12:42
Лучший ответ Сообщение было отмечено oligozen как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <DBXJSON.hpp>
#include <memory>
 
// ...
 
    // в s содержимое json-строки
    std::auto_ptr<TJSONArray> Jarr(static_cast<TJSONArray*>(TJSONObject::ParseJSONValue(s)));
    for (int i = 0; i < Jarr->Size(); i++)
    {
        TJSONObject *jItem = static_cast<TJSONObject*>(Jarr->Get(i));
        String ccy = jItem->Get("ccy")->JsonValue->Value();
        Memo1->Lines->Add(ccy); // вывести все поля ccy в memo, аналогично и с остальными полями
    }
1
0 / 0 / 0
Регистрация: 21.12.2016
Сообщений: 14
31.03.2019, 02:31  [ТС]
Спасибо)
Что бы не писать цикл заново, можно ли это все сделать в виде функции перевая туда както названия полей и т.д.?
Например есть
C++
1
String ccy = jItem->Get("ccy")->JsonValue->Value();
Можно ли в фунции прописать?
C++
1
String Peremenaya = jItem->Get("Peremenaya")->JsonValue->Value();
И уже в Peremenaya, передедавать имя (значение) ccy.
Предыдущий ответ, много прояснил.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33395 / 21505 / 8236
Регистрация: 22.10.2011
Сообщений: 36,902
Записей в блоге: 12
31.03.2019, 02:39
Лучший ответ Сообщение было отмечено oligozen как решение

Решение

Можно и вот так написать:
C++
1
2
3
4
5
6
7
8
9
10
11
12
    String fields[4] = {"ccy", "base_ccy", "buy", "sale"}; // список полей
 
    std::auto_ptr<TJSONArray> Jarr(static_cast<TJSONArray*>(TJSONObject::ParseJSONValue(s)));
    for (int i = 0; i < Jarr->Size(); i++)
    {
        TJSONObject *jItem = static_cast<TJSONObject*>(Jarr->Get(i));
        for(int j = 0; j < 4; j++)
        {
            String fld = jItem->Get(fields[j])->JsonValue->Value();
            Memo1->Lines->Add(String().sprintf(L"%s = %s", fields[j], fld)); // вывод всех полей и их значений
        }
    }
, можно и в функцию вынести, но на фиг вызывать функцию 4 раза, если можно сделать цикл?
0
0 / 0 / 0
Регистрация: 21.12.2016
Сообщений: 14
31.03.2019, 03:18  [ТС]
Вот тут чуть другая структура (не знаю) правльная ли
https://api.privatbank.ua/p24a... 01.12.2014

Все необходимое храниться в exchangeRate

Строку я передав при помощи первого примера вот так
C++
1
String s = RESTResponse1->Content;
Но компилятор такое ругаеться.
REST Debugger с этим справляєтся если прописать JSON Root elemet наш exchangeRate
Но как мне этот exchangeRate передать в String s?
Миниатюры
Хранение значения из массива в переменной, парсинг json  
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33395 / 21505 / 8236
Регистрация: 22.10.2011
Сообщений: 36,902
Записей в блоге: 12
31.03.2019, 10:29
Вариант:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
String get_value(TJSONObject *item, String field)
{
    return item->Get(field)->JsonValue->Value();
}
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    String s_resp = RESTResponse1->JSONText;
    std::auto_ptr<TJSONObject> jObj(static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(s_resp)));
    TJSONArray *jArr = static_cast<TJSONArray*>(jObj->Get("exchangeRate")->JsonValue);
    for (int i = 0; i < jArr->Size(); i++)
    {
        TJSONObject *jItem = static_cast<TJSONObject*>(jArr->Get(i));
        Memo1->Lines->Add(String().sprintf(L"%s: %s / %s",
            get_value(jItem, "currency"),
            get_value(jItem, "saleRateNB"),
            get_value(jItem, "purchaseRateNB"))); // вывести все поля ccy в memo, аналогично и с остальными полями
    }
}
, где RESTResponse1->JSONText - полный текст JSON, в результате чего имеем на выходе:
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
AUD: 12.831925 / 12.831925
CAD: 13.21074 / 13.21074
CZK: 0.679695 / 0.679695
DKK: 2.525893 / 2.525893
HUF: 0.0612592 / 0.0612592
ILS: 3.862738 / 3.862738
JPY: 0.1272593 / 0.1272593
LVL: 0.1272593 / 0.1272593
LTL: 5.443385 / 5.443385
NOK: 2.160957 / 2.160957
SKK: 2.160957 / 2.160957
SEK: 2.028375 / 2.028375
CHF: 15.638975 / 15.638975
RUB: 0.30527 / 0.30527
GBP: 23.632491 / 23.632491
USD: 15.056413 / 15.056413
BYR: 0.00139 / 0.00139
EUR: 18.79492 / 18.79492
GEL: 8.150089 / 8.150089
PLZ: 4.492201 / 4.492201
, устроит?
0
0 / 0 / 0
Регистрация: 21.12.2016
Сообщений: 14
31.03.2019, 11:50  [ТС]
Тут
C++
1
2
3
get_value(jItem, "currency"),
            get_value(jItem, "saleRateNB"),
            get_value(jItem, "purchaseRateNB")));
Ругает меня в каждой из трёх строчек

[bcc32c Error] Unit2.cpp(37): cannot pass object of non-trivial type 'System::String' (aka 'System::UnicodeString') through variadic method; call will abort at runtime
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33395 / 21505 / 8236
Регистрация: 22.10.2011
Сообщений: 36,902
Записей в блоге: 12
31.03.2019, 12:02
Лучший ответ Сообщение было отмечено oligozen как решение

Решение

Странно, XE8 прекрасно работает с этим кодом.

Функция get_value описана как у меня? Попробуй имя поменять, может, оно с чем-то другим конфликтует, и компилятор не понимает что от него хотят.

Добавлено через 10 минут
Хотя... Под 64-бита не компилирует. Вот так должно быть:
C++
1
2
3
4
        Memo1->Lines->Add(String().sprintf(L"%s: %s / %s",
            get_value(jItem, "currency").c_str(),
            get_value(jItem, "saleRateNB").c_str(),
            get_value(jItem, "purchaseRateNB").c_str()));
0
0 / 0 / 0
Регистрация: 21.12.2016
Сообщений: 14
31.03.2019, 12:12  [ТС]
У меня версия 10.3, имя фунцкции сменил, то же самое ((
Спасибо за помощь))
Есть какие то еще варианты
Можете набросать литературы или ещё каких материалов по работе с API в Builder C++?
Или для этого справки wiki достаточно?

А по поводу того чего хочу добиться.
Если конечно можете уделить времени для помощи.

Каждое значение в массиве или где нибуть еще я хочу хранить в переменной.

Например 12.831925, который у нас под параметром purchaseRateNB, хочу хранить в переменной kurs_1
, а 13.21074, тоже параметра purchaseRateNB, хранить в переменной kurs_2
А потом задать что то такое
C++
1
2
3
4
5
6
7
8
9
int a=16;
if (kurs_1 <=a)
{
Edit1->Text="Всё ок";
}
else
{
Edit1->Text="Тревога";
}
И спасибо что помогаете, и вполне понятные примеры даете.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33395 / 21505 / 8236
Регистрация: 22.10.2011
Сообщений: 36,902
Записей в блоге: 12
31.03.2019, 12:45
Лучший ответ Сообщение было отмечено oligozen как решение

Решение

Цитата Сообщение от oligozen Посмотреть сообщение
Есть какие то еще варианты
Я отредактировал код в предыдущем посте. В таком виде - работает...

Добавлено через 11 минут
Цитата Сообщение от oligozen Посмотреть сообщение
Каждое значение в массиве или где нибуть еще я хочу хранить в переменной.
В массиве и хранить:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
// либо глобально, либо в классе формы
double *sale = 0;
double *purchase = 0;
 
// ...
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    String s_resp = RESTResponse1->JSONText;
    std::auto_ptr<TJSONObject> jObj(static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(s_resp)));
    TJSONArray *jArr = static_cast<TJSONArray*>(jObj->Get("exchangeRate")->JsonValue);
 
    // предыдущие значения удаляем
    if(!sale) delete [] sale;
    if(!purchase) delete [] purchase;
 
    // выделяем память под новые массивы, согласно количеству прочитанных только что данных
    sale = new double[jArr->Count];
    purchase = new double[jArr->Count];
    for (int i = 0; i < jArr->Count; i++)
    {
        TJSONObject *jItem = static_cast<TJSONObject*>(jArr->Items[i]);
        sale[i] = StrToFloat(get_value(jItem, "saleRateNB"));
        purchase[i] = StrToFloat(get_value(jItem, "purchaseRateNB"));
        Memo1->Lines->Add(String().sprintf(L"%s: %lf / %lf",
            get_value(jItem, "currency").c_str(), sale[i], purchase[i]));
    }
}
Вот и все, теперь смело можно
C++
1
2
if(purchase[0] <= a) // ok
else // alarm!!!
1
0 / 0 / 0
Регистрация: 21.12.2016
Сообщений: 14
31.03.2019, 12:45  [ТС]
Отредактированый пример заработал.
Я так понял, оно нам не захотело компилить под 32 битку, и пришлось передевать в функцию ноль через c_str()?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33395 / 21505 / 8236
Регистрация: 22.10.2011
Сообщений: 36,902
Записей в блоге: 12
31.03.2019, 12:49
Цитата Сообщение от oligozen Посмотреть сообщение
оно нам не захотело компилить под 32 битку
Нет. Под 32 бита как раз нормально компилирует (по крайней мере под XE8), хотя, если честно, не должно. А вот в 64-битном компиляторе с подобными штуками гораздо строже, поэтому не компилируется, и приходится передавать не просто строку, а ее wchar_t*, чтобы компилятор пропустил.
0
0 / 0 / 0
Регистрация: 21.12.2016
Сообщений: 14
31.03.2019, 12:52  [ТС]
Спасибо за ясные ответы.
Спрошу еще раз про литературу, может какую то посоветуете, если еще есть в открытом доступе.
Ибо кое что если и смогу оплатить то не смогу получить.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.03.2019, 12:52
Помогаю со студенческими работами здесь

Хранение значения переменной в сессии php
Чтобы долго не объяснять вот код. &lt;?php $page_number = $_SESSION; if(isset($_POST)){ ...

Парсинг JSON в JSON Linked Data с использованием Hydra Java
Есть веб страница, на которой пользователь заполняет поля, жмет на кнопку и затем данные отправляются на сервер. На сервере работает...

Парсинг JSON с short.pub посредством NewtonSoft.Json
Доброго времени суток. Имеется сокращалка сайтов short.pub, у которой есть API, который возвращает JSON, содержащий сокращённые ссылки...

Хранение значения переменной "онлайн"
Всем привет! Такой вопрос - нужно, чтобы значение некоторой переменной отображалось одновременно у всех пользователей приложения. Видел...

[Newtonsoft.Json] Парсинг JSON-ответа
Здравствуйте уважаемые участники сообщества &quot;CyberForum&quot; ! У меня возникла небольшая проблема. Я перелопатил кучу форумов и 15 страниц...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru