Oppure

Loading
08/12/07 9:50
mirkaccio
Salve a tutti, è il mio primo post in questo forum e spero possiate aiutarmi!
Vorrei realizzare un programma in visual basic per seguire l'andamento di alcuni titoli azionari.
Il mio problema è acquisire dalla pagina web il prezzo di una azione.
Ad esempio se nella pagina del sito c'è scritto "ENI Valore quota: 25,0 Euro" io dovrei poter inserire in una variabile il valore 25,0.
Pensavo di fare una scansione della pagina come se fosse un file, fino a trovare la stringa "ENI Valore quota:" e poi acquisire il valore, ma non so come fare per leggere la pagina web!
Spero di essere stato abbastanza chiaro e ringrazio fin da subito chi mi risponderà...
aaa
08/12/07 13:50
moet
Io non sono capace ma mi piace l' idea e mi informero' anche io.

Sicuramente a naso non opterei per scansionare la pagina per trovare "ENI" perche questo sarebbe limitativo.

Cmq bella domanda! mi informero anche io !!!!
aaa
08/12/07 21:10
mirkaccio
Ho risolto in questo modo:

Set ie = CreateObject("InternetExplorer.Application";)
ie.navigate "it.finance.yahoo.com/q/…;
Do Until ie.readystate = 4: Loop
TestoPagina = ie.document.body.innerText
ie.quit

in pratica si apre la pagina che ci interessa attraverso internet explorer e tutto il testo della pagina viene restituito nella stringa TestoPagina.
Non mi piace molto neanche a me la soluzione di fare la scansione della pagina, ma è quello più semplice che mi è venuto in mente, se avete altre idee sono ben accette! :k:
Ultima modifica effettuata da mirkaccio 08/12/07 21:18
aaa
09/12/07 13:32
P4p3r0g4
la scansione e` l'unica soluzione ma al posto di internet explorer usa piuttosto il componente Inet (internet file transfer protocol credo o qualcosa di simile) che sicuramnete hai il form piu` pulito...
aaa
09/12/07 18:20
gius
Prova questo
Ti salva la pagina weeb in un file ed intanto viene una cosa più pulita e poi te la salva in un file .html e puoi cercare tranquillamente quello che hai bisogno
Dim OggettoHttp As Object
'
Sub CaricaPaginaDaInternet(Url)
Dim txtPage As String
Set OggettoHttp = CreateObject ("microsoft.xmlhttp")
OggettoHttp.Open "GET", Url, False
OggettoHttp.send
txtPage = OggettoHttp.responseText
Set OggettoHttp = Nothing
' per salvare il file
Close #1: Open "paginahtml.html" For Output As #1
Print #1, txtPage: Close #1
End Sub
aaa
19/12/07 21:21
desanti5
ma dove si mette l'indirizzo della pagina da salvare? Nel form che cosa bisogna mettere per dare il via al salvataggio della pagina web?
aaa