Json ayırma

[işsiz123]

Merhabalar daha önce açmıştım konuyu ama bir türlü mantığını ögrenemedim. Sizden ricam açıklamalı olarak kod verebilir misiniz? Çünküü ara sıra json biçimi değişiyor her zaman sizleri rahatsız etmek istemiyorum.
Sorum böyle.

{ "-MWAhME2859987": { "id": "02", "name": "abc" }, "-MWAhME2Irl4Kp08xZ5k": { "id": "25", "name": "emn" }, "Mdf5455259899p08xZ5k": { "name": "ahmet", "id": 15 } }

Yukardaki json örneğini aşağıdaki excel sayfası gibi dizmek istiyorum.




Aynı şekilde

{"id":"25","name":"emn"}

Yukardaki jsonuda aşağıddaki excel sayfasına dizmek istiyorum. Bu iki json için vba kodu lasım şimdiden teşekkürler.

 

[Zeki Gürsoy]

Merhabalar daha önce açmıştım konuyu ama bir türlü mantığını ögrenemedim.

Webte JSON syntax olarak aratmanız lazım... Türkçe çok fazla kaynak göremedim; ihtiyaç varsa çeviri kullanın.

JSON Nedir? Nasıl Kullanılır? - Umut Alkan - İş analizi

İJSON JavaScript Object Notation (JavaScript Nesne Gösterimi) kısaltmasıdır. JSON, JavaScript nesne gösterim biçiminde yazılmış metinlerdir.

www.umutalkan.com

W3Schools.com

W3Schools offers free online tutorials, references and exercises in all the major languages of the web. Covering popular subjects like HTML, CSS, JavaScript, Python, SQL, Java, and many, many more.

www.w3schools.com

 

[işsiz123]

Webte JSON syntax olarak aratmanız lazım... Türkçe çok fazla kaynak göremedim; ihtiyaç varsa çeviri kullanın.

JSON Nedir? Nasıl Kullanılır? - Umut Alkan - İş analizi

İJSON JavaScript Object Notation (JavaScript Nesne Gösterimi) kısaltmasıdır. JSON, JavaScript nesne gösterim biçiminde yazılmış metinlerdir.

www.umutalkan.com

W3Schools.com

W3Schools offers free online tutorials, references and exercises in all the major languages of the web. Covering popular subjects like HTML, CSS, JavaScript, Python, SQL, Java, and many, many more.

www.w3schools.com

Öncelikle teşekkürler.
Yukarda vermiş olduğunuz linkte Excel vba için kod bulamadım. İnternette baya araştırdım ancak aradığımı bulamadım son olarak buraya yazdım. Türkçe dışında kaynak varsa da olur sıkıntı olmaz.

 

[Haluk]

Bu iş için yazılmış JSON class'lar var.

Ama; RegEx veya string manipülasyonlarıyla da yapılabilir.

Eğer verdiğiniz 2. örnekteki string'in A1 hücresinde olduğunu kabul edersek;

Sub Test()
    strJSON = Range("A1")
    
    MsgBox Replace(Split(Split(strJSON, """id"":")(1), ",")(0), """", "")
    MsgBox Replace(Replace(Split(Split(strJSON, """name"":")(1), ",")(0), "}", ""), """", "")
End Sub

.

 

[işsiz123]

Bu iş için yazılmış JSON class'lar var.

Ama; RegEx veya string manipülasyonlarıyla da yapılabilir.

Eğer verdiğiniz 2. örnekteki string'in A1 hücresinde olduğunu kabul edersek;

Sub Test()
    strJSON = Range("A1")
   
    MsgBox Replace(Split(Split(strJSON, """id"":")(1), ",")(0), """", "")
    MsgBox Replace(Replace(Split(Split(strJSON, """name"":")(1), ",")(0), "}", ""), """", "")
End Sub

.

Teşekkürler