Newsgroup: it.comp.appl.access
Titolo: Visual Basic e Access...problema codifica caratteri con MSXML2.XMLHTTP!!

Ciao a tutti, grosso problema!!
Ho il seguente codice
Set oHttp = CreateObject("MSXML2.XMLHTTP")
oHttp.Open "GET", txtRequestString, False (dove txtRequestString č un URL)
oHttp.Open "GET", txtRequestString, False
oHttp.send
txtHTML = oHttp.responseText
Il problema č il seguente.
In txtHTML, che č una casella di testo, mi ritrovo tanti caratteri 
codificati in maniera errata, come ad esempio le lettere accentate.Mi 
ritrovo ad esempi delle Pipe o dei quadrati. Come fare per fargliele 
estrarre in maniera corretta???
Se sono stato poco chiaro, ditemelo, ed io provvederň a spiegare meglio.
Non esiste un qualche altro comando diverso da 
CreateObject("MSXML2.XMLHTTP"), che permette di estrarre in maniera corretta 
i caratteri dal sito internet??
Spero possiate darmi una mano.
Grazie a tutti per la cortese attenzione.
tranky 

 tranky
Ciao,
Massimo 

 forse troverai anche un esempio.
io ho proprio iniziato con il suo esempio...per poi rendermi conto che ciň 
che estrevo nel punto in cui doveva esserci una lettera accentata risultava 
essere un bel quadratino. io vorrei solo risolvere questo problema. 


Ma tu cosa devi fare esattamente?
Piů che altro perchč cosě forse riesco a darti un'altra idea, io o 
qualcun'altro
Ciao,
Massimo 

 qualcun'altro
Esattamente devo estrarre dei valori da un sito web.
Supponiamo che il sito sia 
http://www.cinematografo.it/bdcm/bancadati_scheda.asp?sch=43314
Se scaricate tutto il codice all'interno di una casella di testo utilizzando 
MSXML2.XMLHTTP e andate a cercare la trama del film, vedrete i quadrati al 
posto delle lettere accentate.
Mi domando quindi....come fare per prelevare i caratteri nella maniera più 
idonea?
Se serve qualche altra informazioni sono qui a disposizione.
grazie della pazienza. 

 tranky
Prova a inserire un controllo webBrowser, con questo esempio leggi (nella 
finestra di debug) il contenuto di ogni tabella;
es.
Dim oDoc As MSHTML.IHTMLDocument
Dim oTbl As Object
Dim oTblRw As Object
Dim oTblCll As Object
Me!WebBrowser0.Navigate 
"
http://www.cinematografo.it/bdcm/bancadati_scheda.asp?sch=43314
"
Set oDoc = WebBrowser0.Document
For Each oTbl In oDoc.getElementsByTagName("TABLE")
  For Each oTblRw In oTbl.Rows
    For Each oTblCll In oTblRw.Cells
      Debug.Print oTblCll.innerText
    Next oTblCll
  Next oTblRw
Next oTbl
C'è un solo problema, il codice html che viene prodotto dalla pagina 
dinamina non è "ben curato" (per essere gentili) e quindi potresti 
incontrare dei problemi nella lettura dei contenuti delle celle...
Ciao.
-- 
Sergio MAZZA 

 "
http://www.cinematografo.it/bdcm/bancadati_scheda.asp?sch=43314
"
Sergio questo link porta ad una tua foto.
Vanitoso.
-- 
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

 ha scritto nel messaggio 
news:bg67e.1248$TR5...@news.edisontel.com...

Porcazozza! Ci sono cascato co' tutte le scarpe!
Sono pure andato a vedere se era come dicevi...
Io tordo, MA tu bastardo!
Ciao.
-- 
Sergio MAZZA 

 Ciao.
Guarda che veramente ti somiglia, sono solo sfumature (di colore non ti
pettinatura...)



AH! Tu dicevi l'orco... Io pensavo l'asino...
Allora mi è andata meglio...
Ciao.
-- 
Sergio MAZZA 

 Ciao.
Ciao,
Massimo