Posted to tcl by aspect at Tue Jan 02 22:45:30 GMT 2018view raw

  1. package require http
  2. package require tdom
  3.  
  4. set ::http::defaultCharset utf-8
  5.  
  6. set url {http://overpass-api.de/api/interpreter?data=%28way%2855.74%2C37.68%2C55.75%2C37.69%29%5B%22building%22%5D%5B%22addr%3Ahousenumber%22%5D%5B%22addr%3Astreet%22%5D%3Brelation%2855.74%2C37.68%2C55.75%2C37.69%29%5B%22building%22%5D%5B%22addr%3Ahousenumber%22%5D%5B%22addr%3Astreet%22%5D%3B%29%3Bout%3Bforeach%28%3E%3Bout%3B%29%3B}
  7.  
  8. #set token [http::geturl $url -binary true]
  9. #set data [encoding convertfrom utf-8 [http::data $token]]
  10. set token [http::geturl $url]
  11. set data [http::data $token]
  12. http::cleanup $token
  13.  
  14. set doc [dom parse $data]
  15.  
  16. set root [$doc documentElement]
  17. puts [$root nodeName]
  18.  
  19. foreach way [$root getElementsByTagName way] {
  20. foreach tag [$way getElementsByTagName tag] {
  21. set key [$tag getAttribute k]
  22. set value [$tag getAttribute v]
  23. puts "$key=$value"
  24. }
  25. puts "----------------------------------------"
  26. }
  27.  
  28. $doc delete
  29.