i dont have much time atm but all i meant was that you can read
the json, strip it down and assign the values to whatever you want to call the variables:
// Project: mgi
// Created: 2021-08-28
// By: Virtual Nomad
// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "mgi" )
SetWindowSize( 1280,720, 0 )
SetWindowAllowResize( 1 )
// set display properties
SetVirtualResolution( 1280,720)
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 )
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )
SetPrintSize(24)
Type VAR
Label as String
Value as String
EndType
Global VARS as VAR []
file = OpenToRead("json.txt")
this$ = ReadLine(file)
CloseFile(file)
Strip(this$)
start = 0
finish = VARS.Length
do
Print( vars.length)
MMZ = GetRawMouseWheelDelta()
If MMZ > 0 then start = start - 1 : if start < 0 then start = 0
if MMZ < 0 then start = start + 1 : if start > finish - 20 then start = finish - 20
for x = start to start + 20
Print(STR(x) + " " +VARS[x].Label + "|" + VARS[x].Value)
next x
If GetRawKeyState(27) then Exit
Sync()
loop
Function Strip(This$)
Delims$ = "[]{}" + CHR(34)
New$ = StripString(This$,Delims$)
total = CountStringTokens(New$, ",")
If total > 0
for x = 1 to total
This$ = GetStringToken(New$,",",x)
That as VAR
That.Label = GetStringToken(This$,":",1)
That.Value = GetStringToken(This$,":",2)
VARS.Insert(That)
next x
Endif
EndFunction
there might be an easier way using .fromjson or ? but this is all the time i have for this.
the parsing would have to be more sophisticated where, using my strip() function removes things like "https:\/\/api.api-cricket.com\/logo\/30_india.png":
[img]https:\/\/api.api-cricket.com\/logo\/30_india.png[/img]
