Newsgroup: it.comp.appl.access
Titolo: Utilizzo del WebScraping di Alessandro: "Testo da modificare troppo lungo"

Ho adattato e provato, come già detto, questo esempio fornito da
Alessandro sul suo sito ma mi restituisce il messaggio riportato in
oggetto.
Come mai?
Come rimediare?
Grazie!
^__^
leev

 ha scritto nel messaggio 
news:1163097139.9...@f16g2000cwb.googlegroups.com...

Grazie!
^__^
leev
[risposta]
Se l'hai modificato sarebbe utile, per aiutarti, capire il come; il 
messaggio di errore che indichi lo trovo (su: 
http://support.microsoft.com/search/default.aspx
) solo se stai inserendo un 
testo troppo lungo in un campo memo di access.
Corrisponde alla tua situazione?
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
No, quello l'ho letto anche io ma non trattandosi di campo memo....
L'unica modifica che ho fatto è eliminare il valore predefinito per la
casella dove va inserito l'indirizzo e cambiare una riga di codice per
attivare la casella suddetta (altrimenti l'indirizzo era sempre quello
del SitoComune).
Option Compare Database
Option Explicit
Private Sub Comando0_Click()
   Dim oHttp As Object
    Dim txtRequestString As String
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    txtRequestString = Me.Testo3    ' era:    txtRequestString =
"
http://www.sitocomune.com/
"
    oHttp.Open "GET", txtRequestString, False
    oHttp.send
    txtHTML = oHttp.responseText
End Sub
e il sito che ho usato come esempio è
http://filmup.leonardo.it/sc_monster.htm
gracias
leev

 ha scritto nel messaggio 
news:1163168099....@f16g2000cwb.googlegroups.com...
No, quello l'ho letto anche io ma non trattandosi di campo memo....
L'unica modifica che ho fatto è eliminare il valore predefinito per la
casella dove va inserito l'indirizzo e cambiare una riga di codice per
attivare la casella suddetta (altrimenti l'indirizzo era sempre quello
del SitoComune).
Option Compare Database
Option Explicit
Private Sub Comando0_Click()
   Dim oHttp As Object
    Dim txtRequestString As String
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    txtRequestString = Me.Testo3    ' era:    txtRequestString =
"
http://www.sitocomune.com/
"
    oHttp.Open "GET", txtRequestString, False
    oHttp.send
    txtHTML = oHttp.responseText
End Sub
e il sito che ho usato come esempio è
http://filmup.leonardo.it/sc_monster.htm
gracias
leev
[risposta]
Ma "txtHTML" cos'è?
Questo è quello che ho utilizzato io:
'---
Dim HttpReq As New WinHttpRequest
Dim strUrl(4) As String, xIndice As Integer
Dim txthtml As String
strUrl(1) = "
http://filmup.leonardo.it/sc_monster.htm
"
strUrl(2) = "
http://www.trtrtrtrtrtrttr.com
"
strUrl(3) = "
http://www.aleszandrobaraldi.it
"
strUrl(4) = "
http://www.xsitocomune.com
"
' Open an HTTP connection.
On Error Resume Next
For xIndice = 1 To UBound(strUrl)
    HttpReq.Open "GET", strUrl(xIndice), False
    ' Send the HTTP Request.
    HttpReq.Send
    If Err.Number <> 0 Then
        Debug.Print strUrl(xIndice) & ", non va da nessuna parte!"
    Else
        Debug.Print strUrl(xIndice) & ", Link Ok!"
        'Debug.Print HttpReq.responseText '<-- restituisce l'HTML
        txthtml = HttpReq.responseText
        'Debug.Print HttpReq.responseBody '<-- codificato
        'Debug.Print HttpReq.responseStream '<-- codificato
    End If
    Err.Clear
    HttpReq.abort
Next
'---
e non mi presenta nessun errore...
Ciao.
-- 
Sergio MAZZA 

 '---
[cut]
Adesso mi viene in mente che ho fatto la conversione da 97 a 00. Ma
possibile che abbia così stravolto il codice?
Ora provo a riscaricarlo e vederlo nella versione originale. Per
chiarezza parlo dell'esempio n° 32 della sezione General.

No, non ha stravolto niente il codice è proprio questo:
Option Compare Database
Option Explicit
Private Sub Comando0_Click()
   Dim oHttp As Object
    Dim txtRequestString As String
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    txtRequestString = "
http://www.sitocomune.com/
"
    oHttp.Open "GET", txtRequestString, False
    oHttp.send
    txtHTML = oHttp.responseText
End Sub
??????????????????????????

 ha scritto nel messaggio 
news:1163170884.1...@i42g2000cwa.googlegroups.com...
No, non ha stravolto niente il codice č proprio questo:


End Sub
??????????????????????????
[risposta]
(ripeto) Ma "txtHTML" cos'č?
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
E' la finestra incaricata di mostrare il testo ricavato dalla pagina
web. Pensavo tu avessi scaricato l'esempio, scusa.

 ha scritto nel messaggio 
news:1163435526.7...@e3g2000cwe.googlegroups.com...
E' la finestra incaricata di mostrare il testo ricavato dalla pagina
web. Pensavo tu avessi scaricato l'esempio, scusa.
[risposta]
Sě, scusa, l'avevo scaricato e funzionava; mi era passato di mente e se non 
vedo il riferimento all'oggetto padre (la form in questo caso) non riesco a 
capire il codice.
Comunque la situazione non cambia, entrambi gli esempi mi funzionano...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
^__^
leev

Allora, l'ho fatto mentre mangiavo:
mi sono recato sul sito di Alessandro baraldi, sezione GENERAL, esempio
32, corrispondente alla pagina
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=150
dalla quale ho scaricato il file ZIPpato GEN_HTML_TEXT.EXE. lo ho
scompattato e ne ho ricavato l'omonimo file .MDB (e ne ho fatta una
copia).
L'ho aperto, eseguendo la conversione per A00 (poi lo ho rifatto senza
eseguire la conversione e fregandomene dei messaggi "impossibile
apportare modifiche" visto che cambiando solamente l'URL nel codice, si
riesce. Il risultato comunque è il medesimo del primo caso).
La casello di testo per gli indirizzi testo3 è inutile perchè viene
comunque cercato l'indirizzo impostato nel codice, quindi nel codice
rispondente all'evento onClick del pulsante Comando0,
ho sostituito la riga
    txtRequestString = "
http://www.sitocomune.com/
"
con
    txtRequestString = "
http://filmup.leonardo.it/sc_monster.htm
"
Nella finestra txtHTML mi appare parte del testo (fino a riempire la
finestra). Quando però vi clicko sopra per scorrere il testo, mi
compare il famigerato "Testo da modificare troppo lungo".
Ora  non è possibile che a te riesca facendo le stesse operazioni che
faccio io!!!!!!!!
GRRRRRRRRRRRRRRRR
^__^

 ha scritto nel messaggio 
news:1163510399.0...@e3g2000cwe.googlegroups.com...




^__^
[risposta]
Mi dispiace; ho scaricato l'esempio, trasformato in Acc'2000 e... Funziona.
Ciao.
-- 
Sergio MAZZA 

 Mi dispiace; ho scaricato l'esempio, trasformato in Acc'2000 e... Funziona.
Ma lo hai provato con l'URL che ho indicato io? E poi hai clickato
sulla finestra per scorrere il testo come ho fatto io?
Dai, scusa, ma non è possibile....
Non avrebbe senso, no?.....
Che spiegazione potrebbe esserci?
