Hoi,
Welkom op Helpmij.nl!
Ik gebruik eigenlijk nooit excel (en heb het ook niet (meer) op mijn computer staan), maar ik weet wel dat je voor zo'n soort taak eerst moet kijken hoe het bestand precies in elkaar zit. Ik heb dat voor de eerste twee id's gedaan en de id's lijken de volgende 'layout' te hebben (de makkelijkste weergave vind ik in Notepad++):
[CPP]{"results":
[
{
"id":93589,"name":"Sisa Broodjes","category":"Surinamese","telephone":"06-34500840","fax":null,"website_url":"http://www.sisabroodjes.nl","tagline":null,"rating":99,"url":"http://www.eet.nu/zwaag/sisa-broodjes","created_at":"2013-04-06T07:42:39Z","updated_at":"2013-06-26T21:50:56Z","address":
{
"street":"Corantijn 7a","zipcode":"1689 AN","city":"Zwaag","region":"Noord-Holland"
}
,"plan":"premium","images":
{
"original":
[
"http://d210k15dqqhs72.cloudfront.net/attachments/47261/image-jpg20130409-12726-18p9e6e_original.jpg?1365540065","http://d210k15dqqhs72.cloudfront.net/attachments/47269/image-jpg20130409-12732-ixjzcs_original.jpg?1365543659","http://d210k15dqqhs72.cloudfront.net/attachments/51477/image-jpg20130524-22912-brb3mi_original.jpg?1369424343","http://d210k15dqqhs72.cloudfront.net/attachments/51485/image-jpg20130524-22912-zcv2av_original.jpg?1369424526","http://d210k15dqqhs72.cloudfront.net/attachments/51489/image-jpg20130524-22912-1y6fpgu_original.jpg?1369424636"
]
,"cropped":
[
"http://d210k15dqqhs72.cloudfront.net/attachments/47261/image-jpg20130409-12726-18p9e6e_featured.jpg?1365540065","http://d210k15dqqhs72.cloudfront.net/attachments/47269/image-jpg20130409-12732-ixjzcs_featured.jpg?1365543659","http://d210k15dqqhs72.cloudfront.net/attachments/51477/image-jpg20130524-22912-brb3mi_featured.jpg?1369424343","http://d210k15dqqhs72.cloudfront.net/attachments/51485/image-jpg20130524-22912-zcv2av_featured.jpg?1369424526","http://d210k15dqqhs72.cloudfront.net/attachments/51489/image-jpg20130524-22912-1y6fpgu_featured.jpg?1369424636"
]
}
,"resources":
{
"self":"http://api.eet.nu/venues/93589","reviews":"http://api.eet.nu/venues/93589/reviews","country":"http://api.eet.nu/locations/1974","region":"http://api.eet.nu/locations/8","city":"http://api.eet.nu/locations/90"
}
,"geolocation":
{
"latitude":52.6689576,"longitude":5.0694424
}
,"counters":
{
"images":5,"menus":2,"reviews":4
}
}
,
{
"id":10638,"name":"IJssalon Garrone","category":"Ice parlor","telephone":"023-5312173","fax":null,"website_url":null,"tagline":null,"rating":98,"url":"http://www.eet.nu/haarlem/ijssalon-garrone","created_at":"2009-01-27T08:16:34Z","updated_at":"2013-05-02T19:46:39Z","address":
{
"street":"Grote Houtstraat 179","zipcode":"2011 SM","city":"Haarlem","region":"Noord-Holland"
}
,"plan":"regular","images":
{
"original":[],"cropped":[]
}
,"resources":
{
"self":"http://api.eet.nu/venues/10638","reviews":"http://api.eet.nu/venues/10638/reviews","country":"http://api.eet.nu/locations/1974","region":"http://api.eet.nu/locations/8","city":"http://api.eet.nu/locations/20"
}
,"geolocation":
{
"latitude":52.3764992,"longitude":4.6311898
}
,"counters":
{
"images":0,"menus":0,"reviews":14
}
}[/CPP]
Ik zei aan het begin van mijn post al dat ik geen excel heb en je daarmee dus ook niet helemaal goed verder kan helpen, maar ik heb wel ervaring met Visual Basic.NET, wat erg schijnt te lijken op VBA (de programmeertaal die je in excel zou kunnen gebruiken (
linkje)). Dus misschien kan ik je later alsnog helpen met het programmeren.
Succes! :thumb:
MartinJM
[edit]
Ik heb in Visual Basic.NET een klein programmaatje gemaakt wat de klus (gedeeltelijk) klaart. Het programmaatje zet alle restaurants in een nieuwe rij in een listview. Het is iets anders dan wat je nodig hebt, maar het gaat al in die richting!
Ik wil er nog wel even bij zeggen dat deze code even snel bedacht is en dat er vast een betere manier is om deze taak uit te voeren.
[/edit]
[CPP]
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Wc As New Net.WebClient
Dim WebSite As String = Wc.DownloadString("https://api.eet.nu/venues")
WebSite = WebSite.Remove(0, WebSite.IndexOf("["))
ListView1.Items.Clear()
Dim i = 0
Do
i = WebSite.IndexOf("}", WebSite.IndexOf("}", WebSite.IndexOf("}", WebSite.IndexOf("}", WebSite.IndexOf("}", WebSite.IndexOf("}") + 1) + 1) + 1) + 1) + 1)
Dim Item As New ListViewItem
Item.Text = WebSite.Substring(0, i + 1)
ListView1.Items.Add(Item)
WebSite = WebSite.Remove(0, i + 1)
Loop Until i = -1
End Sub
End Class
[/CPP]
