Hi,
I am a VBA novice and I have a problem not really knowing how to solve the following problem. The VBA code needs to loop through the original text, see below, and create a list of names in the following format: e.g. Level 1 name, Level 1 name.Level 2 name, Level 1 name.Level 2 name.Level 3 name, etc. depending if there is a lower level name and separated by a dot, see the required end result below. The text is a JSON format without the values but only the object names. After each ":" a new level starts and after each "[" an array starts.
This is the original text:
[{"identificatie":{"lokaalID":"5423870000","namespace":"NL.IMKAD.KadastraalObject"},"type":"Perceel","kadastraleAanduiding":{"kadastraleGemeente":{"code":"96","waarde":"Breda"},"perceelnummer":9448,"sectie":"E"},"ontstaanUitOZ":[{"betreftOZ":{"lokaalID":"54230070000","namespace":"NL.IMKAD.KadastraalObject"}},{"betreftOZ":{"lokaalID":"54230270000","namespace":"NL.IMKAD.KadastraalObject"}}],"kadastraleGrootte":{"soortGrootte":{"code":"1","waarde":"Vastgesteld"},"waarde":150},"indicatieMeettariefVerschuldigd":false,"plaatscoordinaten":{"type":"Point","coordinates":[231313101.712,5133931.054]}},{"identificatie":{"lokaalID":"54230330000","namespace":"NL.IMKAD.KadastraalObject"},"type":"Perceel","kadastraleAanduiding":{"kadastraleGemeente":{"code":"96","waarde":"Breda"},"perceelnummer":131,"sectie":"E"}}]
The end results should look like:
- identificatie.lokaalID
- identificatie.namespace
- type
- kadastraleAanduiding.kadastraleGemeente.code
- kadastraleAanduiding.kadastraleGemeente.waarde
- kadastraleAanduiding.perceelnummer
- kadastraleAanduiding.sectie
- ontstaanUitOZ.betreftOZ.lokaalID
- ontstaanUitOZ.betreftOZ.namespace
- ontstaanUitOZ.betreftOZ.lokaalID
- ontstaanUitOZ.betreftOZ.namespace
- kadastraleGrootte.soortGrootte.code
- kadastraleGrootte.soortGrootte.waarde
- kadastraleGrootte.waarde
- indicatieMeettariefVerschuldigd
- plaatscoordinaten.type
- plaatscoordinaten.coordinates.1
- plaatscoordinaten.coordinates.2
- identificatie.lokaalID
- identificatie.namespace
- type
- kadastraleAanduiding.kadastraleGemeente.code
- kadastraleAanduiding.kadastraleGemeente.waarde
- kadastraleAanduiding.perceelnummer
- kadastraleAanduiding.sectie
Note some names don't have any lower level names and the names in mentioned in the original text between the [ ] are mentioned 2 times.
Any thoughts how to solve this with a VBA code?
Bookmarks