Declaration xml header utf8

25/01/2010 - 13:14 von Franz-Josef Stiensmeier | Report spam
Hallo,

habe jetzt seit zig Stunden nach einer Problemlösung gesucht, aber nichts
gefunden.

Problem:

Erscheinen soll: <?xml version="1.0" encoding="utf-8" ?>

mit der Anweisung:
Dim objDocument As New MSXML2.DOMDocument
Dim objElement As MSXML2.IXMLDOMElement
Dim objNode As MSXML2.IXMLDOMNode
Dim objRoot As MSXML2.IXMLDOMElement
Dim objFieldElement As MSXML2.IXMLDOMElement
Set objNode = objDocument.createProcessingInstruction("xml",
"version='1.0'")

erscheint in der xml nur: <?xml version="1.0"?>

Fragen:
1. Wie realisiere ich das gewünschte
2. wird das ganze dann auch in utf8 kodiert oder muß noch etwas anderes
beachtet werden
3. Vielleicht eine homepage wo die Möglichkeiten von msxml2 dokumentiert
sind. Die OH gibt da nichts her. Und auch die Bücher die ich habe hüllen
sich in Schweigen

mfg

Franz-Josef Stiensmeier
 

Lesen sie die antworten

#1 Stefan Hoffmann
25/01/2010 - 14:08 | Warnen spam
hallo Franz-Josef,

On 25.01.2010 13:14, Franz-Josef Stiensmeier wrote:
Hallo,
Erscheinen soll:<?xml version="1.0" encoding="utf-8" ?>

mit der Anweisung:
Dim objDocument As New MSXML2.DOMDocument


Das New ist in VBA nicht so toll, da

Dim objDocument As New MSXML2.DOMDocument

Set objDocument = Nothing
If objDocument Is Nothing Then
Debug.Print "Guess what.."
Else
Debug.Print "Oops!"
End If

Set objNode = objDocument.createProcessingInstruction("xml",
"version='1.0'")

erscheint in der xml nur:<?xml version="1.0"?>


Klar, steht ja auch keine Encoding-Anweisung drin in deiner Anweisung.

Dim objDocument As New MSXML2.DOMDocument
Dim objNode As MSXML2.IXMLDOMNode

Set objNode = objDocument.createProcessingInstruction( _
"xml", "version='1.0' encoding='UTF-8'")

objDocument.appendChild objNode
objDocument.Save "c:\temp\test.txt"


mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen