Récupération de donnée dans une valeur texte avec VBA

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.

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 ?

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

Bonjour,

Un petit test vite fait avec Split:

Code:

---

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.