JSON in QB64

[SpriggsySpriggs]

You all can mostly ignore this. I'm posting this so I don't lose it. However, I'll make a full post once I make it better.

Code: (Select All)

Option Explicit
$NoPrefix
$Console:Only

Print GetEdiSchemaKey("$edi.transactionSets.heading.beginning_segment_for_ship_notice_BSN")

Function GetEdiSchemaKey$ (keyPath As String)
    GetEdiSchemaKey = pipecom_lite("PowerShell -NoProfile $edi = (Get-Content -Path " + Chr$(34) + "C:\Users\zspriggs\Downloads\edi856.json" + Chr$(34) + " ^| ConvertFrom-Json);" + keyPath + " ^| ConvertTo-Json")
End Function

'$Include:'pipecomqb64.bas'