how to read long text in XML node

Comments

• jhoek Member Posts: 216

  2006-08-24

  Please search this forum before posting a question - it has been answered several times before.
  BTW, check out the IXMLDOMCharacterData interface.

  Kind regards,
  
  Jan Hoek
  Product Developer
  Mprise Products B.V.

  0
• scott Member Posts: 76

  2006-08-25

  I searched both the forum and website on IXMLDOMCharacterData. Still did not find good answer.
  
  In the attribute of a node, there can be a few thousand characters. We need to get all characters, not just first 250.
  
  Do you have any sample codes?
  
  Thanks
  
  Scott

  0
• Morten_Solberg Member Posts: 24

  2006-08-25

  search in the forum: *xmldom*

  0
• Lober Member Posts: 2

  2006-08-28

  Try "BSTR that exceeds string buffer length" 17/08/2006

  0
• scott Member Posts: 76

  2006-08-28

  Thanks. "BSTR that exceeds string buffer length" 17/08/2006 does have a useful solution.
  
  For some reasons, 'Navision Attain Hash 1.0'.BSTRConverter deletes line return characters, so output is not very clean...
  
  I wrote a VB 6 dll program to take care of this. You can specify maximum characters per line. It cuts notes between words, and retains line return characters.
  
  Codes in Navision...
  
  HeaderNoteFileName := FileRec.Path + '\Note\' + FileRec.Name + '.TXT';
  
  IF MYDLL.DownloadNote(XMLNode.attributes.getNamedItem('Note').nodeValue,HeaderNoteFileName,MaxCharacterPerLine) = 'OK'
  THEN BEGIN
  HeaderFile.OPEN(HeaderNoteFileName);
  HeaderFile.TEXTMODE := TRUE;
  
  ReadOK := TRUE;
  HeaderCommentLineNo := 0;
  
  WHILE ReadOK DO BEGIN
  IF HeaderFile.READ(MessageLine) <> 0 THEN BEGIN
  HeaderCommentLineNo += 10000;
  TempSalesCommentLine.INIT;
  TempSalesCommentLine."Document Type" := TempSalesCommentLine."Document Type"::Quote;
  TempSalesCommentLine."No." := TempSalesHeader."No.";
  TempSalesCommentLine."Line No." := HeaderCommentLineNo;
  TempSalesCommentLine.Date := WORKDATE;
  TempSalesCommentLine.Comment := MessageLine;
  TempSalesCommentLine.INSERT;
  END ELSE
  ReadOK := FALSE;
  END;
  END;
  
  
  Codes in VB 6...
  
  Public Function DownloadNote(ByVal NoteMessage As Variant, ByVal FileName As String, ByVal MaxCharacters As Integer) As String
  On Error GoTo errorHandler
  Dim String1 As String
  Dim x As Integer
  
  If NoteMessage = "" Then
  Exit Function
  End If
  
  Open FileName For Output As #1
  
  Do Until NoteMessage = ""
  String1 = Left$(NoteMessage, MaxCharacters)
  
  For x = 1 To Len(String1)
  If InStr(Right$(String1, x), " ") <> 0 Then
  Exit For
  End If
  Next x
  
  String1 = Left$(String1, MaxCharacters - x)
  NoteMessage = Mid(NoteMessage, MaxCharacters - x + 2):
  Print #1, String1
  Loop
  
  Close 1
  
  DownloadNote = "OK"
  
  Exit Function
  errorHandler:
  Err.Raise -12345678, "HttpPost", Err.Description
  End Function

  0
• scott Member Posts: 76

  2006-08-28

  thansk for everyone's help.

  0