Newsgroup: it.comp.appl.access
Titolo: [OT] Access e Powerpoint. Leggere e aggiornare  in automatico i dati estrapolati da un sito meteo/Web service

Access / Powerpoint 2002 /2003
Ciao a tutto il News
Scusate il fuori tema.
Ho effettuato una marea di ricerche in rete per documentarmi e cercare di 
avere un riferimento per iniziare a capirci qualcosa e lavorare, con esito 
negativo.
Ho letto qualcosina sugli Web service, ma non ci ho capito molto, in 
particolare sul metodo di programmazione per reperire i dati necessari.
In sostanza, dovendo presentare un briefing meteo ogni mattina, con Access o 
Powerpoint poter far leggere le stringhe meteo dei vari aeroporti 
d'interesse (METAR e TAF) tratte dal sito 
www.meteoam.it
 e registrarle per 
utilizzarle non in linea durante la presentazione del briefing citato. 
Attualmente per presentare il briefing utilizzo Powerpoint, copiando e 
incollando tutto, ma è lunga da morire.
Potete darmi un'indicazione/aiuto da seguire se a voi è nota la soluzione o 
se avete un'idea.
Il sito e il percorso è il seguente:
http://www.meteoam.it/modules.php?name=metar&scelta=visualizza&nation_form=LIEE
www.meteoam.it
 \sezione aeronautica\metar delle stazioni
www.meteoam.it
 \sezione aeronautica\taf delle stazioni
Mille grazie
 Bruno

 ha scritto nel messaggio 
news:490b2e79$0$1071$4faf...@reader2.news.tin.it...

Puoi sempre inserire nella form in controllo webbrowser e fargli leggere le 
URL che vuoi:
es.
'---
Me!WebBrowser.Navigate2 
"
http://www.meteoam.it/modules.php?name=metar&scelta=visualizza&nation_form=LIEE
"
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
--------------------------
Grazie Sergio, purtroppo non mi č utile leggere l'URL, bensě abrei bisogno 
di leggere solamente le condizioni meteo che si trovano nella pagina.
Non essendo esperto, presumo sia necessario utilizzare del codice per l'web. 
Al momento non ho la minima idea da dove iniziare.
Ciao
Bruno 

 Bruno
Per "leggere le URL" intendevo: "caricare la pagina web nella form e 
visualizzarne il contenuto".
Comunque; devi leggere/visualizzare la tabella (tutta o in parte?) che viene 
presentata dopo aver scelto la località (cliccato sulla mappa geografica)?
Es.
Hai selezionato la stazione di Verona Villafranca
      Nome Completo ICAO WMO
      Verona Villafranca LIPX 16090
      METAR LIPX 030755Z 36004KT 9999 BKN020 BKN040 14/14 Q1018 RMK OVC VIS 
MIN 9999 WHT=
Cosa ti serve di questo output?
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:gembkf$t3n$1...@tdi.cu.mi.it...

---------------------------
Ciao Sergio, sei sempre in allerta!
Mi servirebbe questo: METAR LIPX 030755Z 36004KT 9999 BKN020 BKN040 14/14 
Q1018 RMK OVC VIS MIN 9999 WHT
che in chiaro, anche se non serve alla tua domanda ma giusto per vedere come 
si accorcia un METAR utilizzando i codici, corrisponde a : emissione del 
03novembre ore 07.55 UTC (tempo universale) vento da 360 gradi 4 nodi più di 
10 km di visibilità orizzonatale, nubi con squarci a 2000 piedi e nubi con 
squarci a 4000 pressione al livelllo del mare 1018 rimarca una copertura di 
8/8 una visibilità minima superiore ai 10 km colore della base bianca 
(visibilità orizzontale  > 5000 metri e > 1500 piedi di altezza copertura 
nubi).
Con il permesso di chie è responsabile e con il tuo consenso, posso inviarti 
via e-mail una lastrina in powerpoint, giusto per vedere cosa devo ottenere 
in access ?
Grazie
    Bruno 

    Bruno
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:4910075a$0$11390$5fc...@news.tiscali.it...

------------
Caro Sergio, per me, per quel che so di informatica, gi� si tratta di 
fantascienza. Dopo la tua spiegazione ho capito che non ce sta nulla da fa; 
pazienza.
Per ora ti ringrazio per il tempo dedicato.
Bruno 

 Bruno
Veramente non ho detto questo; ho solo illustrato cosa bisognava fare per 
arrivare all'obbiettivo. La via alternativa è contattare i responsabili del 
sito o di chi fornisce/pubblica i dati per sapere se hanno un modo 
"automatico" per ottenerle (es. Feed RSS, file XML, etc. etc.).
Comunque ti dico che è fattibile; ora non ho molto tempo, ma a breve 
risponderò a te e a tutti gli altri che attendono risposte...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:gergog$p5d$1...@tdi.cu.mi.it...

----------------------
Grazie, attendo e nel frattempo, appena posso cerco di contattare i 
responsabili del sito per avere maggiori informazioni.
Ciao
Bruno 

 Bruno
Scusa per il ritardo; spero tu abbia già risolto, altrimenti posso 
riprendere il discorso.
Resto in attesa...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:gigltt$m87$1...@tdi.cu.mi.it...

---------------
Perchè ti scusi per il ritardo? Oltre ad aiutare il prossimo, ora ti scusi 
pure. Ci mancherebbe! Sono io che devo ringraziare te e tutti gli altri che 
danno il loro contributo in questo News (io non sono fra di voi, vista la 
mia scarsa competenza nella materia trattata).
Se hai trovato una soluzione che non sia irraggiungibile per me, allora Ok, 
diversamente consiglio di non perder tempo con me; sicuramente il tempo che 
dedicheresti agli altri bisognosi del news è più ben speso.
Ciao, Bruno 

 Ciao, Bruno
Ciao.
-- 
Sergio MAZZA 

Scusate se faccio una domanda OT ma forse Bruno può aiutarmi
Conosci per caso un sito o luogo dove capire che tempo faceva ad una
certa datae in un certo luogo?
Per esempio il 23 dicembre 2007 pioveva? grandinava? c'era il sole?
chi ce lo può dire?
Ciao
Alex

 ha scritto nel messaggio 
news:16d690f9-99c7-4e10...@z28g2000prd.googlegroups.com...
Scusate se faccio una domanda OT ma forse Bruno puņ aiutarmi
Conosci per caso un sito o luogo dove capire che tempo faceva ad una
certa datae in un certo luogo?
Per esempio il 23 dicembre 2007 pioveva? grandinava? c'era il sole?
chi ce lo puņ dire?
Ciao
Alex
---------
Ciao Alex, per ora non ho trovato di meglio.
Ciao, Bruno
http://www.eurometeo.com/italian/city/archive_select
http://www.arpa.emr.it/
http://meteo.corriere.it/notizie/archivio.shtml
http://www.meteogiornale.it/news/archive.php?type=topic&id=72
http://www.ilmeteo.it/portale/archivio-meteo?gclid=CJiJsraw15cCFQFbtAodByb6Cg
----------------

Molte grazie

 Molte grazie
---------
Per cosě poco! Grazie a te.
Ciao, Bruno 

 ha scritto nel messaggio 
news:490b2e79$0$1071$4faf...@reader2.news.tin.it...

Prova con questo esempio:
'---
On Error GoTo errori
Dim oBrws As New SHDocVw.InternetExplorer
Dim oDoc As Object
Dim oMap As Object
Dim nArea As Integer, linkTrovato As Boolean
Dim oElemento As Object
linkTrovato = False
oBrws.Navigate "
http://www.meteoam.it/modules.php?name=metar
"
Do
    DoEvents
    If oBrws.readyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
Set oDoc = oBrws.Document
Set oMap = oDoc.getElementsByTagName("MAP")
For nArea = 0 To oMap(0).areas.Length - 1
    If InStr(oMap(0).areas(nArea).alt, "Villafranca") Then
        oMap(0).areas(nArea).Focus '<-- seleziono il link
        oMap(0).areas(nArea).Click '<-- clicco
        linkTrovato = True
        Exit For
    End If
Next
If linkTrovato Then
    Do
        DoEvents
        If oBrws.readyState = READYSTATE_COMPLETE Then
            Exit Do
        End If
    Loop
    Set oDoc = oBrws.Document
    Do '<-- ciclo fino al riempimento del codice HTML
        DoEvents
        On Error Resume Next
        inizio = InStr(oDoc.body.innerHTML, "METAR LIPX")
        fine = InStr(inizio, oDoc.body.innerHTML, "</td>")
        If Err.Number = 0 Then
            On Error GoTo 0
            Exit Do
        End If
    Loop
    Debug.Print Mid(oDoc.body.innerHTML, inizio, fine - inizio) '<--  
risultato
End If
Set oMap = Nothing
Set oDoc = Nothing
Set oBrws = Nothing
Exit Sub
errori:
MsgBox Err.Number & " " & Err.Description
Set oMap = Nothing
Set oDoc = Nothing
Set oBrws = Nothing
'---
Occhio che, data la variabilità del codice HTML nelle pagine web (es. 
rifacimento sito), il risultato potrebbe cambiare.
Devi inserire i riferimenti alla libreria:
'--> Microsoft Internet Controls
'--> Microsoft HTML Object Library
Ciao.
-- 
Sergio MAZZA