A
Azrael
Кто-нибудь встречался со следующей проблемой: NotesDOMParser работает только, если в XML-файле есть только английские символы и вообще нормально работает только, если в заголовке будет <?xml version="1.0"?>, а если уже <?xml version="1.0" encoding="windows-1251"?>, то вываливается ошибка на методе Process или Parse. Такая же ошибка вылазит и в случае, если будут английские буквы, т.е.
а
уже не работает
Код:
<?xml version="1.0"?>
<ovkdom>
<firm>
<orgname>roga i kopita</orgname>
...
Код:
<?xml version="1.0"?>
<ovkdom>
<firm>
<orgname>Рога и копыта</orgname>
...
Из справки...Код:(Declarations) Dim domParser As NotesDOMParser Dim LF As String Sub Initialize Dim session As NotesSession Dim db As NotesDatabase Dim inputStream As NotesStream, outputStream As NotesStream Dim docNode As NotesDOMDocumentNode Dim origXML As String, outputFile As String origXML = "c:\dxl\xmldom.xml" outputFile = "c:\dxl\DOMtree.txt" Dim header As String header = "Walk Tree agent" LF = Chr(13)+Chr(10) On Error Goto errh Set session = New NotesSession Set db = session.CurrentDatabase 'create the output file Set outputStream =session.CreateStream outputStream.Open (outputFile) outputStream.Truncate 'write report title outputStream.WriteText ("DOM Parser Report - " ) outputStream.WriteText (header+LF) 'open the XML file Set inputStream = session.CreateStream inputStream.Open (origXML) If inputStream.Bytes = 0 Then outputStream.WriteText (origXML+" is empty"+LF) Goto results End If 'create DOM parser and process Set domParser=session.CreateDOMParser(inputStream, outputStream) domParser.Process 'get the document node Set docNode = domParser.Document Call walkTree(docNode) results: Call outputStream.Close Exit Sub errh: outputStream.WriteText ("errh: "+Cstr(Err)+": "+Error+LF) Resume results End Sub