Discussion :

[epigamer]

Bonjour à tous,

J'ai besoin de transformer un gros Dictionary en JSon (qui est de type string (si je ne me trompe pas ))
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

Un stagiaire perdu

[omen999]

salut,

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.
j'ai lu le code en diagonale, mais il me semble bien que ASPJSON accepte les objets dictionnaires en entrée
à tester

[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"

[omen999]

montre nous ton code avec le n° de ligne où se déclenche l'erreur

[epigamer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

issues = ASPJSON.toJSON(params(1))

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox VarType(params(1))

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

[epigamer]

Alors la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Vartype(params(1))

me donne le résultat : 9

Sinon le toJSON qui ressemble a sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

Il ne rentre pas dans la fonctions

ton objet doit être trop gros...
bon, blague à part, et ce n° de ligne ?

[epigamer]

L'erreur arrive à la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[epigamer]

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

Grand Merci a toi omen999 ^^

[fredoche]

salut

salut,

tu es bien sûr.
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

[omen999]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[epigamer]

Ok je vais tester celui-ci aussi, merci fredoche