Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
34 lines (31 sloc) 1.29 KB
Imports Route4MeSDKLibrary.Route4MeSDK
Imports Route4MeSDKLibrary.Route4MeSDK.DataTypes
Imports Route4MeSDKLibrary.Route4MeSDK.QueryTypes
Namespace Route4MeSDKTest.Examples
Partial Public NotInheritable Class Route4MeExamples
''' <summary>
''' Rapid Street Data Single
''' </summary>
Public Sub RapidStreetDataSingle()
' Create the manager with the api key
Dim route4Me As New Route4MeManager(c_ApiKey)
Dim geoParams As New GeocodingParameters With { _
.Pk = 4
}
' Run the query
Dim errorString As String = ""
Dim result As ArrayList = route4Me.RapidStreetData(geoParams, errorString)
Console.WriteLine("")
If result IsNot Nothing Then
Console.WriteLine("RapidStreetDataSingle executed successfully")
For Each res1 In result
Console.WriteLine("Zipcode: " & res1("zipcode"))
Console.WriteLine("Street name: " & res1("street_name"))
Console.WriteLine("---------------------------")
Next
Else
Console.WriteLine("RapidStreetDataSingle error: {0}", errorString)
End If
End Sub
End Class
End Namespace
You can’t perform that action at this time.