url = "https://data.cms.gov/data.json" title= "Specific Chronic Conditions" time_period = "2017-01-01/2017-12-31" response = requests.request("GET", url) if response.ok: response = response.json() dataset = response['dataset'] for set in dataset: if title == set['title']: for distro in set['distribution']: if 'format' in distro.keys(): if distro['format'] == "API" and distro['temporal'] == time_period: print(f"API link for {title} from {time_period} is {distro['accessURL']}")
Sub btnGetJson_Click(sender As Object, e As EventArgs) Dim URL1 = "https://data.cms.gov/data.json" Dim title = "Specific Chronic Conditions" Dim time_period = "2017-01-01/2017-12-31" Dim url As String = URL1 Dim webRequest As WebRequest = webRequest.Create(url) Dim request As HttpWebRequest = CType(webRequest, HttpWebRequest) request.Method = "GET" request.ContentType = "application/json" Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) Dim jsonString As String = "" Using reader As StreamReader = New StreamReader(response.GetResponseStream()) jsonString = reader.ReadToEnd() End Using End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)