Newsgroup: it.comp.appl.access
Titolo: importare latitudine e longitudine da http://mappe.libero.it/mappe

Ciao a tutti,
in una maschera in visualizzazione : Maschera singola
ho come origine dati l'anagrafica clienti
vorrei inviare al sito
http://mappe.libero.it/mappe
le seguenti informazioni :
-Nazione Città, Cap e Indirizzo dei nominativi presenti nella tabella 
clienti
al fine di ricercare le coordinate di latitudine e longitudine che 
automaticamente vorrei importare e memorizzarle nei rispettivi campi.
grazie per l'aiuto
-- 
_______________________________
Andrea Papi
Amministrazione Provinciale di Forlì-Cesena
Servizi Provinciali per l'Impiego
Via Fornaci, 170  - 47023 Cesena (FC)
Tel. 0547/621013 - Fax 0547/29456
mobile . 
329-2103106


Ho risolto
saluti
Andrea Papi 


per completezza.. come?
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 ha scritto nel messaggio 
news:e29vva$tf1$1...@area.cu.mi.it...

ho preso spunto dal db GEN_HTML_TEXT.mdb posto nella sezione General del 
Sito Comune
6.189 Web Scraping ovvero come estrarre da codice VBA l'HTML di una pagina 
web
ecc. ecc.
comunque questa è la routine:
Private Sub Comando0_Click()
On Error GoTo err_proc
Dim str_link As Variant
Dim str_indirizzo As Variant
Dim str_citta As Variant
Dim str_cap As Variant
Dim scratch As Variant
Dim pos1, pos2 As Integer
Dim Latitudine, Longitudine As String
Dim Comodo1, Comodo2 As String
Dim vGradi
str_link = "
http://mappe.libero.it/mappe/search.jsp?country=IT&city=
"
str_indirizzo = Nz(Me!Indirizzo, "")
str_citta = Nz(Me!Citta, "")
str_cap = Nz(Me!Cap, "")
str_link = str_link & str_citta
str_link = str_link & "&zipCode=" & str_cap
str_link = str_link & "&street=" & str_indirizzo
str_link = Replace(str_link, ",", " ")
Dim oHttp As Object
    Dim txtRequestString As String
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    txtRequestString = str_link
    oHttp.Open "GET", txtRequestString, False
    oHttp.send
    scratch = oHttp.responseText
        pos1 = InStr(1, scratch, "Lat.: ")
         If pos1 > 0 Then
                pos2 = InStr(pos1 + 6, scratch, """ N")
                Comodo1 = VBA.Strings.Mid(scratch, pos1 + 6, pos2 - (pos1 + 
6))
                pos1 = InStr(1, scratch, "Long.: ")
                pos2 = InStr(pos1 + 7, scratch, """ E")
                Comodo2 = VBA.Strings.Mid(scratch, pos1 + 7, pos2 - (pos1 + 
7))
                Comodo1 = Replace(Comodo1, "°", "'")
                vGradi = Split(Comodo1, "'")
                Latitudine = Replace(CStr(Round(vGradi(0) + vGradi(1) / 60 + 
vGradi(2) / 3600, 6)), ",", ".")
                Comodo2 = Replace(Comodo2, "°", "'")
                vGradi = Split(Comodo2, "'")
                Longitudine = Replace(CStr(Round(vGradi(0) + vGradi(1) / 60 
+ vGradi(2) / 3600, 6)), ",", ".")
         Else
                    Latitudine = "0.0"
                    Longitudine = "0.0"
        End If
                msgbox ("Latitudine: " & Latitudine & vbNewLine & _
                                "Longitudine: " & Longitudine)
err_exit:
    Exit Sub
err_proc:
    MsgBox Err.Description
    Resume err_exit
End Sub
a questo punto è sufficiente fare il ciclo sull'intera tabella per ricavare 
per tutti i nominativi le loro coordinate e memorizzarle negli appositi 
campi
poi bisogna trasmettere il tutto al GPS. per fare questo bisogna prima 
creare un file in formato leggibile dal GPS ( es. PuntiDiInteresse.csv)
saluti
Andrea Papi

 Andrea Papi
Perchè non ne fai un articoletto da inserire su Accessgroup?


MA ha scritto:

Ciao MA,
come faccio per inviarvi il db d'esempio con i relativi commenti?
Andrea Papi


mandali a me
master      at    massimilianoamendola  punto it
e ci penso io


fatto
ciao
Andrea Papi

 Andrea Papi
Sei online
Grazie per il contributo e complimenti per il lavoro


Non trovi che le nuove mappe di libero siano peggiori di quelle che avevano
prima ???
Tra l'altro sono identiche a quelle di yahoo che non usavo , prese da
tuttocittà .
che ne pensi ?
Non so come contattarli per farglielo sapere
spero tu possa darmi un consiglio
 A me servono mappe che mi diano una chiara idea dell'area e delle zone
circostanti . Mi chiedo quali altri siti usino il vecchio tipo : era fatto
benissimo e ora sono disperata
help
Amy
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


maps.google.com
