Discussion :

[thibthib71]

Bonjour,

Dans mon programme je viens lancé des calculs via des DLL.
la sortie de la DLL me donne une valeur texte avec tout les résultats dedans.
Je souhaiterai pouvoir extraire les valeurs qui m'intéressent pour pouvoir les exploiter de manière automatique.

Exemple :
la DLL me donne la valeur suivante :

[{"CALC_ALTITUDE":213,
"ZA_MAINS_SUPPLY":"1~ 230V 50Hz",

...

"ZA_PSYS":679.16,

...

"CALC_N_RATED":80}]


Je souhaite récupérer la valeur de ZA_PSYS, pour l'intégrer dans mes calculs suivants.

Comment feriez vous s'il vous plait ?

Merci d'avance.

[d0n32]

Bonjour,
Est-ce que la ligne dont tu souhaites extraire l'information est toujours la même ? Ou mieux, est-ce que les infos que tu souhaites extraire sont toujours précédées ou suivis des mêmes mots ou symboles ?

[thibthib71]

la valeur à extraire dans ce cas sera toujours précéder de "ZA_PSYS": et se finira avant la virgule

[AlainTech]

Bonjour,

Un petit test vite fait avec Split:

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
  Dim aTemp() As String
  Dim dblPsys As Double
  Dim x As String
  x = "[{""CALC_ALTITUDE"":213,""ZA_MAINS_SUPPLY"":""1~ 230V 50Hz"",""ZA_PSYS"":679.16,""CALC_N_RATED"":80}]"
  aTemp = Split(x, """ZA_PSYS"":")
  aTemp = Split(aTemp(1), ",")
  dblPsys = Val(aTemp(0))
End Sub

Quand une chaine contient des guillemets, il faut les doubler dans le code VBA.