Aktivieren Sie bitte JavaScript, um diese Seite anzeigen zu können.

Altova XMLSpy 2021 Enterprise Edition

Methode: ExportToText (pFromChild als XMLData, pExportSettings als ExportSettings, pTextSettings als TextImportExportSettings)

 

Beschreibung

ExportToTextexportiert Tabellendaten aus dem Dokument beginnend mit pFromChildin eine oder mehrere Textdateien. Die Spalten der erzeugten Tabellen werden in alphabetischer Reihenfolge nach den Namen der Tabellenspalten generiert. Verwenden Sie GetExportElementList,um zu sehen, welche Daten exportiert werden. Der Parameter pExportSettingsdefiniert die näheren Einzelheiten für den Export. Setzen Sie die Eigenschaft ExportSettings.ElementListauf die - möglicherweise geänderte - Liste, die von GetExportElementListzurückgegeben wird, damit nicht alle enthaltenen Tabellen exportiert werden. Der Parameter pTextSettingsdefiniert die Optionen für den Textexport und -import. Sie müssen die Eigenschaft TextImportExportSettings.DestinationFoldersetzen, bevor Sie ExportToText aufrufen.UpdateXMLData()wird eventuell indirekt benötigt, da Sie XMLDataals Parameter an diese Funktion übergeben müssen.

 

Siehe auch Import and export of data.

 

Fehler


1400

Das Objekt ist nicht mehr gültig.


1407

Ungültiger Parameter oder es wurde für den Rückgabeparameter eine ungültige Adresse angegeben.


1416

Fehler beim Export..


1430

Dokumentexport fehlgeschlagen.

 

 

 

Beispiel

' ---------------------------------------------------------

' VBA client code fragment - export document to text files

' ---------------------------------------------------------

 DimobjDoc AsDocument

 SetobjDoc = objSpy.ActiveDocument

 

 DimobjExpSettings AsExportSettings

 SetobjExpSettings = objSpy.GetExportSettings

 objExpSettings.ElementList = objDoc.GetExportElementList(

                                                         objDoc.RootElement,

                                                         objExpSettings)

     

 DimobjTextExp AsTextImportExportSettings

 SetobjTextExp = objSpy.GetTextExportSettings

 objTextExp.HeaderRow = True

 objTextExp.DestinationFolder = "C:\Exports"

 

 OnErrorResume Next

 objDoc.ExportToText objDoc.RootElement, objExpSettings, objTextExp

 

 IfErr.Number <> 0 Then

         a = MsgBox("Error: " & (Err.Number - vbObjectError) & Chr(13) & "Description: "                                & Err.Description)

 EndIf

© 2020 Altova GmbH