xml spy
Previous  Top  Next
Document.ExportToText


See also

Declaration: ExportToText(pFromChild as XMLData,pExportSettings as ExportSettings,pTextSettings as TextImportExportSettings)

Description
ExportToText exports the XML data structure into a text file.

Example

   Dim objDoc As Document
   Set
 objDoc = objSpy.ActiveDocument

   Dim
 objExpSettings As ExportSettings
   Set
 objExpSettings = objSpy.GetExportSettings
   objExpSettings.ElementList = objDoc.GetExportElementList(
                        objDoc.RootElement,
                        objExpSettings)
        
   Dim
 objTextExp As TextImportExportSettings
   Set
 objTextExp = objSpy.GetTextExportSettings
   objTextExp.HeaderRow = True

   objTextExp.DestinationFolder = "C:\Exports"

   On Error Resume Next

   objDoc.ExportToText objDoc.RootElement, objExpSettings, objTextExp

   If
 Err.Number <> 0 Then
      a = MsgBox
("Error: " & (Err.Number - vbObjectError) & Chr(13) & "Description: "             & Err.Description)
   End
 If

Previous  Top  Next

© 2002 Altova