Работа с json - Visual Basic .NET

Формулировка задачи:

Всем привет! Подскажите, пожалуйста. Всю голову "сломал". Есть json

Спойлер

{ "response": { "count": 17329, "items": [{ "id": 409480, "from_id": -106277494, "owner_id": -106277494, "date": 1519978801, "marked_as_ads": 0, "post_type": "post", "text": "Как вам? Сделал своими руками", "signer_id": 5374822,

"attachments"

: [{ "type": "photo", "photo": { "id": 456301453, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...088/J8rebyD_s4Q.jpg", "photo_130": "https://pp.userap...089/pzyiUoBUulM.jpg", "photo_604": "https://pp.userap...08a/Xfsuo5AFff4.jpg", "photo_807": "https://pp.userap...08b/pbIS8jPfNF4.jpg", "photo_1280": "https://pp.userap...08c/WAVlZDY8wDM.jpg", "photo_2560": "https://pp.userap...08d/TITzEcKsMwY.jpg", "width": 2560, "height": 1920, "text": "", "date": 1519908148, "access_key": "f48ededee9657bca83" } }, { "type": "photo", "photo": { "id": 456301454, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...092/Lw5eAKiRQ6o.jpg", "photo_130": "https://pp.userap...093/nJSno0kPMpg.jpg", "photo_604": "https://pp.userap...094/brKcZK3zb2Y.jpg", "photo_807": "https://pp.userap...095/pVgiWoTMePo.jpg", "photo_1280": "https://pp.userap...096/fKic5UdPzBo.jpg", "photo_2560": "https://pp.userap...097/_U34TzduCLQ.jpg", "width": 2560, "height": 1920, "text": "", "date": 1519908148, "access_key": "8e060b1716641669ed" } }, { "type": "photo", "photo": { "id": 456301455, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...09c/Q67jR9nf3f8.jpg", "photo_130": "https://pp.userap...09d/S6ljfqyTDDo.jpg", "photo_604": "https://pp.userap...09e/ocjvQkCyorc.jpg", "photo_807": "https://pp.userap...09f/IT06NhdKqGk.jpg", "photo_1280": "https://pp.userap...0a0/pWRh8xyel2Q.jpg", "photo_2560": "https://pp.userap...0a1/50Vo7dP8yPY.jpg", "width": 1620, "height": 2160, "text": "", "date": 1519908148, "access_key": "4089764f6e411da300" } }, { "type": "photo", "photo": { "id": 456301456, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...0a6/iXWpCI0a018.jpg", "photo_130": "https://pp.userap...0a7/BxRcRi4p8gg.jpg", "photo_604": "https://pp.userap...0a8/ch_YSsZAG8I.jpg", "photo_807": "https://pp.userap...0a9/eNO5V9ULlKw.jpg", "photo_1280": "https://pp.userap...0aa/l1R_f3cetb4.jpg", "photo_2560": "https://pp.userap...0ab/ahuRuW3SWHc.jpg", "width": 2560, "height": 1920, "text": "", "date": 1519908148, "access_key": "c77d01968ed6098149" } }, { "type": "photo", "photo": { "id": 456301457, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...0b0/BBKMngTGJzA.jpg", "photo_130": "https://pp.userap...0b1/mcmO81rlVkU.jpg", "photo_604": "https://pp.userap...0b2/cHGLiAsRykA.jpg", "photo_807": "https://pp.userap...0b3/sfJ7P7P-8y0.jpg", "photo_1280": "https://pp.userap...0b4/KVanieHb5HM.jpg", "photo_2560": "https://pp.userap...0b5/Rcba6KmKr2Q.jpg", "width": 2560, "height": 1920, "text": "", "date": 1519908148, "access_key": "2c57b92e3e5f3d0aa0" } }, { "type": "photo", "photo": { "id": 456301458, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...0ba/ZW3bAkyQO0Q.jpg", "photo_130": "https://pp.userap...0bb/w5mU62DNSSk.jpg", "photo_604": "https://pp.userap...0bc/lqXX9Cs3nGg.jpg", "photo_807": "https://pp.userap...0bd/OC6HadZ8FEg.jpg", "photo_1280": "https://pp.userap...0be/DPNsVdVlkHA.jpg", "photo_2560": "https://pp.userap...0bf/AnlbK_rcFr4.jpg", "width": 1620, "height": 2160, "text": "", "date": 1519908148, "lat": 47.092991, "long": 39.432885, "access_key": "69dccf7f31573ce5ef" } }, { "type": "photo", "photo": { "id": 456301459, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...0c4/SgX-iB5Vl8g.jpg", "photo_130": "https://pp.userap...0c5/HT-SBnpKrSk.jpg", "photo_604": "https://pp.userap...0c6/BlST6K9DZak.jpg", "photo_807": "https://pp.userap...0c7/K3rku4UR9Dc.jpg", "photo_1280": "https://pp.userap...0c8/NTkIrO1Erig.jpg", "photo_2560": "https://pp.userap...0c9/vUNhfvF5BW8.jpg", "width": 2560, "height": 1552, "text": "", "date": 1519908148, "access_key": "f15afb954404d03244" } }, { "type": "photo", "photo": { "id": 456301460, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...0ce/IXUl2srooQo.jpg", "photo_130": "https://pp.userap...0cf/lt8Gc-vlou8.jpg", "photo_604": "https://pp.userap...0d0/lZ6GOXn_-Vk.jpg", "photo_807": "https://pp.userap...0d1/sOqJEd3CbTg.jpg", "photo_1280": "https://pp.userap...0d2/-O6ruB-b7AI.jpg", "photo_2560": "https://pp.userap...0d3/grvAoz_Xo30.jpg", "width": 2560, "height": 1850, "text": "", "date": 1519908148, "access_key": "43cc9960e591f369dc" } }, { "type": "photo", "photo": { "id": 456301461, "album_id": -7, "owner_id": -106277494, "user_id": 100, "photo_75": "https://pp.userap...0d8/ruJm0Z3Lq6Y.jpg", "photo_130": "https://pp.userap...0d9/75Q2sJ48300.jpg", "photo_604": "https://pp.userap...0da/imS3K3F1BC0.jpg", "photo_807": "https://pp.userap...0db/0p0kGYqzW-8.jpg", "photo_1280": "https://pp.userap...0dc/kn_oZCESDRQ.jpg", "photo_2560": "https://pp.userap...0dd/q71XXLaaq3w.jpg", "width": 2560, "height": 1920, "text": "", "date": 1519908148, "lat": 47.102791, "long": 39.411101, "access_key": "97378c50a028947e3b" } }], "post_source": { "type": "vk" }, "comments": { "count": 3, "groups_can_post": true, "can_post": 1 }, "likes": { "count": 24, "user_likes": 0, "can_like": 1, "can_publish": 1 }, "reposts": { "count": 0, "user_reposted": 0 }, "views": { "count": 1047 } }], "profiles": [{ "id": 5374822, "first_name": "Стас", "last_name": "Дудукалов" }], "groups": [{ "id": 106277494, "name": "Азбука ремонта | Строительство", "screen_name": "azbuka.remonta", "is_closed": 0, "type": "page", "is_admin": 0, "is_member": 1, "photo_50": "https://pp.userap...d69/eI69KCDvU68.jpg", "photo_100": "https://pp.userap...d68/oB7S62mYKKE.jpg", "photo_200": "https://pp.userap...d67/4PV6lDjG-nI.jpg" }] } }

Начну с того, как я его получил:

      Dim GetReq As HttpWebRequest = DirectCast(WebRequest.Create("https://api.vk.com/method/wall.get?&owner_id=" & "id группы" & "count=5&filter=all&&order=hints&v=5.73&access_token=" & My.Settings.token), HttpWebRequest)
        Dim GetResponse As HttpWebResponse = DirectCast(GetReq.GetResponse(), HttpWebResponse)
        Dim reader = New StreamReader(GetResponse.GetResponseStream())
        Dim jsonString As String = reader.ReadToEnd() ' записываем все данные в переменную

Далее, парсер:

 Dim jsonObject As JObject = JObject.Parse(jsonString)
        Dim jsonArray As JArray = JArray.Parse(jsonObject.SelectToken("response")("items").ToString)
        Try
            For Each item As JObject In jsonArray
                MsgBox(item.SelectToken("text").ToString)
                MsgBox(item.SelectToken("attachments").ToString)
            Next
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
 
        GetResponse.Close()
        reader.Close()
    End Sub

Так вот проблема в том, что я не могу получить кол-во вложений. Будь то фото, видео, документ и т.д. Хотелось бы узнать их пол-во. Например в посте 9 фото. Можно использовать...

 item.SelectToken("attachments")(0)("photo")("photo_75").ToString

... Но! Получаю только одну фото из поста. А хочу получить все. Будь из то одна то 5 или все 10. Заранее спасибо!

Решение задачи: «Работа с json»

textual
                            Листинг программы 
                        

                            Dim _photos As MatchCollection = New Regex("photo_\d{2,4}"": ""(?<url>(.*?))""").Matches(jsonString)
        If _photos.Count > 0 Then
            For Each _photo In _photos
                Dim url = _photo.Groups("url").Value
            Next
        End If
                        