<?xml version='1.0'?>
<DOMParserLog>
<fatalerror source='NotesInputSource' line='1' column='62'>An exception occurred! Type:TranscodingException, Message:Could not create a converter for encoding: ISO-8859-15</fatalerror>
<error>DOM parser operation failed</error>
</DOMParserLog>
<?xml version="1.0" encoding="ISO-8859-15" ?>
....Geht es so nicht?Code<?xml version="1.0" encoding="ISO-8859-15" ?> ....
Gruß
Roland
/edit: Ich hatte aber auch schon mal eine Datei, die im Header "behauptet" ISO-xxx codiert zu sein und dann Zeichen enthielt, die nicht in der Codepage vorkommen... da kommt der Parser dann nicht weiter. Ist das dein Problem?
<?xml version="1.0" encoding="ISO-8859-15" standalone="yes"?>
<UC_PersoenlicheVersichertendatenXML CDM_VERSION="5.1.0" xmlns="http://ws.gematik.de/fa/vsds/UC_PersoenlicheVersichertendatenXML/v5.1">
<Versicherter>
<Versicherten_ID>123456789</Versicherten_ID>
<Person>
<Geburtsdatum>19700101</Geburtsdatum>
<Vorname>Hans</Vorname>
<Nachname>Mustermann</Nachname>
<Geschlecht>M</Geschlecht>
<StrassenAdresse>
<Postleitzahl>00000</Postleitzahl>
<Ort>Musterdorf</Ort>
<Land>
<Wohnsitzlaendercode>D</Wohnsitzlaendercode>
</Land>
<Strasse>Muster-Str.</Strasse>
<Hausnummer>1</Hausnummer>
</StrassenAdresse>
</Person>
</Versicherter>
</UC_PersoenlicheVersichertendatenXML>
<?xml version='1.0'?>schließe ich, dass der Parser bereits hier
<DOMParserLog>
<fatalerror source='NotesInputSource' line='1' column='62'>An exception occurred! Type:TranscodingException, Message:Could not create a converter for encoding: ISO-8859-15</fatalerror>
<error>DOM parser operation failed</error>
</DOMParserLog>
<?xml version="1.0" encoding="ISO-8859-15" standalone="yes"?>aussteigt. Das sieht aus, als ob es den Konverter "ISO-8859-15" nicht gibt: -> http://atnotes.de/index.php/topic,36896.msg232224.html#msg232224
Sub Initialize
Dim sess As New NotesSession
Dim iStream As NotesStream
Dim oStream As NotesStream
Set iStream = sess.CreateStream
Set oStream = sess.CreateStream
Call iStream.Writetext(|<?xml version="1.0" encoding="ISO-8859-15" standalone="yes"?>
<UC_PersoenlicheVersichertendatenXML CDM_VERSION="5.1.0" xmlns="http://ws.gematik.de/fa/vsds/UC_PersoenlicheVersichertendatenXML/v5.1">
<Versicherter>
<Versicherten_ID>123456789</Versicherten_ID>
<Person>
<Geburtsdatum>19700101</Geburtsdatum>
<Vorname>Hans</Vorname>
<Nachname>Mustermann</Nachname>
<Geschlecht>M</Geschlecht>
<StrassenAdresse>
<Postleitzahl>00000</Postleitzahl>
<Ort>Musterdorf</Ort>
<Land>
<Wohnsitzlaendercode>D</Wohnsitzlaendercode>
</Land>
<Strasse>Muster-Str.</Strasse>
<Hausnummer>1</Hausnummer>
</StrassenAdresse>
</Person>
</Versicherter>
</UC_PersoenlicheVersichertendatenXML>|)
Dim parser As NotesDOMParser
Set parser = sess.Createdomparser(iStream, oStream)
On Error GoTo errhand
Call parser.Process()
Dim doc As NotesDOMDocumentNode
Set doc = parser.Document
MsgBox doc.Documentelement.Nodename ' liefert UC_PersoenlicheVersichertendatenXML
Exit Sub
errhand: MsgBox parser.Log
Exit sub
End SubCall inputStream.Open("C:\Test.xml"))
Call inputStream.Open("C:\Test.xml"), "Unicode")