Page 4 of 4 FirstFirst 1234
Results 121 to 152 of 152

Thread: VB6 - JsonBag, Another JSON Parser/Generator

  1. #121

    Thread Starter
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    First, be sure to note that my TreeView example is incomplete.

    You have to consider that both property name values and string type data values can contain characters that are incompatible with an ANSI TreeView control. Any characters outside the printable 7-bit ASCII range can be problematic, even if some ANSI printables might come out acceptably depending on the locale settings when your program gets run.

    So you really need to escape funky characters or at least zap them to ? or some other place-filler symbol.


    As for color-coding formatted JSON goes, no I do not have anything on hand for that.

    But it seems simple enough to copy and hack JsonBag's Property Get JSON() serialization to create a Property Get JSONRTF() or a Property Get JSONHTML() that returns marked up JSON with colors. It is just a matter of doing the necessary busy work.

  2. #122
    PowerPoster
    Join Date
    Feb 2017
    Posts
    4,995

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by k_zeon View Post
    I think a Rich TextBox could be more appropriate for this.

  3. #123
    Hyperactive Member
    Join Date
    Nov 2011
    Posts
    498

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by dilettante View Post
    First, be sure to note that my TreeView example is incomplete.

    You have to consider that both property name values and string type data values can contain characters that are incompatible with an ANSI TreeView control. Any characters outside the printable 7-bit ASCII range can be problematic, even if some ANSI printables might come out acceptably depending on the locale settings when your program gets run.

    So you really need to escape funky characters or at least zap them to ? or some other place-filler symbol.


    As for color-coding formatted JSON goes, no I do not have anything on hand for that.

    But it seems simple enough to copy and hack JsonBag's Property Get JSON() serialization to create a Property Get JSONRTF() or a Property Get JSONHTML() that returns marked up JSON with colors. It is just a matter of doing the necessary busy work.
    Hi dilettante. tks for reply. I will look in to hacking the JSON() and see if poss to create JSONRTF.

  4. #124
    Hyperactive Member
    Join Date
    Nov 2011
    Posts
    498

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by Eduardo- View Post
    I think a Rich TextBox could be more appropriate for this.
    Hi Eduardo. Yes i have used this before to display VB6 code and works very well. However i dont know how to modify the existing code to take care of Json / Javascript
    as above post , i will see about modifying the JsonBag to create a JsonRTF as that would be quite good as i use JsonBag to show in a textbox and nicely spaced out.
    maybe i can take it a step closer to use a RichtextBox to display data. would be a good addition to JsonBag.

    If i try to create a JsonRTF would i create a string that contains the Json and the richtext code and then apply to the richtextbox
    or once text is on the Richtextbox loop through and colour code the text accordingly.

    I am thinking option one as it goes through the serailisation to add richtext formatting as we go.

    what do you think

    thanks
    Last edited by k_zeon; Mar 6th, 2019 at 08:53 AM.

  5. #125
    New Member
    Join Date
    Apr 2019
    Posts
    1

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Hi
    I am using JSONBag 2.5 with VB6 to try and create a series of Json messages. I have managed to write working procedures for all the messages bar one. This one needs an array within it. I don't seem to be able to grasp the way to contruct this code. Can somebody give me a few pointers?
    So the complete message should look like this:

    {
    "MaintenanceType": "Preventive",
    "MaintenanceOrderNumber": "MO676578576",
    "MaintenanceJobCode": "MNT113334",
    "Tasks": [
    {
    "Task": "Changed hydraulic fluid in resovoir 1",
    "TaskId": "HYD233432432",
    "Operator": {
    "OperatorIdentifier": "BADGE489435",
    "ActorType": "Human",
    "LastName": "Smith",
    "FirstName": "Joseph",
    "LoginName": "joseph.smith@abcdrepairs.com"
    },
    "ManHoursConsumed": 0.75
    },
    {
    "Task": "Checked torque on main mount bolts",
    "TaskId": "CHK3432434",
    "Operator": {
    "OperatorIdentifier": "UID235434324",
    "ActorType": "Human",
    "LastName": "Smith",
    "FirstName": "Joseph",
    "LoginName": "joseph.smith@abcdrepairs.com"
    },
    "ManHoursConsumed": 0.25
    }
    ]
    }
    and my code looks like this:

    Code:
    '---------------------------------------------------------------------------------------
    ' Method : CFXMaintenancePerformed
    ' Author : Simon Smith
    ' Date   : 07/12/2016
    ' Purpose: Create CFX.ResourcePerformance.MaintenancePerformed message
    ' Updated:  13/12/2018
    '---------------------------------------------------------------------------------------
    Public Sub CFXMaintenancePerformed()
    
        CFXEnvelope                                             ' Add envelope data
        With JB
            ![MessageName] = "CFX.ResourcePerformance.MaintenancePerformed"
            With .AddNewObject("MessageBody")                     ' Add Message Body specifics
                .Item("MaintenanceType") = "Preventive"
                .Item("MaintenanceOrderNumber") = "MO676578576"
                .Item("MaintenanceJobCode") = "MNT113334"
                With .AddNewArray("Tasks")
                    With .AddNewArray()
                        .Item("Task") = "Changed hydraulic fluid in resovoir 1"
                        .Item("TaskId") = "HYD233432432"
                        With .AddNewObject("Operator")
                            .Item("OperatorIdentifier") = "BADGE489435"
                            .Item("ActorType") = "Human"
                            .Item("LastName") = "Smith"
                            .Item("FirstName") = "Joseph"
                            .Item("LoginName") = "joseph.smith@abcdrepairs.com"
                        End With
                        .Item("ManHoursConsumed") = 0.75
                    End With
                    With .AddNewArray()
                        .Item("Task") = "Checked torque on main mount bolts"
                        .Item("TaskId") = "CHK3432434"
                        With .AddNewObject("Operator")
                            .Item("OperatorIdentifier") = "UID235434324"
                            .Item("ActorType") = "Human"
                            .Item("LastName") = "Smith"
                            .Item("FirstName") = "Joseph"
                            .Item("LoginName") = "joseph.smith@abcdrepairs.com"
                        End With
                        .Item("ManHoursConsumed") = "0.25"
                    End With
                End With
            End With
        End With
        SendSmartMessage JB.JSON
    End Sub
    The issue is to do with the array formation I think.

    Thanks Simon

  6. #126
    PowerPoster
    Join Date
    Sep 2012
    Posts
    2,083

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Hi dilettante, I'd like to know if your JsonBag can read JavaScript objects, for example:

    Code:
    {
        start: 0,
        end: 15,
        source: "AAA",
        type: "BBB"
    }
    IMO, the main difference between JavaScript objects and JSON strings is that Key names have no double quotes.

  7. #127

  8. #128
    PowerPoster
    Join Date
    Sep 2012
    Posts
    2,083

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by wqweto View Post
    The format is called JSON5 - JSON for humans.

    cheers,
    </wqw>
    Oh, great. I like JavaScript. Thank you very much, wqweto.

  9. #129
    New Member
    Join Date
    May 2020
    Posts
    4

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    hi I can get the json report of the products between the date I want on my opencart site but how to write this incoming data in a text file with 6.0 etc. thanks


    sample:

    [{"UrunKodu":"7209","UrunAdi":"Apple phone 7 Plus Dolu Kasa Jet Black","Ucret":"35.0000"}]


    write txt sample data

    UrunKodu=7209,UrunAdi=Apple phone 7 Plus Dolu Kasa Jet Black,Ucret=35.0000


    orjinal file:


    [{"UrunKodu":"7209","UrunAdi":"Apple \u0130phone 7 Plus Dolu Kasa- Jet Black","Ucret":"35.0000","StokMiktari":"7"},{"UrunKodu":"7206","UrunAdi":"Apple \u0130phone 6S Plus Dolu Kasa- Gold","Ucret":"40.5000","StokMiktari":"7"},{"UrunKodu":"11821","UrunAdi":"Huawei GR5 \u015earj Ve Mikrofon Bordu","Ucret":"8.0000","StokMiktari":"2"},{"UrunKodu":"11765","UrunAdi":"Apple Iphone 8 \u00d6n Kamera+Sens\u00f6r Filmi","Ucret":"15.0000","StokMiktari":"8"},{"UrunKodu":"7230","UrunAdi":"Samsung Galaxy J2 Pro (J250) Kasa+ Kapak- Silver","Ucret":"10.0000","StokMiktari":"12"},{"UrunKodu":"7204","UrunAdi":"Apple \u0130phone 6S Plus Dolu Kasa- Beyaz","Ucret":"30.0000","StokMiktari":"7"},................]

  10. #130
    PowerPoster
    Join Date
    Jan 2020
    Posts
    3,746

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    i test json2.js is the best(used time :16 ms,JsonBag,38ms)
    ---------------------------
    In the case of large files, I eventually lost to the JS object
    After all, that is native JS, VB still has to parse

    50K JSON string to object, object to character
    Json1, time: 18.162882
    Json2, time: 16.407462
    Json3, time: 41.214192
    vbjson, time: 125.604048
    JsonConverter, time: 40.81495
    cDataJSON, time: 48.869498
    JsonBag, time: 38.097204
    ---------------------------

    50K large file, Json object to string
    Json1, time: 28.468988
    Json2, time: 17.008122
    Json3, time: 38.91001
    vbjson, time: 83.524864
    JsonConverter, time: 18.332476
    cDataJSON, time: 7.14318
    JsonBag, time: 21.876478

  11. #131
    PowerPoster
    Join Date
    Jun 2013
    Posts
    7,219

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by xiaoyao View Post
    i test json2.js is the best(used time :16 ms,JsonBag,38ms)
    ---------------------------
    In the case of large files, I eventually lost to the JS object...
    Your results are not really meaningfull, unless you include:
    - the data you did use
    - and your test-code

    Here is an example, which shows, where the (JSON-)data came from (a Download-URL),
    and it includes the complete test-code as well (based on the RC5-JSON-functions).

    Code:
    Option Explicit
    
    Private sJSONinp As String
    
    Private Sub Form_Load()
      Dim D As cDownloads
      Set D = New_c.Downloads 'download a larger JSON-file into an inp-string first
      With D.Download("https://www.sba.gov/sites/default/files/data.json")
        If .WaitForCompletion(15) Then sJSONinp = New_c.Crypt.UTF8ToVBString(.GetContentData)
      End With
    End Sub
    
    Private Sub Form_Click()
      New_c.Timing True
        Dim oJSON As cCollection
        Set oJSON = New_c.JSONDecodeToCollection(sJSONinp)  'decode the JSON-string to Object
      Debug.Print "JSON-decoding of " & Len(sJSONinp) & " Chars took:" & New_c.Timing
      
      New_c.Timing True
        Dim sJSONout As String
            sJSONout = oJSON.SerializeToJSONString 'serialize the Object back into a JSON-string
      Debug.Print "JSON-encoding to " & Len(sJSONout) & " Chars took:" & New_c.Timing
    End Sub
    Here the results on the quite large (1.3MB, not 50kB) test-input:
    Code:
    JSON-decoding of 1342902 Chars took: 43.84msec
    JSON-encoding to 1321953 Chars took: 26.87msec
    Olaf

  12. #132
    PowerPoster
    Join Date
    Jan 2020
    Posts
    3,746

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    cConstructor ,RC5-JSON(cConstructor vbRichClient5.DLL)
    This method runs the fastest, can you share the source code?
    thank you.
    Code:
    Json1Code = "var JSON=function(){var m={'\b':'\\b','\t':'\\t','\n':'\\n','\f':'\\f','\r':'\\r','""':'\\""','\\':'\\\\'},s={'boolean':function(x){return String(x)},number:function(x){return isFinite(x)?String(x):'null'},string:function(x){if(/[""\\\x00-\x1f]/.test(x)){x=x.replace(/([\x00-\x1f\\""])/g,function(a,b){var c=m[b];if(c){return c}c=b.charCodeAt();return'\\u00'+Math.floor(c/16).toString(16)+(c%16).toString(16)})}return'""'+x+'""'},object:function(x){if(x){var a=[],b,f,i,l,v;if(x instanceof Array){a[0]='[';l=x.length;for(i=0;i<l;i+=1){v=x[i];f=s[typeof v];if(f){v=f(v);if(typeof v=='string'){if(b){a[a.length]=','}a[a.length]=v;b=true}}}a[a.length]=']'}else if(x instanceof Object){a[0]='{';for(i in x){v=x[i];f=s[typeof v];if(f){v=f(v);if(typeof v=='string'){if(b){a[a.length]=','}a.push(s.string(i),':',v);b=true}}}a[a.length]='}'}else{return}return a.join('')}return'null'}};return{"
    Json1Code = Json1Code & "copyright: '(c)2005 JSON.org',license:'http://www.crockford.com/JSON/license.html',stringify:function(v){var f=s[typeof v];if(f){v=f(v);if(typeof v=='string'){return v}}return null},parse:function(text){try{return!(/[^,:{}\[\]0-9.\-+Eaeflnr-u \n\r\t]/.test(text.replace(/""(\\.|[^""\\])*""/g,'')))&&eval('('+text+')')}catch(e){return false}}}}();"
    
    Htm = "{""a"":""3333"",""b"":""abc"",""arr1"":[{""c"":""aa"",""d"":""bb""},{""e"":""dd""}]}"
    
    Dim Js As ScriptControl, JsonStr As String
    Set Js = New ScriptControl
    Js.Language = "Javascript"
    Js.AddCode "var JsonObj=" & Htm 
    
    Js.AddCode Json1Code
    JsonStr = Js.Eval("JSON.stringify(JsonObj)")  
    
    MsgBox "JsonStr=" & JsonStr
    Jsontxt from:"https://www.sba.gov/sites/default/files/data.json" (1.3MB SIZE)
    ----------------
    StrToJsonObject+ObjectToSTR:

    cConstructor ,Time(ms):74.62878
    Json1 ,Time(ms):193.73442
    Json2 ,Time(ms):173.22444
    Json3 ,Time(ms):1166.90108
    vbjson ,Time(ms):7827.51336
    JsonConverter,Time(ms):6587.33684
    cDataJSON ,Time(ms):1351.50216
    JsonBag ,Time(ms):2364.81656
    ----------------
    JsonObjectToStr:

    cConstructor ,Time(ms):32.69154
    Json1 ,Time(ms):172.668
    Json2 ,Time(ms):155.47996
    Json3 ,Time(ms):1149.53676
    vbjson ,Time(ms):7333.60354
    JsonConverter,Time(ms):6136.69794
    cDataJSON ,Time(ms):558.91872
    JsonBag ,Time(ms):1812.21622
    Last edited by xiaoyao; May 12th, 2020 at 03:42 AM.

  13. #133
    Member
    Join Date
    Oct 2019
    Posts
    51

    Red face Re: VB6 - JsonBag, Another JSON Parser/Generator

    Searched the thread but couldn't find the fact that you need a reference to "OLE Automation" in your project, if you intend on using this class outside of the test project, otherwise you'll get compile errors of "User-defined type not defined" regarding "IUnknown" as used in at least one of the functions.

    I'll also add that this is the best and easiest to use JSON parser I've tried for VB, and I've tried them all. I was able to rewrite a custom DLL that interfaces with a web API that switched over from XML to JSON, with minimal work. Changed a few object declarations and re-wrote how to reference the data in the collections, and this just works, allowing me to reference the JSON data as a VB collection, like I had been with MS' XML parser. That made the transition a lot less work for me.

    One thing to be careful of is not to ask for keys that may not be present (depending on the data you're getting from your source). The .exists function, however, makes that a cinch.

    I wish the documentation was a little clearer on the various functions, as I had to dig through the sample code a bit to figure out how to do some things, but, like I said -- it just plain works.

    Well done and kudos to the author.
    Last edited by Montclair; Jan 3rd, 2021 at 06:44 PM.

  14. #134
    Hyperactive Member
    Join Date
    Jun 2016
    Location
    España
    Posts
    506

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by Montclair View Post
    Searched the thread but couldn't find the fact that you need a reference to "OLE Automation" in your project, if you intend on using this class outside of the test project, otherwise you'll get compile errors of "User-defined type not defined" regarding "IUnknown" as used in at least one of the functions.

    I'll also add that this is the best and easiest to use JSON parser I've tried for VB, and I've tried them all. I was able to rewrite a custom DLL that interfaces with a web API that switched over from XML to JSON, with minimal work. Changed a few object declarations and re-wrote how to reference the data in the collections, and this just works, allowing me to reference the JSON data as a VB collection, like I had been with MS' XML parser. That made the transition a lot less work for me.

    One thing to be careful of is not to ask for keys that may not be present (depending on the data you're getting from your source). The .exists function, however, makes that a cinch.

    I wish the documentation was a little clearer on the various functions, as I had to dig through the sample code a bit to figure out how to do some things, but, like I said -- it just plain works.

    Well done and kudos to the author.
    I've also been using it for a long time and it's one of the best.
    You could pass your dll or the part of the code to convert to xml and if you can xml to json

    a greeting

  15. #135
    Member
    Join Date
    Oct 2019
    Posts
    51

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by yokesee View Post
    I've also been using it for a long time and it's one of the best.
    You could pass your dll or the part of the code to convert to xml and if you can xml to json

    a greeting
    Yeah, I tried some of the JSON to XML converters I found, and they pretty much don't work for my needs. Plus, the vendor changed the names of many of the fields, and it's just easier to rewrite (now) thanks to JsonBag.

    If I'm misunderstanding and you're asking for code that I used when I switched from my vendor's XML API to their JSON API, it really wouldn't be much help as it's pretty vendor specific.

  16. #136
    Member Dragokas's Avatar
    Join Date
    Aug 2015
    Location
    Ukraine
    Posts
    740

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Suggestion:

    2 new methods ItemSafe, ArraySafe:

    Code:
    Public Property Get ItemSafe(ByVal Key As Variant) As Variant
        If Me.Exists(Key) Then ItemSafe = Me.Item(Key)
    End Property
    
    Public Property Get ArraySafe(ByVal Key As Variant) As Variant
        
        If Me.Exists(Key) Then
            If IsNull(Key) Then Error9904
            If VarType(Key) = vbString Then
                If mIsArray Then Error9908
                
                If ExistsStr(Key) Then
                    If IsObject(Values.Item(PrefixedKey)) Then
                        Set ArraySafe = Values.Item(PrefixedKey)
                    Else
                        ArraySafe = Values.Item(PrefixedKey)
                    End If
                Else
                    Error990C
                End If
            Else
                If IsObject(Values.Item(Key)) Then
                    Set ArraySafe = Values.Item(Key)
                Else
                    ArraySafe = Values.Item(Key)
                End If
            End If
        Else
            Set ArraySafe = New Collection
        End If
        
    End Property
    Allowing to decrease the size of production code from this:

    Example:
    Code:
    Private Sub JSON_ParseOzonAttrib(JB As JsonBag)
        
        Dim i As Long
        If JB.Exists("result") Then
        
            If JB.ItemIsJSON("result") Then
    
                For i = 1 To JB.Item("result").Count
                    
                    With JB.Item("result")(i)
                    
                        If .Exists("name") Then
                        
                            Debug.Print .Item("name")
                        End If
                    End With
                Next
            End If
        End If
    End Sub
    to this:
    Code:
    Private Sub JSON_ParseOzonAttrib2(JB As JsonBag)
        
        Dim i As Long
        For i = 1 To JB.ArraySafe("result").Count
                    
            With JB.Item("result")(i)
                    
                Debug.Print .ItemSafe("name")
            End With
        Next
    End Sub
    .ItemSafe / .ArraySafe - is a shortcut for .Item (not Object) / .Item (Object / Array) with additional check for .Exist( Key )

    allowing to use them in-place without throwing the error exception.

    PS. Yeah, better to merge both methods in one. Just my quick 5 cents.
    Last edited by Dragokas; Feb 13th, 2021 at 07:07 AM.
    Malware analyst, VirusNet developer, HiJackThis+ author || my CodeBank works

  17. #137
    Frenzied Member
    Join Date
    Jun 2015
    Posts
    1,053

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    trying to decide how useful a GetPath("obj1.obj2.obj3.value") function is. and maybe adding a .dumpKeys() method (from elroys CollectionEx class) for when you get lost in the hierarchy

    the ability to handle single quoted strings would be great as well.

    Code:
    'quick external to class version todo: support element array indexes?
    Function GetPath(o As JsonBag, path As String) As Variant
    
        Dim tmp() As String, o2 As JsonBag, isLast As Boolean
        
        If InStr(path, ".") < 1 Then
            If o.ItemIsJSON(path) Then
                Set GetPath = o.Item(path)
            Else
                GetPath = o.Item(path)
            End If
            Exit Function
        End If
        
        Set o2 = o
        tmp = Split(path, ".")
        For i = 0 To UBound(tmp)
            If i = UBound(tmp) Then isLast = True
            If o2.ItemIsJSON(tmp(i)) Then
                Set o2 = o2.Item(tmp(i))
                If isLast Then Set GetPath = o2
            Else
                If Not isLast Then Err.Raise 2121, "GetPath", "Object path terminates at " & tmp(i)
                GetPath = o2.Item(tmp(i))
            End If
        Next
        
    End Function
    Last edited by dz32; Mar 9th, 2021 at 08:16 AM.

  18. #138
    Frenzied Member
    Join Date
    Jun 2015
    Posts
    1,053

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    tweaked it to add support for single quoted strings, None type, toArray(), getPath(path) (to sub object or value) and a fromFile(path) method
    Attached Files Attached Files
    Last edited by dz32; Mar 10th, 2021 at 06:43 AM.

  19. #139
    PowerPoster wqweto's Avatar
    Join Date
    May 2011
    Location
    Sofia, Bulgaria
    Posts
    5,120

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    This is a project that would benefit a lot from being hosted on github IMO, provided that it's the goto solution for JSON handling in VB6 land.

    @dilletante: Send me a DM if you want to host it under https://github.com/VBForumsCommunity org with your user account there.

    cheers,
    </wqw>

  20. #140
    Fanatic Member
    Join Date
    Aug 2016
    Posts
    673

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by dz32 View Post
    tweaked it to add support for single quoted strings, None type, toArray(), getPath(path) (to sub object or value) and a fromFile(path) method
    Function toArray() As Variant()
    Dim i As Integer
    If Not Me.IsArray Then Err.Raise 2122, "JsonBag", "Item is not an array"

    Dim ret()
    For i = 1 To o.Count ------which is o?
    push ret, o(i)
    Next

    toArray = ret
    End Function

  21. #141
    Frenzied Member
    Join Date
    Jun 2015
    Posts
    1,053

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    my bad i ported toarray and getpath in by eye from a previous version, fixed now with test code in place. thanks

  22. #142
    Lively Member
    Join Date
    Aug 2017
    Posts
    75

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Where do I get the official version of this file, is there a repository on gitHub? What's the latest version?

  23. #143
    PowerPoster
    Join Date
    Jan 2020
    Posts
    3,746

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    how to put josn data by jsonbag?

    Code:
    {
        "projectCode":"xel0010",
        "productCode":"121",
        "plannedNum":1000,
        "planStartTime":"2021-09-08 00:00:00",
        "planEndTime":"2021-09-08 23:59:59",
        "workOrderCustomFieldsValue":[
            {
                "name":"key1",
                "value":"v1"
            },
            {
                "name":"key2",
                "value":"v2"
            }
        ]
    }

  24. #144

    Thread Starter
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Something like:

    Code:
    Option Explicit
    
    Private Sub Main()
        With New JsonBag
            .Whitespace = True
            .Item("projectCode") = "xel0010"
            .Item("productCode") = "121"
            .Item("plannedNum") = 100
            .Item("planStartTime") = "2021-09-08 00:00:00"
            .Item("planEndTime") = "2021-09-08 23:59:59"
            With .AddNewArray("workOrderCustomFieldsValue")
                With .AddNewObject()
                    .Item("name") = "key1"
                    .Item("value") = "v1"
                End With
                With .AddNewObject()
                    .Item("name") = "key2"
                    .Item("value") = "v2"
                End With
            End With
            MsgBox .JSON
        End With
    End Sub
    Result:

    Code:
    {
        "projectCode":"xel0010",
        "productCode":"121",
        "plannedNum":100,
        "planStartTime":"2021-09-08 00:00:00",
        "planEndTime":"2021-09-08 23:59:59",
        "workOrderCustomFieldsValue":[
            {
                "name":"key1",
                "value":"v1"
            },
            {
                "name":"key2",
                "value":"v2"
            }
        ]
    }

  25. #145
    PowerPoster
    Join Date
    Jan 2020
    Posts
    3,746

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by dilettante View Post
    Something like:

    Code:
    Option Explicit
    
    Private Sub Main()
        With New JsonBag
            .Whitespace = True
            .Item("projectCode") = "xel0010"
            .Item("productCode") = "121"
            .Item("plannedNum") = 100
            .Item("planStartTime") = "2021-09-08 00:00:00"
            .Item("planEndTime") = "2021-09-08 23:59:59"
            With .AddNewArray("workOrderCustomFieldsValue")
                With .AddNewObject()
                    .Item("name") = "key1"
                    .Item("value") = "v1"
                End With
                With .AddNewObject()
                    .Item("name") = "key2"
                    .Item("value") = "v2"
                End With
            End With
            MsgBox .JSON
        End With
    End Sub
    Result:

    Code:
    {
        "projectCode":"xel0010",
        "productCode":"121",
        "plannedNum":100,
        "planStartTime":"2021-09-08 00:00:00",
        "planEndTime":"2021-09-08 23:59:59",
        "workOrderCustomFieldsValue":[
            {
                "name":"key1",
                "value":"v1"
            },
            {
                "name":"key2",
                "value":"v2"
            }
        ]
    }
    It’s amazing, thank you great programmer, you are our role model

  26. #146
    Member
    Join Date
    Mar 2022
    Posts
    38

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    I couldn't find another reference to a "Subscript out of range" error, except for this post...

    Quote Originally Posted by dilettante View Post
    [*]Bug fix: Replacing an "array" item at the end of the "array" caused "Subscript out of range" error 9.
    I have been successfully using JSON Bag version 2.4 for a long time, but just recently I'm running into this error. I updated to 2.6 and am still getting the error here:

    Public Property Get ItemIsJSON(ByVal Key As Variant) As Boolean
    'Reports True if an item is a JSON "array" or "object" and False
    'if a simple value.

    If IsNull(Key) Then Error9904
    If VarType(Key) = vbString Then
    If mIsArray Then Error9908

    If ExistsStr(Key) Then
    ItemIsJSON = IsObject(Values.Item(PrefixedKey))
    Else
    Error990C
    End If
    Else
    ItemIsJSON = IsObject(Values.Item(Key)) 'out of range here!
    End If
    End Property
    I'm testing to see if a sub-item is a JSON collection also, so I can pick and choose a few values out if it is.

    A quick glance at the code and it appears that ExistsStr(Key) is the way to see if there is a Value before actually trying to use it. Since I just need a TRUE or FALSE telling me if the subitem is JSON, I changed the code to below:

    Public Property Get ItemIsJSON(ByVal Key As Variant) As Boolean
    'Reports True if an item is a JSON "array" or "object" and False
    'if a simple value.

    If IsNull(Key) Then Error9904
    If VarType(Key) = vbString Then
    If mIsArray Then Error9908

    If ExistsStr(Key) Then
    ItemIsJSON = IsObject(Values.Item(PrefixedKey))
    Else
    Error990C
    End If
    Else
    If ExistsStr(Key) Then
    ItemIsJSON = IsObject(Values.Item(Key)) 'out of range here!
    Else
    'no way item could be JSON if error getting Values
    ItemIsJSON = False
    End If
    End If
    End Property
    Hopefully this helps someone else.

  27. #147

    Thread Starter
    PowerPoster
    Join Date
    Feb 2006
    Posts
    24,482

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Using ExistsStr() there makes no sense. It has already been established that Key is numeric (not String), and thus an index. So using ExistsStr() there is invalid.

    What your hack does is coerce the numeric Key to a String and then look for a child node that happens to match (by luck?) this String. Most of the time this won't be true, so you have basically turned ItemIsJSON() into a random-usually-False generator when Key is numeric.

    Frankly I don't see a bug at all there. An error 9 exception should be raised when a numeric Key value out of range is supplied.


    Perhaps I'm not seeing it? A small test case demonstrating the problem would help clarify the issue if it exists.

  28. #148
    Member
    Join Date
    Mar 2022
    Posts
    38

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    Quote Originally Posted by dilettante View Post
    Using ExistsStr() there makes no sense. It has already been established that Key is numeric (not String), and thus an index. So using ExistsStr() there is invalid.

    What your hack does is coerce the numeric Key to a String and then look for a child node that happens to match (by luck?) this String. Most of the time this won't be true, so you have basically turned ItemIsJSON() into a random-usually-False generator when Key is numeric.

    Frankly I don't see a bug at all there. An error 9 exception should be raised when a numeric Key value out of range is supplied.


    Perhaps I'm not seeing it? A small test case demonstrating the problem would help clarify the issue if it exists.
    So, I un-did the changes I made and let it run through the JSON file again to see where it was breaking.

    Unfortunately, it looks like I should've looked at the JSON source before reacting. For some reason, 1 record out of over 3,500 was passing in some invalid JSON characters. I contacted the external source of the JSON and they fixed the problem on their end. I re-ran the data through again without any issues.

    Sorry for the trouble... looks like a false alarm!

  29. #149
    Frenzied Member
    Join Date
    Nov 2010
    Posts
    1,245

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    I know this is an old thread but it was provided to me as an example for parsing JSON.

    I'm just not getting how it applies to what I need to do.

    In the code provided in this JsonBag, I swapped out the example JSON with an actual response from finnhub.io that I wish to parse out.

    Yes, I know that such a simple bit of JSON can be parsed using a simple string parser:

    {"c":165.02,"d":-0.56,"dp":-0.3382,"h":165.85,"l":163,"o":163.21,"pc":165.58,"t":1659728304}
    For now, all I need is to extract the price located after the "c":.

    However, I figured I'd try to learn something about JSON and parsing in the event I need to pull in a large amount of data to grab multiple items from it.

    I notice that Parse/Reser button just makes a copy to the other textbox. Not sure how that is parsing. What am I missing?

    Name:  2022-08-05_17-37-18.jpg
Views: 916
Size:  23.1 KB

    And checking off 'Add Whitespace':

    Name:  2022-08-05_17-37-59.jpg
Views: 1025
Size:  23.4 KB

    So it formats it nicely. But exactly how does one use this to retrieve specific data values from the JSON based on the key?

    I guess I misunderstand what JSON code parsing is.

    Is there any parsing code for JSON where you supply the key name and get the data value back?

    Obviously there is much I need to learn about this format.

    TIA

  30. #150
    Hyperactive Member
    Join Date
    Jan 2015
    Posts
    323

    Re: VB6 - JsonBag, Another JSON Parser/Generator


  31. #151
    Hyperactive Member
    Join Date
    Jan 2015
    Posts
    323

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    how to add Empty Array and Empty json Object?

  32. #152
    Hyperactive Member
    Join Date
    Nov 2011
    Posts
    498

    Re: VB6 - JsonBag, Another JSON Parser/Generator

    I would personely use mdJson.bas

    add to a project
    https://gist.github.com/wqweto/e92dc...a91b053b9510c9

    make sure its named as mdjson.bas

    then add code below


    Code:
     Dim p As Object, sError As String
        Set p = mdjson.JsonParseObject("{"c":165.35, "d":-0.23, "dp":-0.1389, "h":165.85, "l":163, "o":163.21, "pc":165.58, "t":1659729604}", sError, StrictMode:=False)
        If p Is Nothing Then
            Debug.Print "Error parsing JSON: " & sError, Timer
            Exit Sub
        End If
    
        msgbox  JsonValue(p, "c")
    Last edited by k_zeon; Mar 16th, 2024 at 09:25 AM.

Page 4 of 4 FirstFirst 1234

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width