how do I output a file using Json with line feeds and tabs ?

this is what I get now:
{"data":{"autopilot":{"aircraftType":0,"altHoldRate":10,"attitude":{"0":{"0":{"envelopeNeg":0,"envelopePos":0,"feature":128},"1":{"envelopeNeg":0,"envelopePos":0,"feature":128}},"1":{"0":{"envelopeNeg":0,"envelopePos":0,"feature":128},"1"

what I would like is this:

{
    "data": {
        "autopilot": {
            "aircraftType": 0,
            "altHoldRate": 50,
            "attitude": {
                "0": {
                    "0": {
                        "envelopeNeg": 0,
                        "envelopePos": 0,
                        "feature": 128
                    },
                    "1": {
                        "envelopeNeg": 0,
                        "envelopePos": 0,
                        "feature": 128
                    }

Can you upload the JSON file please.

this is my original file :

then I run this program :


And the optput I get is this :

{"data":{"autopilot":{"aircraftType":0,"altHoldRate":50}}}

How can I format JSON to get the first format?
So either the File.Load  or the File.save have remove linefeeds and spaces, or is it the use of a Collection variable

Have a look at the attached program. Hopefully this will help.

<IMG src="http://www.cogier.com/gambas/JSON_002.png"> </IMG>

 Thank you for your reply
All I get from the download is the same thing you have in your post and a list of clients.
I must be doing something wrong with the download.

I think the use of the Collection variable is what is removing the format from the data.
so I will have to use a string or string array to modify the data before I write it back to the file.

If json had Prety Print, I think that would solve the problem.

Try changing the line in my program from: -


To: -

Thanks that works

I just wish I knew enough to understand the two lines  …. but I will keep learning  

Let's try and breakdown the line Dim sFile As String[] = Split(File.Load("~/airplane files/testfile.txt"), gb.NewLine) for you by separating out the individual commands. The attached program does the same as the single line. I have added a Variable along with a Print and Stop command.


If you run the attached program it will stop at "Stop". When it does use the mouse to highlight  sFile and you will see what is in the sFile array.

<IMG src="http://www.cogier.com/gambas/Breakdown1.png"> </IMG>

I hope that helps.

Thank you very much, that is a big help.  

My last programming was about 40 years ago on an Apple II with integer basic then some UCSD Pascal.
Now I want to get back to programming again, and Gambas looks like it is the best one for me.
Sure is nice to have more than 16 K memory and a Tape drive to save to.

One more question, after I make changes to the array, what is the easiest way to convert it back to a file?
I came up with this …..

For iCount = 0 to sFile.count -1
sLoad2 &= sFile[iCount] & gb.NewLine
Next
 File.save(("~/testfile2.txt"), sLoad2)

Your code works but you can use .Max instead of .Count -1 and you don't need so many brackets in the 'Save' line.


However Gambas can do this in one line with 'Join', no need for the loop above.


16k!    What luxury!!
I started with the Sincair ZX81 (1981) which had 1k

 Thank you, that is what I was looking for.
I wish there was a good book to learn all that from.

My first programming was with an HP 67 … not sure how much memory that had, but could do a lot with it.