Domino 9 und frühere Versionen > ND8: Entwicklung

XML & encoding: ISO-8859-15

<< < (2/2)

pram:
Kann ich mir fast nicht vorstellen, kannst du mal ein kurzes Scriptschnipsel pasten, wie du die Datei einliest, dann probiere ich das morgen mal aus.

Gruß
Roland

pram:
Unter 8.5.3 (ohne Fixpack, kanns morgen nochmal auf einer anderen Maschine testen) läuft folgender Code:

--- Code: ---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
--- Ende Code ---
Gruß
Roland

dirkkid:
Hallo Roland,

dank Dir habe ich meinen, zugegebenermaßen peinlichen, Fehler jetzt endlich gefunden...

Ich habe beim öffnen der Datei den Charset nicht mitangegeben:


--- Zitat ---Call inputStream.Open("C:\Test.xml"))
--- Ende Zitat ---

statt:


--- Zitat ---Call inputStream.Open("C:\Test.xml"), "Unicode")
--- Ende Zitat ---

Danke noch mal für deine Hilfe!
Gruß
Dirk

Navigation

[0] Themen-Index

[*] Vorherige Sete