Address.Street = "1600 Pennsylvania Avenue NW"
Address.City = "Washington"
Address.State = "DC"
PRINT ValidateAddress
(Address
)
URL = "https://us-street.api.smartystreets.com/street-address?auth-id=YOURAUTHIDHERE&auth-token=YOURAUTHTOKENHERE&"
URL = URL + "street=" + FormatAsHTTP(Address.Street) + "&"
URL = URL + "city=" + FormatAsHTTP(Address.City) + "&"
URL = URL + "state=" + Address.State + "&"
URL = URL + "candidates=1"
URLFile = "addressvalidation.json"
a% = FileDownload(URL, URLFile)
ValidateAddress = "Could not validate"
validation$
= MID$(result$
, INSTR(result$
, "dpv_match_code") + 17, 1) ValidateAddress = "Address exists and is correct"
ValidateAddress = "Address either doesn't exist or is invalid"
start% = 1
position%
= INSTR(start%
, Request
, " ") MID$(Request
, position%
, 1) = "+" start% = position% + 1
FormatAsHTTP
= LCASE$(Request
)
FileDownload
= URLDownloadToFileA
(0, URL
+ CHR$(0), File
+ CHR$(0), 0, 0)