Convertir un Dictionary en JSON

Version imprimable

07/11/2012, 14h36
epigamer

Convertir un Dictionary en JSON

Bonjour à tous,

J'ai besoin de transformer un gros Dictionary en JSon (qui est de type string (si je ne me trompe pas 8O))
J'ai eu beau retourner tout le net j''ai trouvé plein de convertisseur entre différent type mais jamais Dictionary --> Json
Le second problème est que je n'ai pas un niveau suffisant pour coder un convertisseur (Je viens juste de commencer en VBA ;) )

Est-ce qu'il existe une fonction dédiée à cette manipulation ? Il y a t-il une astuce ?

Merci de votre aide :D

Un stagiaire perdu :cry:
07/11/2012, 15h52
omen999

salut,

Citation:

J'ai eu beau retourner tout le net j''ai trouvé plein de convertisseur entre différent type mais jamais Dictionary --> Json

tu es bien sûr. :aie:
j'ai lu le code en diagonale, mais il me semble bien que ASPJSON accepte les objets dictionnaires en entrée
à tester
07/11/2012, 16h35
epigamer

Alors j'ai bien utilisé ton module de classe que tu ma conseillé, malheureusement quand je passe mon Dictionary au "toJSON", il me dit : "Objet requis" :cry:
07/11/2012, 16h38
omen999

montre nous ton code :roll: avec le n° de ligne où se déclenche l'erreur
07/11/2012, 16h44
epigamer

Le Code

Voici une partie de mon code:

"params(1)" est un Variant/Object/Dictionary, il contient un peu plus de 200 Items.

Et quand je le passe en paramètres du Module de Classe ASPJSON

Code:

issues = ASPJSON.toJSON(params(1))

"Erreur d'exécution '424': Objet requis"

:(
07/11/2012, 16h51
omen999

alors je répète : quelle est la ligne de la classe aspjson qui déclenche cette erreur ? :(
et que donne la ligne

Code:

MsgBox VarType(params(1))

à insérer juste avant l'appel de la méthode toJSON ?

Alors la ligne:

Code:

MsgBox Vartype(params(1))

me donne le résultat : 9

Sinon le toJSON qui ressemble a sa :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
    Public Function toJSON(vPair)
        Select Case VarType(vPair)
            Case 0  ' Empty
                toJSON = "null"
            Case 1  ' Null
                toJSON = "null"
            Case 7  ' Date
                ' toJSON = "new Date(" & (vPair - CDate(25569)) * 86400000 & ")"    ' let in only utc time
                toJSON = """" & CStr(vPair) & """"
            Case 8  ' String
                toJSON = """" & jsEncode(vPair) & """"
            Case 9  ' Object
                Dim bFI, i
                bFI = True
                If vPair.Kind Then toJSON = toJSON & "[" Else toJSON = toJSON & "{"
                For Each i In vPair.Collection
                    If bFI Then bFI = False Else toJSON = toJSON & ","
 
                    If vPair.Kind Then
                        toJSON = toJSON & toJSON(vPair(i))
                    Else
                        If QuotedVars Then
                            toJSON = toJSON & """" & i & """:" & toJSON(vPair(i))
                        Else
                            toJSON = toJSON & i & ":" & toJSON(vPair(i))
                        End If
                    End If
                Next
                If vPair.Kind Then toJSON = toJSON & "]" Else toJSON = toJSON & "}"
            Case 11
                If vPair Then toJSON = "true" Else toJSON = "false"
            Case 12, 8192, 8204
                toJSON = RenderArray(vPair, 1, "")
            Case Else
                toJSON = Replace(vPair, ",", ".")
        End Select
    End Function

...ne veux pas prendre en paramètre mon argument (params(1)) (Il ne rentre pas dans la fonctions :( )

Pourtant comme tu me le fait remarquer il y a bien une "Case : 9"

Je ne comprends plus rien :cry:

07/11/2012, 17h22
omen999

Citation:

Il ne rentre pas dans la fonctions

ton objet doit être trop gros...
bon, blague à part, et ce n° de ligne ?
07/11/2012, 17h28
epigamer

L'erreur arrive à la ligne:

Code:

issues = ASPJSON.toJSON(params(1))

J'ai mis des arrêts dans le "toJSON" mais mon curseur ne rentre même pas dedans, il se stoppe à l'appel de la fonction :calim2:
07/11/2012, 17h51
epigamer

Thinks

Ok, C'est bon, je n'instancier pas la classe ... :lol:

Grand Merci a toi omen999 ^^

:ccool::ccool::ccool:
07/11/2012, 17h53
fredoche

salut

Citation:

Envoyé par omen999

salut,

tu es bien sûr. :aie:
j'ai lu le code en diagonale, mais il me semble bien que ASPJSON accepte les objets dictionnaires en entrée
à tester

J'ai jeté un oeil, et ce n'est pas du tout sur
je crois l'avoir déjà testé pour mes propres besoins, et il ne me semble pas que cela supporte les objets dictionnary.

par contre j'utilise celle-ci : http://www.webdevbros.net/2008/07/10...n-15-released/

qui fonctionne parfaitement

j'ai ouvert le second oeil. effectivement la gestion des objets dictionnaires n'est pas directe :mrgreen:
il faut alimenter le dictionnaire interne de la classe... pas top mais ça marche :aie:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set oDic = CreateObject("Scripting.Dictionary") oDic.Add "C","Café" oDic.Add "P","Photocopies" oDic.Add "S","Stagiaire" Set oJs = jsObject aK = oDic.Keys aI = oDic.Items For i =0 to oDic.Count-1 oJs.Pair(aK(i)) = aI(i) Next MsgBox oJs.jsString
ps : merci pour le lien que je vais tester

08/11/2012, 09h55
epigamer

Ok je vais tester celui-ci aussi, merci fredoche :ccool: