Как выделить значение поля объекта

[Нубокодер]

Подскажите как выделить значение поля объекта. Например, объект $objJson =

[{
    "id": "164",
    "name": "Вася",
    "name2": "Пупкин",
    "profession": "Тракторист"
}, {
    "id": "7650",
    "name": "Гарик",
    "name2": "Харламов",
    "profession": "Клоун"
}, {
    "id": "5",
    "name": "Юрий",
    "name2": "Гагарин",
    "profession": "Космонавт"
}]

Надо получить значение "Харламов", зная профессию "Клоун"

 

[Trong]

#include <Array.au3>

Local $strJSON = '[{"id": "164","name": "Вася","name2": "Пупкин", "profession": "Тракторист"}, {"id": "7650","name": "Гарик","name2": "1Харламов","profession": "Клоун"}, {"id": "5","name": "Юрий","name2": "Гагарин","profession": "Космонавт"}]'

$strJSON = StringReplace($strJSON, '"', "")
Local $jsonArray = StringRegExp($strJSON, '(?:id|name|name2|profession):([^\{,}]+)', 3)
_ArrayDisplay($jsonArray)

 

[Alofa]

Спойлер

#include <Array.au3>

Local $sJson = '[{' 						 &@LF& _
			'    "id": "164",'				 &@LF& _
			'    "name": "Вася",'			 &@LF& _
			'    "name2": "Пупкин",'		 &@LF& _
			'    "profession": "Тракторист"' &@LF& _
			'}, {'							 &@LF& _
			'    "id": "7650",'				 &@LF& _
			'    "name": "Гарик",'			 &@LF& _
			'    "name2": "Харламов",'		 &@LF& _
			'    "profession": "Клоун"'		 &@LF& _
			'}, {'							 &@LF& _
			'    "id": "5",'				 &@LF& _
			'    "name": "Юрий",'			 &@LF& _
			'    "name2": "Гагарин",'		 &@LF& _
			'    "profession": "Космонавт"'	 &@LF& _
			'}]'

Local $sProfession = 'Клоун'
$asResult = StringRegExp($sJson, '"name2":\h?"([^"]+)",\s*?"profession":\h?"' & $sProfession, 3)
_ArrayDisplay($asResult)