Android Question parser.NextObject error End of input at character 0 of

[angel_]

Through Crashlytics I get the following error from one of my apps

JSONParser.java line 48
anywheresoftware.b4a.objects.collections.JSONParser.NextObject
Fatal Exception: org.json.JSONException
End of input at character 0 of

Dim parser As JSONParser
parser.Initialize(FileText)
Dim Map1 As Map = parser.NextObject '<-- Error in this line according to Crashlytics

I understand that the problem (End of input at character 0 of) occurs because the JSON file was not created correctly, this JSON I generate with this event

Sub B4XPage_Background
    ...
    Private JSONGenerator As JSONGenerator

    JSONGenerator.Initialize(MapaDatos)

    JS = JSONGenerator.ToPrettyString(2)

    File.WriteString(Path, FileText, JS)
End Sub

Should I use a Try...Catch before ending B4XPage_Background or the problem is another

 

[aeric]

Sub B4XPage_Background
...
JSONGenerator.Initialize(MapaDatos)
...
End Sub

I think this is not correct to put these code inside B4XPage_Background. These code should be put after WaitFor and If Job.Success is True.

 

[DonManfred]

End of input at character 0 of

Is the json you want to parse a EMPTY String???

If not: post the json

 

[angel_]

Is the json you want to parse a EMPTY String???

If not: post the json

In principle it should never be empty since I load the JSON and then I create the file, it is not possible to save the file if there is no JSON data and then before opening the JSON I verify that the file exists

{
  "lista": [
    {
      "id": "p_base",
      "lista": [
        224,
        224,
        2912,
        2576
      ]
    },
    {
      "id": "p_cont",
      "lista": [
        224,
        224,
        0,
        0,
        0
      ]
    },
    {
      "id": "p_cont_tag",
      "lista": [
        1,
        "",
        "horizontal",
        "",
        112,
        0,
        "center_left"
      ]
    },
    {
      "id": "p_mov",
      "lista": [
        224,
        224,
        0,
        0
      ]
    },
    {
      "id": "img",
      "lista": [
        224,
        224,
        0,
        0
      ]
    },
    {
      "id": "l_info",
      "lista": [
        224,
        0,
        0,
        188
      ]
    },
    {
      "id": "p_base",
      "lista": [
        224,
        224,
        3024,
        2464
      ]
    },
    {
      "id": "p_cont",
      "lista": [
        224,
        224,
        0,
        0,
        0
      ]
    },
    {
      "id": "p_cont_tag",
      "lista": [
        1,
        "",
        "vertical",
        "",
        112,
        0,
        "center_left"
      ]
    },
    {
      "id": "p_mov",
      "lista": [
        224,
        224,
        0,
        0
      ]
    },
    {
      "id": "img",
      "lista": [
        224,
        224,
        0,
        0
      ]
    },
    {
      "id": "l_info",
      "lista": [
        224,
        0,
        0,
        188
      ]
    }
  ]
}

 

[angel_]

This is how I generate the JSON

For Each v As B4XView In pnl.GetAllViewsRecursive
    ...

    Private JSONGenerator As JSONGenerator
    JSONGenerator.Initialize(MapaDatos)
    JS = JSONGenerator.ToPrettyString(2)
        
    File.WriteString(Folder, FileName, JS)
Next

Maybe I should put the last line (File.WriteString...) outside of For Each... Next, like this:

Private JSONGenerator As JSONGenerator
Dim TextJS As String = ""
For Each v As B4XView In pnl.GetAllViewsRecursive
    ...
    
    JSONGenerator.Initialize(MapaDatos)
    JS = JSONGenerator.ToPrettyString(2)
Next
File.WriteString(Folder, FileName, JS)

 

[angel_]

I think I don't explain me well, this is the code:

Dim JS As String
Dim MapaDatos As Map
Dim LstMapa As List

MapaDatos.Initialize
LstMapa.Initialize

For Each v As B4XView In pnl.GetAllViewsRecursive
    '...code
    '... load LstMapa
    
    MapaDatos.Put("lista", LstMapa)
    Private JSONGenerator As JSONGenerator
    JSONGenerator.Initialize(MapaDatos)
    JS = JSONGenerator.ToPrettyString(2)
        
    File.WriteString(Folder, FileName, JS)
Next

I can File.WriteString move after the loop, like this?

Dim JS As String
Dim MapaDatos As Map
Dim LstMapa As List

MapaDatos.Initialize
LstMapa.Initialize

For Each v As B4XView In pnl.GetAllViewsRecursive
    '...code
    '... load LstMapa
    
    MapaDatos.Put("lista", LstMapa)
    Private JSONGenerator As JSONGenerator
    JSONGenerator.Initialize(MapaDatos)
    JS = JSONGenerator.ToPrettyString(2)
Next
File.WriteString(Folder, FileName, JS) ' <-- AFTER THE LOOP

The other question is, Should I include a Wait for in B4XPage_Background as suggested by aeric

 

[aeric]

Still not clear to me what you want to do.
Why you want to write this file?
Can you upload your project?