31/01/10 16:31
tommyk81
Ciao a tutti, sono nuovo in questa comunità e avrei bisogno di un grosso aiuto per risolvere un problema che non mi fa dormire da un paio di notti
Allora, devo creare un piccolo vb script che una volta avviato funziona così:
- Appare MsgBox che richiede "Inserire numero ordine"
- Il numero dell'ordine inserito va a completare un indirizzo web preimpostato (es: indirizzo web preimpostato prova.com/…=)
- Nella pagina che si genera (es: prova.com/…), tra le altre, c'è una riga di testo riportante "Data consegna:"
A me servirebbe praticamente prendere il testo mostrato dopo "Data consegna:" e riportarlo in un popup a schermo (tramite MsgBox) senza che però venga aperta la pagina web in questione.
E' possibile fare una cosa del genere?
La prima parte l'ho già fatta, mi manca "solo" quella della ricerca del testo nella pagina e il suo "riporto" nel MsgBox
Spulciando nel forum ho trovato una buona via intermedia con questa funzione
Set ie = CreateObject("InternetExplorer.Application"
ie.navigate "URL"
Do Until ie.readystate = 4: Loop
TestoPagina = ie.document.body.innerText
MsgBox(TestoPagina)
ie.quit
In questo modo nel "MsgBox" apparirà tutta la pagina aperta dalla funzione "ie.navigate" in forma di testo. E' possibile estrapolare solo una certa porzione di questo testo o al limite mostare solo, ad esempio, la riga numero 4 del testo in questione?
Spero di essermi spiegato!
Grazie mille per l'aiuto!
Allora, devo creare un piccolo vb script che una volta avviato funziona così:
- Appare MsgBox che richiede "Inserire numero ordine"
- Il numero dell'ordine inserito va a completare un indirizzo web preimpostato (es: indirizzo web preimpostato prova.com/…=)
- Nella pagina che si genera (es: prova.com/…), tra le altre, c'è una riga di testo riportante "Data consegna:"
A me servirebbe praticamente prendere il testo mostrato dopo "Data consegna:" e riportarlo in un popup a schermo (tramite MsgBox) senza che però venga aperta la pagina web in questione.
E' possibile fare una cosa del genere?
La prima parte l'ho già fatta, mi manca "solo" quella della ricerca del testo nella pagina e il suo "riporto" nel MsgBox
Spulciando nel forum ho trovato una buona via intermedia con questa funzione
Set ie = CreateObject("InternetExplorer.Application"
ie.navigate "URL"
Do Until ie.readystate = 4: Loop
TestoPagina = ie.document.body.innerText
MsgBox(TestoPagina)
ie.quit
In questo modo nel "MsgBox" apparirà tutta la pagina aperta dalla funzione "ie.navigate" in forma di testo. E' possibile estrapolare solo una certa porzione di questo testo o al limite mostare solo, ad esempio, la riga numero 4 del testo in questione?
Spero di essermi spiegato!
Grazie mille per l'aiuto!
aaa