Newsgroup: it.comp.appl.access
Titolo: Concatenazione e scrittura file XML di testo

Ciao a tutti,
forse mi sto perdendo in un bicchiere d'acqua, ma non capisco perchč mi 
faccia questo scherzo.
Situazione, sto generando un file xml da vba, poi lo devo salvare come file 
su una cartella dove č presente un file di trasformazione xsl
Dim XmlDocument As New DOMDocument
... procedura che genera xml perfettamente funzionante
If Me.ChkXML Then
    Me.Testo60 = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "encoding=" 
& Chr(34) & "UTF-8" & Chr(34) & "?> <?xml-stylesheet type=" & Chr(34) & 
"text/xsl" & Chr(34) & " href =" & Chr(34) & "C:\test.xsl" & Chr(34) & "?> " 
& XmlDocument.xml
    Open "C:\test.xml" For Output As #1
'    Print #1, Me.Testo60  'scrive il file ma lo scrive sbagliato, sbaglia 
alcuni caratteri come il diametro ecc.
'    print #1 XmlDocument.xml 'funziona perfettamente ma non la 
trasformazione, per cui quando lo apro non lo gestisce correttamente
    Close #1
    Shell ("C:\Program Files\Internet Explorer\iexplore.exe c:\test.xml")
End If
Il file xml dovrebbe essere fatto cosě alla fine

Ciao a tutti,
mi è scappato l'invio, questo è il messaggio completo
forse mi sto perdendo in un bicchiere d'acqua, ma non capisco perchè mi
faccia questo scherzo.
Situazione, sto generando un file xml da vba, poi lo devo salvare come file
su una cartella dove è presente un file di trasformazione xsl
Dim XmlDocument As New DOMDocument
... procedura che genera xml perfettamente funzionante
If Me.ChkXML Then
    Me.Testo60 = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "encoding="
& Chr(34) & "UTF-8" & Chr(34) & "?> <?xml-stylesheet type=" & Chr(34) &
"text/xsl" & Chr(34) & " href =" & Chr(34) & "C:\test.xsl" & Chr(34) & "?> "
& XmlDocument.xml
    Open "C:\test.xml" For Output As #1
'    Print #1, Me.Testo60  'scrive il file ma lo scrive sbagliato, sbaglia
alcuni caratteri come il diametro ecc.
'    print #1 XmlDocument.xml 'funziona perfettamente ma non la
trasformazione, per cui quando lo apro non lo gestisce correttamente
    Close #1
    Shell ("C:\Program Files\Internet Explorer\iexplore.exe c:\test.xml")
End If
Il file xml dovrebbe essere fatto così alla fine
<?xml version="1.0"encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href ="C:\test.xsl"?>
<valore>
    <sottovalore>
        <numero>2,01</numero>
    </sottovalore>
</valore>

 ha scritto nel messaggio
news:dgk0gp$eak$1...@area.cu.mi.it...

Ciao Massimo,
a parte il fatto che non ho capito cosa ti scrive male (il diametro ? di
che? boh... sarà l'ora!)
butto lì la prova "scema" che avrai sicuramente già fatto...,  hai provato a
scrivere nel file senza fare transitare il testo nella textbox?
 Print #1, "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "encoding=" &
Chr(34) & "UTF-8" & Chr(34) & "?> " &vbCrLf
 Print #1, " <?xml-stylesheet type=" & Chr(34) & "text/xsl" & Chr(34) & "
href =" & Chr(34) & "C:\test.xsl" & Chr(34) & "?> " & vbcrlf
infine  visto che non ho capito se il file generato è scritto sbagliato o se
è solo visualizzato male da IE (a causa dell'xsl? o di un errore nell'xml?)
prova a farci vedere cosa ottieni in test.xml.
Ciao
Cinzia

 Cinzia
Ciao,
Massimo 

Trovato, lo lascio nel caso servisse ad altri, il problema era nella 
codifica utilizzata per salvare il file.
xml version="1.0" encoding="windows-1252"
ha risolto.
Ciao,
Massimo


Ciao Max,
con [COMPLETO] intendevi post completo anche di soluzione???
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 con [COMPLETO] intendevi post completo anche di soluzione???
No, intendevo che nel primo mi era partito un invio di troppo, pertanto il 
messaggio era partito senza una parte;-)
Comunque si è adattato perfettamente, anzi direi, nuova regola, chi posta il 
messaggio deve prevedere se verrà data una risposta e inserirlo nel 
subject:-))
Ciao,
Massimo 

 Massimo


 E se viene data una risposta a Simba???
Miiii.... direi che va messa nel sitocomune ^__^
Ciao,
Massimo