Est-Il un Parser JSON pour VB6 / VBA?

Découvrez JSON.org pour une mise à jour de la liste (voir en bas de la page principale) de JSON analyseurs dans de nombreuses langues différentes. Au moment de la rédaction de ce guide, vous trouverez un lien vers deux JSON analyseurs là:

• VB-JSON

  • Quand j'ai essayé de télécharger le fichier zip, Windows a dit que les données a été corrompue. Cependant, j'ai été en mesure d'utiliser 7-zip de récupérer les fichiers de sortie. Il s'avère que le "dossier" dans le fichier zip n'est pas reconnu en tant que dossier par Windows, 7-zip pouvez voir le contenu de ce "dossier", de sorte que vous pouvez ouvrir jusqu'puis extraire les fichiers en conséquence.

  • Le réel syntaxe VB librairie JSON est très simple:

    Dim p As Object
    Set p = JSON.parse(strFormattedJSON)
    
    'Print the text of a nested property '
    Debug.Print p.Item("AddressClassification").Item("Description")
    
    'Print the text of a property within an array '
    Debug.Print p.Item("Candidates")(4).Item("ZipCode")

  • Note: j'ai dû ajouter de la "Microsoft Scripting Runtime" et "Microsoft ActiveX Data Objects 2.8" de sa bibliothèque de références via des Outils > Références dans l'éditeur VBA.
  • Remarque: VBJSON code est en fait basé sur un google code du projet vba-json. Cependant, VBJSON promet de nombreuses corrections de bugs de la version originale.
• PW.JSON
  • C'est en fait une bibliothèque pour VB.NET, donc je n'ai pas passer beaucoup de temps à la recherche.

Je sais que c'est une vieille question, mais ma réponse je l'espère sera d'une grande aide pour les autres qui continuent à venir à cette page après une recherche pour "vba json".

J'ai trouvé ce page pour être très utile. Il dispose de plusieurs compatible avec Excel VBA classes qui gèrent le traitement des données au format JSON.

Ici est un "Natif" VB librairie JSON.

Il est possible d'utiliser JSON qui est déjà dans IE8+. De cette façon, votre ne dépend pas de la troisième partie de la bibliothèque qui sort de la date et n'est pas testée.

voir amédée' version alternative ici

Sub myJSONtest()
Dim oJson As Object
Set oJson = oIE_JSON() ' See below gets IE.JSON object
' using json objects
Debug.Print oJson.parse("{ ""hello"": ""world"" }").hello ' world
Debug.Print oJson.stringify(oJson.parse("{ ""hello"": ""world"" }")) ' {"hello":"world"}
' getting items
Debug.Print oJson.parse("{ ""key1"": ""value1"" }").key1 ' value1
Debug.Print oJson.parse("{ ""key1"": ""value1"" }").itemGet("key1") ' value1
Debug.Print oJson.parse("[ 1234, 4567]").itemGet(1) '  4567
' change  properties
Dim o As Object
Set o = oJson.parse("{ ""key1"": ""value1"" }")
o.propSetStr "key1", "value\""2"
Debug.Print o.itemGet("key1") ' value\"2
Debug.Print oJson.stringify(o) ' {"key1":"value\\\"2"}
o.propSetNum "key1", 123
Debug.Print o.itemGet("key1") ' 123
Debug.Print oJson.stringify(o) ' {"key1":123}
' add properties
o.propSetNum "newkey", 123 ' addkey! JS MAGIC
Debug.Print o.itemGet("newkey") ' 123
Debug.Print oJson.stringify(o) ' {"key1":123,"newkey":123}
' assign JSON 'objects' to properties
Dim o2 As Object
Set o2 = oJson.parse("{ ""object2"": ""object2value"" }")
o.propSetJSON "newkey", oJson.stringify(o2) ' set object
Debug.Print oJson.stringify(o) ' {"key1":123,"newkey":{"object2":"object2value"}}
Debug.Print o.itemGet("newkey").itemGet("object2") ' object2value
' change array items
Set o = oJson.parse("[ 1234, 4567]") '
Debug.Print oJson.stringify(o) ' [1234,4567]
Debug.Print o.itemGet(1)
o.itemSetStr 1, "234"
Debug.Print o.itemGet(1)
Debug.Print oJson.stringify(o) ' [1234,"234"]
o.itemSetNum 1, 234
Debug.Print o.itemGet(1)
Debug.Print oJson.stringify(o) ' [1234,234]
' add array items
o.itemSetNum 5, 234 ' add items! JS Magic
Debug.Print o.itemGet(5) ' 234
Debug.Print oJson.stringify(o) ' [1234,234,null,null,null,234]
' assign JSON object to array item
o.itemSetJSON 3, oJson.stringify(o2)  ' assign object
Debug.Print o.itemGet(3) '[object Object]
Debug.Print oJson.stringify(o.itemGet(3)) ' {"object2":"object2value"}
Debug.Print oJson.stringify(o) ' [1234,234,null,{"object2":"object2value"},null,234]
oIE_JSON_Quit ' quit IE, must shut down or the IE sessions remain.
Debug.Print oJson.stringify(o) ' can use after but but IE server will shutdown... soon
End Sub

Vous pouvez pont-à-dire.JSON à partir de VB.

Créer une fonction oIE_JSON

Public g_IE As Object ' global
Public Function oIE_JSON() As Object
' for array access o.itemGet(0) o.itemGet("key1")
JSON_COM_extentions = "" & _
" Object.prototype.itemGet        =function( i ) { return this[i] }   ;            " & _
" Object.prototype.propSetStr     =function( prop , val ) { eval('this.' + prop + '  = ""' + protectDoubleQuotes (val) + '""' )   }    ;            " & _
" Object.prototype.propSetNum     =function( prop , val ) { eval('this.' + prop + '  = ' + val + '')   }    ;            " & _
" Object.prototype.propSetJSON    =function( prop , val ) { eval('this.' + prop + '  = ' + val + '')   }    ;            " & _
" Object.prototype.itemSetStr     =function( prop , val ) { eval('this[' + prop + '] = ""' + protectDoubleQuotes (val) + '""' )   }    ;            " & _
" Object.prototype.itemSetNum     =function( prop , val ) { eval('this[' + prop + '] = ' + val )   }    ;            " & _
" Object.prototype.itemSetJSON    =function( prop , val ) { eval('this[' + prop + '] = ' + val )   }    ;            " & _
" function protectDoubleQuotes (str)   { return str.replace(/\\/g, '\\\\').replace(/""/g,'\\""');   }"
' document.parentwindow.eval dosen't work some versions of ie eg ie10?
IEEvalworkaroundjs = "" & _
" function IEEvalWorkAroundInit ()   { " & _
" var x=document.getElementById(""myIEEvalWorkAround"");" & _
" x.IEEval= function( s ) { return eval(s) } ; } ;"
g_JS_framework = "" & _
JSON_COM_extentions & _
IEEvalworkaroundjs
' need IE8 and DOC type
g_JS_HTML = "<!DOCTYPE html>  " & _
" <script>" & g_JS_framework & _
"</script>" & _
" <body>" & _
"<script  id=""myIEEvalWorkAround""  onclick=""IEEvalWorkAroundInit()""  ></script> " & _
" HEllo</body>"
On Error GoTo error_handler
' Create InternetExplorer Object
Set g_IE = CreateObject("InternetExplorer.Application")
With g_IE
.navigate "about:blank"
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
.Visible = False ' control IE interface window
.Document.Write g_JS_HTML
End With
Set objID = g_IE.Document.getElementById("myIEEvalWorkAround")
objID.Click ' create  eval
Dim oJson As Object
'Set oJson = g_IE.Document.parentWindow.Eval("JSON") ' dosen't work some versions of IE
Set oJson = objID.IEEval("JSON")
Set objID = Nothing
Set oIE_JSON = oJson
Exit Function
error_handler:
MsgBox ("Unexpected Error, I'm quitting. " & Err.Description & ".  " & Err.Number)
g_IE.Quit
Set g_IE = Nothing
End Function
Public Function oIE_JSON_Quit()
g_IE.Quit
Exit Function
End Function

Jusqu'vote si vous le trouvez utile

VB6 - JsonBag, un Autre Parser JSON/Générateur devrait également être importable en VBA avec peu de difficulté.

Vous pourriez écrire une Excel-ADN complémentaire dans VB.NET. Excel-l'ADN est une mince bibliothèque qui vous permet d'écrire Xll dans .NET. De cette façon, vous obtenez l'accès à la totalité .NET de l'univers et peut utiliser des trucs comme http://james.newtonking.com/json - un JSON cadre désérialise JSON dans toute classe personnalisée.

Si vous êtes intéressé, voici un article de comment construire un générique Excel JSON client pour Excel à l'aide de VB.NET:

http://optionexplicitvba.com/2014/05/09/developing-a-json-excel-add-in-with-vb-net/

Et voici le lien vers le code: https://github.com/spreadgit/excel-json-client/blob/master/excel-json-client.dna

Comprendre que c'est un vieux post, mais je suis récemment tombé sur elle tout en ajoutant de la consommation du service web à un vieux VB6 app. La accepté de répondre (VB-JSON) est toujours valide et semble fonctionner. Cependant, j'ai découvert que Chilkat a été mis à jour pour inclure le REPOS et JSON de la fonctionnalité, de faire un one-stop (bien payé) un outil pour moi. Ils ont même, en ligne, un générateur de code qui génère le code pour parser collé les données JSON.

JsonObject lien

Générateur de Code lien

c'est l'exemple de code vb6, testé ok,en fait des œuvres

à partir du dessus de bons exemples, j'ai fait des modifications et a obtenu ce bon résultat

il peut lire les touches {} et les tableaux []

Option Explicit
'in vb6 click "Tools"->"References" then
'check the box "Microsoft Script Control 1.0";
Dim oScriptEngine As New ScriptControl
Dim objJSON As Object
''to use it
Private Sub Command1_Click()
MsgBox JsonGet("key1", "{'key1': 'value1'  ,'key2': { 'key3': 'value3' } }")''returns "value1"
MsgBox JsonGet("key2.key3", "{'key1': 'value1'  ,'key2': { 'key3': 'value3' } }") ''returns "value3"
MsgBox JsonGet("result.0.Ask", "{'result':[{'MarketName':'BTC-1ST','Bid':0.00004718,'Ask':0.00004799},{'MarketName':'BTC-2GIVE','Bid':0.00000073,'Ask':0.00000074}]}") ''returns "0.00004799"
MsgBox JsonGet("mykey2.keyinternal1", "{mykey:1111, mykey2:{keyinternal1:22.1,keyinternal2:22.2}, mykey3:3333}") ''returns "22.1"
End Sub
Public Function JsonGet(eKey$, eJsonString$, Optional eDlim$ = ".") As String
Dim tmp$()
Static sJsonString$
If Trim(eKey$) = "" Or Trim(eJsonString$) = "" Then Exit Function
If sJsonString <> eJsonString Then
sJsonString = eJsonString
oScriptEngine.Language = "JScript"
Set objJSON = oScriptEngine.Eval("(" + eJsonString + ")")
End If
tmp = Split(eKey, eDlim)
If UBound(tmp) = 0 Then JsonGet = VBA.CallByName(objJSON, eKey, VbGet): Exit Function
Dim i&, o As Object
Set o = objJSON
For i = 0 To UBound(tmp) - 1
Set o = VBA.CallByName(o, tmp(i), VbGet)
Next i
JsonGet = VBA.CallByName(o, tmp(i), VbGet)
Set o = Nothing
End Function
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set objJSON = Nothing
End Sub