Code: Select all
Procedure.s URLToQueryYahoo(Query.s, FormatJSON=#True, YahooQueryURL.s="https://query.yahooapis.com/v1/public/yql?diagnostics=true&callback=&q=")
Protected url.s=YahooQueryURL+URLEncoder(Query)
If FormatJSON
url+"&format=json" ;Results will be formatted in JSON
Else
url+"&format=xml" ;Results will be formatted in XML
EndIf
ProcedureReturn url
EndProcedure