<?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" encoding="ISO-8859-15" standalone="yes"?>
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 Sub
Call inputStream.Open("C:\Test.xml"))
Call inputStream.Open("C:\Test.xml"), "Unicode")