[XaXaTyH]

Доброго времени суток Форумчане!
Есть такой вот текст(Responce Content):

Код:

":{"lvl":"100","progress":50483,"complete":150000},"gold":"10","silver":"187318","stop"

Помогите пожалуйста вывести значение "silver"(тут оно равно 187318) в label.
Сам справиться не могу

[Alegun]

Можно так

Код:

const
 s: string = '":{"lvl":"100","progress":50483,"complete":150000},"gold":"10","silver":"187318","stop"';

procedure TForm1.Button1Click(Sender: TObject);
var
 tmp: string;
begin
 tmp:= Copy(s, Pos('"silver":"', s)+10, Length(s));
 Label1.Caption:= Copy(tmp, 0, Pos('",', tmp)-1);
end;

[poli-smen]

Сообщение от XaXaTyH

Есть такой вот текст(Responce Content):

Код:

":{"lvl":"100","progress":50483,"complete":150000},"gold":"10","silver":"187318","stop"

Помогите пожалуйста вывести значение "silver"(тут оно равно 187318) в label.

Для работы с JSON я обычно использую superobject.
А ещё в новых версиях Delphi есть для этого модуль Data.DBXJSON.pas.

[XaXaTyH]

Сообщение от Alegun

Можно так

Код:

const
 s: string = '":{"lvl":"100","progress":50483,"complete":150000},"gold":"10","silver":"187318","stop"';

procedure TForm1.Button1Click(Sender: TObject);
var
 tmp: string;
begin
 tmp:= Copy(s, Pos('"silver":"', s)+10, Length(s));
 Label1.Caption:= Copy(tmp, 0, Pos('",', tmp)-1);
end;

Дело в том, что данные значения меняются каждый раз.
Собственно увеличиваются.
Так как мне вывести данные в Label?

[Alegun]

Выполняйте этот код при получении Responce Content текста или напр. в процедуре таймера - разрядов числа между "silver":" и ", может быть сколько угодно, эти метки ведь не изменяются, а считывается лишь то что между ними, хотя вариант от Полисмена выглядит наиболее предпочтительным, имхо

[XaXaTyH]

Есть пример кода с JSON?

[XaXaTyH]

Сообщение от Alegun

Можно так

Код:

const
 s: string = '":{"lvl":"100","progress":50483,"complete":150000},"gold":"10","silver":"187318","stop"';

procedure TForm1.Button1Click(Sender: TObject);
var
 tmp: string;
begin
 tmp:= Copy(s, Pos('"silver":"', s)+10, Length(s));
 Label1.Caption:= Copy(tmp, 0, Pos('",', tmp)-1);
end;

Спасибо, получилось.
Помогите еще с gold пожалуйста.

[Alegun]

Сообщение от XaXaTyH

...Помогите еще с gold пожалуйста.

Всё тоже самое, лишь заменить

Код:

...
tmp:= Copy(s, Pos('"gold":"', s) + 8, Length(s));
...

[XaXaTyH]

Сообщение от Alegun

Всё тоже самое, лишь заменить

Код:

...
tmp:= Copy(s, Pos('"gold":"', s) + 8, Length(s));
...

Спасибо большое, но в том запросе +10, а в этом +8.
Что это за числа?

[Alegun]

Сообщение от XaXaTyH

...Что это за числа?

Это не запрос. Тогда нужно объяснить что вообще происходит. Из исходной строки (в данном случае это s) копируется (через Copy) заданный индексами кусок в другую переменную tmp. Для Copy нужны следующие параметры - исходная строка, с какой позиции начать из неё копирование, и наконец, сколько знаков захватить. С помощью функции Pos находим положение подстроки ("gold":") в исходной, она возвращает позицию первого символа искомого фрагмента, в данном случае это даблкавычка ("), а всего их там 8, поэтому чтоб они не скопировались вместе с нужной инфой такую циферку и следует прибавить к полученной от Pos позиции, концевой указатель - до конца исходной строки (Length(s)). А дальше из получившегося куска копируется в label1 "чистое" значение, до этого в tmp лежит не очищенный фрагмент (10","silv...) т.е. в нём ещё остался мусор, - Pos возвращает позицию (",), из неё нужно вычесть 1 чтоб лишнего при копировании не захватить. Всё